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

result = SetDate( newdate )

newdate

Возвращает ноль в случае успеха или ненулевое значение в случае неудачи на всех портах, кроме DOS.

Чтобы установить дату , вы просто форматируете newdate и посылаете в SetDate в одном из следующих допустимых форматов: "mm-dd-yy", "mm-dd-yyyy", "mm/dd/yy", или "mm/dd/yyyy" (mm - это месяц, dd - это день, yy или yyyy - это год).

Dim m As String, d As String, y As String
m = "03" 'март
d = "13" '13 число
y = "1994" 'год
SetDate m + "/" + d + "/" + y

• Заявление DATE было использовано в QB и синтаксис был "DATE = string"
  
  

• Date
  
• SetTime