quinta-feira, 26 de julho de 2001

Funções de formatação

'Verifica se duas datas pertencem a mesma semana do ano
function IsWeek(data1,data2)
 if DatePart("ww",data1) = DatePart("ww",data2) then
  IsWeek = true
 else
  IsWeek = false
 end if
end function

'-----------------------------------------------
'Preenche com zeros a esquerda do numero

function formata_numero(numero,qtd_zero)
dim tam
 tam = qtd_zero - len(numero)
 if tam < 0 then tam = 0
 formata_numero = string(tam,"0") & numero
end function

'-----------------------------------------------
'Retira acentos de palavras
function tirar_acentos(strTexto)
 dim com_acentos, sem_acentos, strResultado
 
 com_acentos = "ÁÍÓÚÉÄÏÖÜËÀÌÒÙÈÃÕÂÎÔÛÊáíóúéäïöüëàìòùèãõâîôûêÇç"
 sem_acentos = "AIOUEAIOUEAIOUEAOAIOUEaioueaioueaioueaoaioueCc"


 i = 0
 strResultado = strTexto
 while i < Len(com_acentos)
  i = i + 1
  strResultado = Replace(strResultado,Mid(com_acentos, i, 1), Mid(sem_acentos, i, 1))
 wend


 tirar_acentos = strResultado
end function



Esta matéria foi postada originalmente no ASP4Developers por Eduardo Ferrari (site), que na época era "Programo nas linguagens ASP, VBScript, JavaScript, Visual Basic, Delphi.

Bases de Dados Access, SQL Server, Paradox 7.". Hoje, vai saber...

0 comentários: