GetSystemTime获取系统时间

阿杰

&&GetSystemTime获取系统时间
DECLARE INTEGER GetSystemTime IN win32api STRING @
cBuff=SPACE(40)
=GetSystemTime(@cBuff)
*---------------------------------------------------------------------
* GetSystemTime returns a structure of WORD (16-bit unsigned integer)
* values.  These values are stored in a character variable in Visual
* FoxPro and need to be converted back to 16-bit values from the 8-bit
* characters.
*----------------------------------------------------------------------
#DEFINE YEAR_LOC "年: "
#DEFINE MONTH_LOC "月: "
#DEFINE DOW_LOC "星期: "
#DEFINE DAY_LOC "日: "
#DEFINE HOUR_LOC "小时(UTC 时间): "
#DEFINE MINUTE_LOC "分钟: "
#DEFINE SECOND_LOC "秒: "
#DEFINE MILLI_LOC "毫秒: "
? YEAR_LOC + ALLTRIM(STR(ASC(SUBSTR(cBuff,2,1)) * 256 + ASC(SUBSTR(cBuff,1,1))))
? MONTH_LOC + ALLTRIM(STR(ASC(SUBSTR(cBuff,4,1)) * 256 + ASC(SUBSTR(cBuff,3))))
?DOW_LOC + ALLTRIM(STR(ASC(SUBSTR(cBuff,6,1)) * 256 + ASC(SUBSTR(cBuff,5,1))))
? DAY_LOC + ALLTRIM(STR(ASC(SUBSTR(cBuff,8,1)) * 256 + ASC(SUBSTR(cBuff,7,1))))
?HOUR_LOC + ALLTRIM(STR(ASC(SUBSTR(cBuff,10,1)) * 256 + ASC(SUBSTR(cBuff,9,1))))
? MINUTE_LOC + ALLTRIM(STR(ASC(SUBSTR(cBuff,12,1)) * 256 + ASC(SUBSTR(cBuff,11,1))))
?SECOND_LOC + ALLTRIM(STR(ASC(SUBSTR(cBuff,14,1)) * 256 + ASC(SUBSTR(cBuff,13,1))))
? MILLI_LOC + ALLTRIM(STR(ASC(SUBSTR(cBuff,16,1)) * 256 + ASC(SUBSTR(cBuff,15,1))))
CLEAR DLLS