Declare Function SetDate ( ByRef newdate As Const String ) As Long

result = SetDate( newdate )

newdate

Returns zero on success or non-zero on failure on all ports except DOS.

To set the date you just format newdate and send to SetDate in a valid format following one of the following: "mm-dd-yy", "mm-dd-yyyy", "mm/dd/yy", or "mm/dd/yyyy" (mm is the month, dd is the day, yy or yyyy is the year.

Dim m As String, d As String, y As String
m = "03" 'march
d = "13" 'the 13th
y = "1994" 'good ol' days
SetDate m + "/" + d + "/" + y

• The DATE statement was used in QB and the syntax was "DATE = string"
  
  

• Date
  
• SetTime