【vfp开源代码栏目提醒】：以下是网学会员为您推荐的vfp开源代码-GetDate.prg，希望本篇文章对您学习有所帮助。

    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