Função Format

Exemplos

Utilizar a função Formatar numa expressão    Pode utilizar a opção Formatar onde puder utilizar expressões. Por exemplo, pode utilizá-lo numa consulta como parte de um alias de campo ou na propriedade Origem do Controlo de uma caixa de texto num formulário ou relatório. Os exemplos seguintes mostram uma expressão que pode utilizar na propriedade Filtro de um relatório para limitar o resultado aos registos da semana anterior.

Format([Date],"ww")=Format(Now(),"ww")-1

Neste exemplo, a origem de registos do relatório tem um campo denominado Data, que contém a data em que cada registo específico foi modificado e que é utilizado no relatório. Quando executa o relatório, os respetivos resultados são filtrados para mostrar apenas os registos em que a semana do valor no campo Data (Formatar([Data],"ww")) é igual à semana anterior (Formatar(Agora(),"ww")-1).

Utilizar a função Formatar no código VBA    

Este exemplo mostra várias utilizações da função Formatar para formatar valores ao utilizar formatos nomeados e formatos definidos pelo utilizador. Para o separador de data (/), separador de hora (:) e literal AM/PM, a saída formatada real apresentada pelo sistema depende das definições de região do computador em que o código está em execução. Quando as horas e datas são apresentadas no ambiente de desenvolvimento, é utilizado o formato de hora abreviada e o formato de data abreviado da região do código. Quando apresentado através da execução de código, é utilizado o formato de hora abreviada e o formato de data abreviado da região do sistema, que podem diferir da região do código. Neste exemplo, é assumida a região inglês dos E.U.A.

MyTime e MyDate são apresentados no ambiente de desenvolvimento com a definição de curto prazo do sistema atual e a definição de data abreviada.

Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#
' Returns current system time in the system-defined long time format.
MyStr = Format(Time, "Long Time")
' Returns current system date in the system-defined long date format.
MyStr = Format(Date, "Long Date")
MyStr = Format(MyTime, "h:m:s")    ' Returns "17:4:23".
MyStr = Format(MyTime, "hh:mm:ss AMPM")    ' Returns "05:04:23 PM".
MyStr = Format(MyDate, "dddd, mmm d yyyy")    ' Returns "Wednesday,
    ' Jan 27 1993".
' If format is not supplied, a string is returned.
MyStr = Format(23)    ' Returns "23".
' User-defined formats.
MyStr = Format(5459.4, "##,##0.00")    ' Returns "5,459.40".
MyStr = Format(334.9, "###0.00")    ' Returns "334.90".
MyStr = Format(5, "0.00%")    ' Returns "500.00%".
MyStr = Format("HELLO", "<")    ' Returns "hello".
MyStr = Format("This is it", ">")    ' Returns "THIS IS IT".

Utilizar Formatar com cadeias de comprimento zero

Na versão 2.0 e anterior do Microsoft Access, pode utilizar a função Formatar para devolver um valor para um cadeia de comprimento zero e outro para um valor. Por exemplo, pode utilizar uma expressão de formato como a seguinte com a função Format para devolver o valor de cadeia adequado do código:

Dim varX As Variant
Dim varStrX As Variant
' Assign some value to varStrX and pass to Format function.
varX = Format(varStrX, "@;ZLS;Null")

Nas versões 97 e posteriores do Microsoft Access, tem de testar separadamente para o caso Nulo e, em seguida, devolver o valor adequado com base no resultado. Por exemplo, pode utilizar a função ISe numa expressão com a função Formatar , como a seguinte:

varX = IIf(IsNull(varStrX),"Null", Format(varStrX, "@;ZLS"))

Esta alteração aplica-se apenas quando utiliza a função Formatar para formatar uma cadeia, dependendo se é uma cadeia de comprimento zero ou um valor Nulo. Outras expressões de formato utilizadas com a função Formatar continuam a funcionar como em versões anteriores.

Se converter uma base de dados da versão 2.0 e anterior do Microsoft Access para o Microsoft Access 2002 ou posterior, tem de alterar o código para testar separadamente para o caso Nulo.