Formateo de valores - III

El Código fuente 328 muestra algunos formatos personalizados, construidos a base de patrones de formato.

Sub Main()

Dim ldtFecha As Date

ldtFecha = Date.Now()

Console.WriteLine(ldtFecha.ToString("ddd, dd-MMM/yyyy"))

Console.WriteLine(ldtFecha.ToString("dddd, a dd \de MMMM ,en el año yyyy"))

Console.WriteLine(ldtFecha.ToString("H:mm:s"))

End Sub

Código fuente 328

En cuanto a los números, si necesitamos aplicar un formato para este tipo de valor, podemos hacerlo mediante los caracteres mostrados en la Tabla 27.

El Código fuente 329 muestra algunos formatos aplicados sobre un tipo numérico.

Sub Main()
Dim ldcMiNum As Decimal
' crear un array con caracteres de formato
Dim lsFormatos() As String = {"c", "e", "f", "g", "n"}
Dim lsNumFormateado As String
ldcMiNum = 850.678 ' asignar valor al número
' recorrer el array de formatos y aplicar cada
' uno de los formatos al número
For Each lsNumFormateado In lsFormatos
Console.WriteLine(ldcMiNum.ToString(lsNumFormateado))
Next
Console.ReadLine()
End Sub

Código fuente 329