Funções FormatDateTime
Retorna uma expressão formatada como uma data ou hora.
Sintaxe
FormatDateTime(Date[,NamedFormat])
Argumentos:
- Date: Obrigatório. Expressão de data a ser formatada.
Nota:
- Se a string for fornecida como uma entrada, os delimitadores usados em Data de Entrada e/ou hora deverão ser iguais aos delimitadores de localidade específicos do sistema. Caracteres especiais, como mostrado nesta imagem
não são suportados. - O número de dias não deve ser fornecido como um argumento de entrada; ele não é suportado.
- Data, mês e ano devem ser escritos no formato completo. Por exemplo, 08/02/2024. Formatos abreviados, como 8/2/24, não são suportados.
- Se a string for fornecida como uma entrada, os delimitadores usados em Data de Entrada e/ou hora deverão ser iguais aos delimitadores de localidade específicos do sistema. Caracteres especiais, como mostrado nesta imagem
- NamedFormat: Opcional. Valor numérico que indica o formato usado de data e hora. Se omitido, vbGeneralDate será usado. Consulte a seção Configurações para ver os valores.
Configurações: O argumento NamedFormat tem as seguintes configurações:
vbGeneralDate: Para obter a Data no formato de Data Geral, informe o Valor 0.
Exibe a data e/ou a hora. Se houver uma parte da data, exibe como uma data curta. Se houver uma parte da hora, exibe como uma hora longa. Quando presente, ambas as partes são exibidas.
Exemplo 1:
Dim d, mytime d="12/19/2024" mytime = FormatDateTime(d,0) 'Output: 12/19/2024 12:00:00 AM d="12/19/2024 02:30 PM" mytime = FormatDateTime(d,0) 'Output: - 12/19/2024 02:30:00 PM d="14:30:10 12/19/2024" mytime = FormatDateTime(d,0) 'Output: - 12/19/2024 02:30:10 PM d="02:30 PM 12/19/2024" mytime = FormatDateTime(d,0) 'Output: - 12/19/2024 02:30:00 PM d="12/19/2024 2pm" mytime = FormatDateTime(d,0) Output: - 12/19/2024 02:00:00 PM d="2 pm" mytime = FormatDateTime(d,0) 'Output: - 12/30/1899 02:00:00 PM d="12-19-2024" mytime = FormatDateTime(d,0) 'Output: - ERROR as delimiter should be same as locale’s delimiter
vbLongDate: Para obter o Formato de Data Longa, informe o Valor 1.
Exibe uma data usando o formato de data longa especificado nas configurações regionais do computador.
Nota:
O formato de data longa exibe conteúdo somente em caracteres ingleses, e a análise de dia da semana não é suportada.Exemplo 2:
Dim d, mytime d="12/19/2024" mytime = FormatDateTime(d,1) 'Output: 12/19/2024 12:00:00 AM d="12/19/2024 02:30 PM" mytime = FormatDateTime(d,1) 'Output: - 12/19/2024 02:30:00 PM d="14:30:10 12/19/2024" mytime = FormatDateTime(d,1) 'Output: - 12/19/2024 02:30:10 PM d="02:30 PM 12/19/2024" mytime = FormatDateTime(d,1) 'Output: - 12/19/2024 02:30:00 PM d="12/19/2024 2pm" mytime = FormatDateTime(d,1) Output: - 12/19/2024 02:00:00 PM d="2 pm" mytime = FormatDateTime(d,1) 'Output: - 12/30/1899 02:00:00 PM d="12-19-2024" mytime = FormatDateTime(d,1) 'Output: - ERROR as delimiter should be same as locale’s delimiter
vbShortDate: Para obter o Formato de Data Curta, informe o Valor 2.
Exibe uma data usando o formato de data curta especificado nas configurações regionais do computador.
Exemplo 3:
Dim d, mytime d="12/19/2024" mytime = FormatDateTime(d,2) 'Output: 12/19/2024 12:00:00 AM d="12/19/2024 02:30 PM" mytime = FormatDateTime(d,2) 'Output: - 12/19/2024 02:30:00 PM d="14:30:10 12/19/2024" mytime = FormatDateTime(d,2) 'Output: - 12/19/2024 02:30:10 PM d="02:30 PM 12/19/2024" mytime = FormatDateTime(d,2) 'Output: - 12/19/2024 02:30:00 PM d="12/19/2024 2pm" mytime = FormatDateTime(d,2) Output: - 12/19/2024 02:00:00 PM d="2 pm" mytime = FormatDateTime(d,2) 'Output: - 12/30/1899 02:00:00 PM d="12-19-2024" mytime = FormatDateTime(d,2) 'Output: - ERROR as delimiter should be same as locale’s delimiter
vbLongTime: Para obter a Hora no Formato de Hora Longa, Informe o Valor 3.
Exibe a hora usando o formato de hora especificado nas configurações regionais do computador.
Nota:
O formato de hora longa exibe conteúdo somente em caracteres ingleses, com AM ou PM.Exemplo 4:
Dim d, mytime d="12/19/2024" mytime = FormatDateTime(d,3) 'Output: 12/19/2024 12:00:00 AM d="12/19/2024 02:30 PM" mytime = FormatDateTime(d,3) 'Output: - 12/19/2024 02:30:00 PM d="14:30:10 12/19/2024" mytime = FormatDateTime(d,3) 'Output: - 12/19/2024 02:30:10 PM d="02:30 PM 12/19/2024" mytime = FormatDateTime(d,3) 'Output: - 12/19/2024 02:30:00 PM d="12/19/2024 2pm" mytime = FormatDateTime(d,3) Output: - 12/19/2024 02:00:00 PM d="2 pm" mytime = FormatDateTime(d,3) 'Output: - 12/30/1899 02:00:00 PM d="12-19-2024" mytime = FormatDateTime(d,3) 'Output: - ERROR as delimiter should be same as locale’s delimiter
vbShortTime: Para obter a Hora no Formato de Hora Curta, Informe o Valor 4.
Exiba a hora usando o formato de 24 horas (hh:mm).
Exemplo 5:
Dim d, mytime d="12/19/2024" mytime = FormatDateTime(d,4) 'Output: 12/19/2024 12:00:00 AM d="12/19/2024 02:30 PM" mytime = FormatDateTime(d,4) 'Output: - 12/19/2024 02:30:00 PM d="14:30:10 12/19/2024" mytime = FormatDateTime(d,4) 'Output: - 12/19/2024 02:30:10 PM d="02:30 PM 12/19/2024" mytime = FormatDateTime(d,4) 'Output: - 12/19/2024 02:30:00 PM d="12/19/2024 2pm" mytime = FormatDateTime(d,4) Output: - 12/19/2024 02:00:00 PM d="2 pm" mytime = FormatDateTime(d,4) 'Output: - 12/30/1899 02:00:00 PM d="12-19-2024" mytime = FormatDateTime(d,4) 'Output: - ERROR as delimiter should be same as locale’s delimiter