Example:

  1. Sub Main ()

    1. Dim v As Variant

      Dim d As Double

      d = Now

      Print d

      v = DateValue("1959/05/29")

      MsgBox (VarType(v))

      MsgBox (v)

    End Sub