Example - DateValue Function

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