其他数据库

开发平台：

VFP

setsystime.prg：源码内容

							DECLARE Short SetLocalTime IN WIN32API String SYSTEMTIME
nYear=2004
nMonth=4
nWeek=1     &&2004年4月12日为星期一
nDay=12
nHour=20
nMinute=31
nSecond=0
nMilliseconds=0
cBuffer=DecToHex(nYear)+DecToHex(nMonth)+DecToHex(nWeek)+DecToHex(nDay)+;  &&建立结构字符串
    DecToHex(nHour)+DecToHex(nMinute)+DecToHex(nSecond)+DecToHex(nMilliseconds)
nResult=SetLocalTime(cBuffer)
IF nResult#0
    =MESSAGEBOX("设置成功！")
ELSE 
    =MESSAGEBOX("操作失败！")
ENDIF 
FUNCTION DecToHex     &&返回2字节的字符串
    LPARAMETERS tnNumber
    cHex=CHR(MOD(tnNumber,256))+CHR(INT(tnNumber/256))
    RETURN cHex
ENDFUNC 

						