Função FormatDateTime [VBA]
Aplica um formato de data e / ou hora a uma expressão de data e retorna o resultado como uma cadeia de caracteres
Esta constante, função ou objeto se ativa com a instrução Option VBASupport 1 colocada antes do código executável do programa em um módulo.
FormatDateTime (Date As Date [, NamedFormat As Integer])String
Date: A expressão data a ser formatada.
NamedFormat: uma enumeração vbDateTimeFormat opcional especificando o formato a ser aplicado à expressão da data e hora. Se omitida, o valor vbGeneralDate é utilizado.
Formatos de data e hora (enumeração vbDateTimeFormat)
|
Constante nomeada |
Valor |
Descrição |
|---|---|---|
|
vbGeneralDate |
0 |
Exibe uma data e/ou hora conforme definido na configuração geral de data do seu sistema operacional. Se apenas data, nenhuma hora é exibida; Se apenas hora, nenhuma data será exibida. |
|
vbLongDate |
1 |
Exibir uma data usando o formato de data longa especificado nas configurações regionais do seu computador. |
|
vbShortDate |
2 |
Exibi uma data usando o formato de data curta especificado nas configurações regionais do seu computador. |
|
vbLongTime |
3 |
Exibe uma hora tal como estabelecida nas definições de tempo longo (Long Time) do seu sistema. |
|
vbShortTime |
4 |
Exibe a hora usando o formato 24 horas (hh:mm) |
REM ***** BASIC *****
Option VBASupport 1
Sub DateFormat
Dim d as Date
d = ("1958-01-29 00:25")
msgbox("Formato geral de data : " & FormatDateTime(d))
msgbox("Formato de data longo : " & FormatDateTime(d,vbLongDate))
msgbox("Formato de data curto : " & FormatDateTime(d,vbShortDate))
msgbox("Formato de hora longo : " & FormatDateTime(d,3))
msgbox("Formato de hora curto : " & FormatDateTime(d,vbShortTime))
End Sub