FUNCTION API_SetLocalTime LPARAMETERS ltDateTime ** EXAMPLE ? API_SetLocalTime(DATETIME(1964,10,07,18,0,0)) IF VARTYPE(ltDateTime) # "T" RETURN .F. ENDIF LOCAL lcString lcString = _Num2Word(YEAR(ltDateTime)) + ; _Num2Word(MONTH(ltDateTime)) + ; _Num2Word(DOW(ltDateTime)) + ; _Num2Word(DAY(ltDateTime)) + ; _Num2Word(HOUR(ltDateTime)) + ; _Num2Word(MINUTE(ltDateTime)) + ; _Num2Word(SEC(ltDateTime)) + ; _Num2Word(000) + SPAC(24) DECLARE SetLocalTime IN Win32Api ; STRING lcString M.SLT_RETVAL = SetLocalTime(lcString) RETURN M.SLT_RETVAL *-------------------------------------- * FUNCTION _Num2Word(lnNumber) *-------------------------------------- FUNCTION _Num2Word(lnNumber) LOCAL lcReturn, lnAscii lcReturn = '' DO WHILE lnNumber >= 256 lnAscii = MOD(lnNumber,256) lcReturn = lcReturn + CHR(lnAscii) lnNumber = INT(lnNumber / 256) ENDDO lnAscii = lnNumber lcReturn = lcReturn + CHR(lnAscii) RETURN PADR(lcReturn, 2, CHR(0)) ENDFUNC *--------------------------------------