Example - Date Function

' 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()
    x = Date()
    Print Date
    Print x
    Print "VarType: " & VarType(Date)
    MyTime = "08:04:23 PM"
    MyDate = "03/03/95"
    MyDate = "January 27, 1993"
    SysDate = Date
    MsgBox Sysdate,0,"System Date"
    MsgBox Now,0,"Now"
    MsgBox MyTime,0,"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") & " Short Time"
    MsgBox Format(Time, "Long Time") & " Long Time"
    ' Returns current system date in the system-defined long date format.
    MsgBox Format(Date, "Short Date") & " Short Date"
    MsgBox Format(Date, "Long Date") & " Long Date"
    MyDate = "30 December 91" ' use of European date
    print Mydate
    MsgBox MyDate,0,"MyDate International..."
    MsgBox Day(MyDate),0,"day"
    MsgBox Month(MyDate),0,"month"
    MsgBox Year(MyDate),0,"year"
    MyDate = "30-Dec-91" ' another of European date usage
    print Mydate
    MsgBox MyDate,0,"MyDate International..."
    MsgBox Day(MyDate),0,"day"
    MsgBox Month(MyDate),0," month"
    MsgBox Year(MyDate),0,"year"
    MsgBox Format("This is it", ">")        ' Returns "THIS IS IT".
End Sub