Função para formatar datas ;)


Opa!

Bom, aqui onde trabalho damos manutenção em um sistema feito anteriormente utilizando a linguagem ASP.
Nesta linguagem formatar a data as vezes pode ser bem complicadinho. Então, mais uma vez em minhas navegadas e “googladas”, encontrei uma função para formatar as datas para ISO, que é o formato padrão.

Como tem um tempinho que encontrei, não me recordo da fonte, mas estou postando aqui, pois foi de grande valia para mim esta função!

Function ISOData(dteDate)
‘Version 1.0
If IsDate(dteDate) = True Then
DIM dteDay, dteMonth, dteYear
dteDay = Day(dteDate)
dteMonth = Month(dteDate)
dteYear   = Year(dteDate)
ISOData = dteYear & _
“-” & Right(Cstr(dteMonth + 100),2) & _
“-” & Right(Cstr(dteDay + 100),2)
Else
ISOData = Null
End If

End Function

Para utilizar a função, você deve chamar a função passando a data a ser formatada como parâmetro.

Tipo assim:

data = IsoData(Date())

Abraços !!

Fred Chevitarese – GNU/Linux

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: