Format( ) - Part 4

El Código fuente 199 muestra algunos ejemplos de formato con caracteres especiales.

Dim MiFecha As Date
Dim MiNumero As Double
Dim ValorFormato As String
MiFecha = #7/19/2002 6:25:00 PM#
MiNumero = 16587.097
ValorFormato = Format(MiFecha, "dddd d/MMM/yyyy") ' "viernes 19/jul/2002"
ValorFormato = Format(MiFecha, "HH:mm") ' "18:25"
ValorFormato = Format(MiNumero, "#,#.00") ' "16.587,10"

Código fuente 199

Si queremos formatear las fechas de una manera todavía más elaborada, incluyendo texto adicional, podemos construir cadenas de formato empleando el carácter de escape, que en este caso es la barra

invertida ( \ ), para evitar que determinados caracteres clave de formato sean sustituidos.

Por ejemplo, tenemos la fecha 18/07/2002 y queremos formatearla de modo que se muestre la siguiente cadena: “La fecha es jueves, 18 de julio de 2002”. Con lo que sabemos hasta el momento, la cadena de formato que probablemente utilizaríamos sería la mostrada en el Código fuente 200, que nos daría un resultado incorrecto.

Dim Fecha As Date = "18/07/2002"
Console.WriteLine(Format(Fecha, "La fecha es dddd, dd de MMMM de yyyy"))
' Resultado
La 0ec12a e0 jueves, 18 18e julio 18e 2002

Código fuente 200