FUNCTION SetTime()
   LOCAL dcDate, cTime, cBuff
   dDate = DATE()
   cTime = TIME()
   cBuff =         Num2WORD(YEAR(dDate))
   cBuff = cBuff + Num2WORD(MONTH(dDate))
   cBuff = cBuff + Num2WORD(1)                      && Day of the week ignore it
   cBuff = cBuff + Num2WORD(DAY(cDate))
   cBuff = cBuff + Num2WORD(VAL(LEFT(cTime,2)))     && Hour
   cBuff = cBuff + Num2WORD(VAL(SUBSTR(cTime,4,2))) && Munites
   cBuff = cBuff + Num2WORD(VAL(RIGHT(cTime,2)))    && Seconds
   cBuff = cBuff + Num2WORD(0)+CHR(0)
   DECLARE INTEGER  SetLocalTime IN WIN32API STRING @cBuff
   SetLocalTime(@cBuff)

RETURN


FUNCTION Num2WORD(tnNum)
	LOCAL x
	x=INT(tnNum)
RETURN CHR(MOD(x,256))+CHR(INT(x/256))