Função Formatar

Exemplos

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

Formatar([Data],"ww")=Formatar(Agora(),"ww")-1

Neste exemplo, a origem de registos do relatório tem um campo chamado Data, que contém a data em que cada registo específico foi modificado e que é utilizada no relatório. Quando executa o relatório, os 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 em código VBA    

O exemplo mostra várias utilizações da função Formatar para formatar valores ao utilizar formatos com nome e formatos definidos pelo utilizador. Para o separador de data (/), separador de hora (:) e AM/PM literal, o resultado formatado real apresentado pelo nosso sistema depende das definições de região do computador no qual o código está a ser executado. Quando as horas e datas são apresentadas no ambiente de desenvolvimento, é utilizado o formato de hora e de data abreviado do código da região. Quando é apresentado através da execução do código, é utilizado o formato de hora e de data abreviado do sistema da região, que pode variar do código da região. Para este exemplo, é presumida a região EUA em inglês.

MyTime e MyDate são apresentados no ambiente de desenvolvimento através da definição de data e de hora abreviada do sistema atual.

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 a função Formatar com cadeias de comprimento zero

No Microsoft Access versão 2.0 e anterior, pode utilizar a função Formatar para devolver um valor para uma cadeia de comprimento zero e outro para um valor. Por exemplo, pode utilizar uma expressão de formato, tal como a seguinte com a função Formatar, 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")

No Microsoft Access versões 97 e posterior, 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 tal 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 tal como em versões anteriores.

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