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