Example:

  1. ' Format Function Example

     

    ' This example shows various uses of the Format function to format values

    ' using both named and user-defined formats. For the date separator (/),

    ' time separator (:), and AM/ PM literal, the actual formatted output

    ' displayed by your system depends on the locale settings on which the code

    ' is running. When times and dates are displayed in the development

    ' environment, the short time and short date formats of the code locale

    ' are used. When displayed by running code, the short time and short date

    ' formats of the system locale are used, which may differ from the code

    ' locale. For this example, English/United States is assumed.

     

    ' MyTime and MyDate are displayed in the development environment using

    ' current system short time and short date settings.

     

    Sub Main()

    1.  

      MyTime = "08:04:23 PM"

      MyDate = "03/03/95"

      MyDate = "January 27, 1993"

       

      MsgBox Now

      MsgBox MyTime

       

      MsgBox Second( MyTime ) & " Seconds"

      MsgBox Minute( MyTime ) & " Minutes"

      MsgBox Hour( MyTime ) & " Hours"

       

      MsgBox Day( MyDate ) & " Days"

      MsgBox Month( MyDate ) & " Months"

      MsgBox Year( MyDate ) & " Years"

       

      ' Returns current system time in the system-defined long time format.

      MsgBox Format(Time, "Short Time")

      MyStr = Format(Time, "Long Time")

       

      ' Returns current system date in the system-defined long date format.

      MsgBox Format(Date, "Short Date")

      MsgBox Format(Date, "Long Date")

       

      MyStr Format(MyTime, "h:n:s")' Returns "17:4:23".

      MyStr Format(MyTime, "hh:nn:ss")' Returns "20:04:22 ".

      MyStr Format(MyDate, "dddd, mmm d yyyy")' Returns "Wednesday, Jan 27 1993".

       

      ' If format is not supplied, a string is returned.

      MsgBox Format(23)' Returns "23".

       

      ' User-defined formats.

      MsgBox Format(5459.4, "##,##0.00")' Returns "5,459.40".

      MsgBox Format(334.9, "###0.00")' Returns "334.90".

      MsgBox Format(5, "0.00%")' Returns "500.00%".

      MsgBox Format("HELLO", "<")' Returns "hello".

      MsgBox Format("This is it", ">")' Returns "THIS IS IT".

       

    End Sub