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

result = SetDate( newdate )

newdate

在除DOS之外的所有端口上，在成功或非零故障时返回零。

要设置您刚刚格式化newdate 的日期并按照以下方式之一发送到SetDate{"mm/dd/yyyy"（mm）为"mm/dd/yyyy"（mm）的有效格式， dd是今天的yy或yyyy.

Dim m As String, d As String, y As String
m = "03" '游行
d = "13" '十三号
y = "1994" 'good ol'天
SetDate m + "/" + d + "/" + y

• DATE语句在QB中使用，语法为“DATE = string ”
  
  

• Date
  
• SetTime