Other Databases

Development Platform:

VFP

GetDate.prg：Code Content

							DECLARE Integer GetSystemTime IN WIN32API String @
cBuffer=SPACE(16)
=GetSystemTime(@cBuffer)
nYear=HexToDec(SUBSTR(cBuffer,1,2))
nMonth=HexToDec(SUBSTR(cBuffer,3,2))
nDOW=HexToDec(SUBSTR(cBuffer,5,2))
nDay=HexToDec(SUBSTR(cBuffer,7,2))
nHour=HexToDec(SUBSTR(cBuffer,9,2))
nMinute=HexToDec(SUBSTR(cBuffer,11,2))
nSecond=HexToDec(SUBSTR(cBuffer,13,2))
nMilliseconds=HexToDec(SUBSTR(cBuffer,15,2))
?nYear,"年",nMonth,"月",nDay,"日   星期",nDow,nHour,"时",nMinute,"分",nSecond,"秒",nMilliseconds,"毫秒"
FUNCTION HexToDec
    LPARAMETERS tcString
    *!* 低位的ASCII码值+高位ASCII码值*256
    nDec=ASC(SUBSTR(tcString,1,1))+ASC(SUBSTR(tcString,2,1))*256
    RETURN nDec
ENDFUNC  

						