Formatear Variables Numéricas

Format("1.234", "#.#") ' Displays "#.#".
Format(CSng("1.234"),"#.#") ' Displays "1.234".
Format(-1, ";") ' Displays "-".
Format(123, "###.") ' Displays "123"
Format(123, "###.#") ' Displays "123"
Format(123, "#e+#") ' Displays "12e+3".
Format(123, "#e+0") ' Displays "1e+2".
dim d as decimal = 234.44
txtbox.text = Format(d,"c") ' Devuelve 234,44 €

' Returns current system time in the system-defined long time format.
MyStr = Format(Now(), "Long Time")
' Returns current system date in the system-defined long date format.
MyStr = Format(Now(), "Long Date")
' Also returns current system date in the system-defined long date
' format, using the single letter code for the format.
MyStr = Format(Now(), "D")
' Returns the value of MyDateTime in user-defined date/time formats.
MyStr = Format(MyDateTime, "h:m:s") ' Returns "5:4:23".
MyStr = Format(MyDateTime, "hh:mm:ss tt") ' Returns "05:04:23 PM".
MyStr = Format(MyDateTime, "dddd, MMM d yyyy") ' Returns "Saturday,
' Jan 27 2001".
MyStr = Format(MyDateTime, "HH:mm:ss") ' Returns "17:04:23"
MyStr = Format(23) ' Returns "23".
' User-defined numeric 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%".