LOCAL lcBuffer as String 
LOCAL lnYear as Integer 
LOCAL lnMonth as Integer 
LOCAL lnDayOfWeek as Integer 
LOCAL lnDay as Integer 
LOCAL lnHour as Integer 
LOCAL lnMinute as Integer 
LOCAL lnSecond as Integer 
LOCAL lnMilliseconds as Integer 
lcBuffer=SPACE( 16 )
DECLARE integer GetLocalTime IN WIN32API string @
=GetLocalTime(@lcBuffer)
CLEAR DLLS GetLocalTime
lnYear=ASC(SUBSTR(lcBuffer, 1 , 1 ))+ASC(SUBSTR(lcBuffer, 2 , 1 ))* 256 
lnMonth=ASC(SUBSTR(lcBuffer, 3 , 1 ))+ASC(SUBSTR(lcBuffer, 4 , 1 ))* 256 
lnDayOfWeek=ASC(SUBSTR(lcBuffer, 5 , 1 ))+ASC(SUBSTR(lcBuffer, 6 , 1 ))* 256 
lnDay=ASC(SUBSTR(lcBuffer, 7 , 1 ))+ASC(SUBSTR(lcBuffer, 8 , 1 ))* 256 
lnHour=ASC(SUBSTR(lcBuffer, 9 , 1 ))+ASC(SUBSTR(lcBuffer, 10 , 1 ))* 256 
lnMinute=ASC(SUBSTR(lcBuffer, 11 , 1 ))+ASC(SUBSTR(lcBuffer, 12 , 1 ))* 256 
lnSecond=ASC(SUBSTR(lcBuffer, 13 , 1 ))+ASC(SUBSTR(lcBuffer, 14 , 1 ))* 256 
lnMilliseconds=ASC(SUBSTR(lcBuffer, 15 , 1 ))+ASC(SUBSTR(lcBuffer, 16 , 1 ))* 256 
SET HOURS TO  24 
SET CENTURY ON
SET DATE LONG
?TTOC(DATETIME(lnYear, lnMonth, lnDay,;
lnHour, lnMinute, lnSecond))+'.'+CHRTRAN(STR(lnMilliseconds, 3 ),' ','0')