Reflection version used to record Macro: 14.0
Reflection version used to run Macro: MICRO FOCUS REFELCTION Desktop Pro v16.0 SP-1

Wanted to post some uses of the date/time feature for people who might want to build macros and use a data or time

Code:
Sub DATETEST()
' Generated by the Reflection Macro Recorder on 09-26-2013 12:42:18.76.
' Generated by Reflection for UNIX and OpenVMS 14.0.6.
    On Error GoTo ErrorHandler

    Const NEVER_TIME_OUT = 0

    Dim LF As String    ' Chr(rcLF) = Chr(10) = Control-J
    Dim CR As String    ' Chr(rcCR) = Chr(13) = Control-M

    LF = Chr(Reflection2.ControlCodes.rcLF)
    CR = Chr(Reflection2.ControlCodes.rcCR)

    With Session
       
    '==================================================================
    'Format(expression[, format[, firstdayofweek[, firstweekofyear]]])
    '==================================================================
    
    'THIS SIMPLY GIVE YOU THE DATE IN THE FORMAT OF mM/dD/YYYY (ex: 9/16/2013)
    .MsgBox Date
    
    'THIS WILL SIMPLY GIVE YOU THE DAY OF THE WEEK (ex:  THURSDAY)
    .MsgBox "FORMAT OF DATE IS dddd >> " & Format(Date, "dddd")
    .MsgBox "FORMAT OF THE DATE IS ddd >>> " & Format(Date, "ddd")
    .MsgBox "FORMAT OF THE DATE IS dd >>> " & Format(Date, "dd")
    .MsgBox "FORMAT OF THE DATE IS d >>> " & Format(Date, "d")
    
    'FORMAT WILL BE "Thursday, September 26, 2013"
    .MsgBox "FORMAT OF THE DATE IS Long Date >>> " & Format(Date, "Long Date")
    .MsgBox "FORMAT OF THE DATE IS Short Date >>> " & Format(Date, "Short Date")
    
    'FORMAT WILL BE "Thursday, Sep 26 2013"
    'NOTICE NOT COMMA AFTER DATE. AND MONTH IS ABBREVIATED TO 3 LETTERS
    .MsgBox Format(Date, "dddd, mmm d yyyy")
    
    'THIS WILL RETURN A NUMBER FORM 1-7 IDENTIFYING THE WEEKDAY.
    'EXAMPLE THE 4TH WEEK OF THE MONTH OF September
    .MsgBox "FORMAT OF THE DATE IS (w FOR WEEKDAY) >> " & Format(Date, "w")
    
    'THIS WILL RETUNR A NUMBER FROM 1-12 IDENTIFYING THE MONTH
    .MsgBox "FORMAT OF THE DATE IS (m FOR MONTH) >> " & Format(Date, "m")
    
    'THIS WILL GIVE THE JULIAN DAY OF THE YEAR.
    .MsgBox "FORMAT OF THE DATE IS (y FOR JULIAN DAY) >> " & Format(Date, "y")
       
    'THIS FORMAT IS SUPPOSED TO BE ABLE TO FIGURE LEAP YEARS OUT.  HAVE NOT WORKED WITH IT ENOUGH.
    'IT IS A BOOLEAN STATEMENT AND RETURNS A TRUE OR FALSE I BELIEVE???
    'LEAP YEARS ARE SUPPOSED TO BE 2008, 2012, 2016, 2020, 2024, ETC...
    '.MsgBox (29 = Day(DateSerial(intYear, 2, 29)))
    .MsgBox (29 = Day(DateSerial(2016, 2, 29)))
    
    .MsgBox "BUTCH " & Format(Date, "w")
    
    
    End With
    
    Exit Sub

ErrorHandler:
    Session.MsgBox Err.Description, vbExclamation + vbOKOnly

    ' Recording stopped at 12:42:30.65.
End Sub