Example - DateSerial Function

1. Sub Main

   1. Dim MDate

      MDate = DateSerial(1959, 5, 29)

      Print MDate

   End Sub