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
*--------------------------------------