在VFP中利用SetLocalTime函数调用设置系统日期或时间
出处:网络

*-- 源自网上，红虎整理

*-- 测试环境：中文VFP6+PWin98SE

*-- 使用方法：SetSystemDateTime( )

*-- 如：
Messagebox("现在时间为：" + ttoc(DateTime()))
ltTomTime = DateTime() + 24*60*60
If SetSystemDateTime(ltTomTime)

Messagebox("明天的这个时候：" + ttoc(DateTime()))

ltTomTime = DateTime() - 24*60*60

If SetSystemDateTime(ltTomTime)

Messagebox("现在的时间：" + ttoc(DateTime()))

Else

Messagebox("时间设置错误！")

Endif
Else

Messagebox("时间设置错误！")
Endif
Func SetSystemDateTime

*-- 接受时间型参数

Para ttDateTime
If Type("ttDateTime") # "T"

Messagebox("参数错误！",16,"更新时间")

Retu .F.

Endif

lcDateTime = Ttoc(ttDateTime,1)

lnYear = Year(ttDateTime) && 年

lnMonth = Month(ttDateTime) && 月

lnDay = Day(ttDateTime) && 日

lnWeek = Dow(ttDateTime) - 1 && 周

lnHour = Hour(ttDateTime) && 时

lnMinute = Minute(ttDateTime) && 分

lnSecond = Sec(ttDateTime) && 秒

lnMinSec = 0 && 微秒

*-- 将转换后的二进制字符连接

lcBuf = h2str(lnYear) + h2str(lnMonth) + h2str(lnWeek) + ;

h2str(lnDay) + h2str(lnHour) + h2str(lnMinute) + ;

h2str(lnSecond) + h2str(lnMinSec)

DECLARE SHORT SetLocalTime IN win32api STRING SystemTime

=SetLocalTime(lcBuf) &&设置系统日期

Retu .T.

*-- 以下是将十进制转换为二进制的自定义函数

Func h2str

Para lnHex

Priv lnBin

lnBin = Chr(lnHex%256) + Chr(lnHex/256)

*-- 返回二进制数

Retu lnBin

[返回]

首页 | 设为首页 | 加入收藏 | 关于本站 | 友情链接 | 版权声明