SETDATE

• 来源: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgSetdate
• 最后更新: 2017-01-23

---

设置当前系统日期

语法

` declare function Setdate ( byref newdate as const string ) as long

`

用法

` result = Setdate( newdate )

`

参数

newdate

要设置的新日期

返回值

在除 DOS 以外的所有平台上，成功时返回零，失败时返回非零值。

说明

要设置日期，只需将 newdate 格式化后按以下有效格式之一传递给 Setdate："mm-dd-yy"、"mm-dd-yyyy"、"mm/dd/yy" 或 "mm/dd/yyyy"（mm 为月份，dd 为日，yy 或 yyyy 为年份）。两位数年份以 1900 年为基准。

Setdate 返回的错误码可以在下一行使用 Err 进行检查。函数版本的 Setdate 直接以 32 位 Long 类型返回错误码。

示例

start GeSHi

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

end GeSHi

平台差异

• 在 Windows 上需要 SE_SYSTEMTIME_NAME 特权，这通常意味着调用进程必须以管理员权限运行。
• 在 Linux 上需要 CAP_SYS_TIME 能力，这通常意味着调用进程必须以 root/超级用户身份运行。

与 QB 的差异

• QB 中使用 DATE 语句，语法为 "DATE = string"

参见

• Date
• Settime

返回 目录