* change date
* thisform.dnewdate is the new date

DECLARE INTEGER SetLocalTime IN Kernel32 AS SST STRING @ PTIME
CLEAR

WITH THISFORM
n_Year = YEAR(.dNewdate)
n_Month = MONTH(.dNewdate)
n_DayOfWeek = DOW(.dNewdate)
n_Day = DAY(.dNewdate)
n_Hour = HOUR(.dNewdate)
n_Minutes = MINUTE(.dNewdate)
n_Seconds = SEC(.dNewdate)
n_MSeconds = 0
ENDWITH

c_Year = CHR( n_Year%256) + CHR( n_Year/256)
c_Month = CHR( n_Month%256) + CHR( n_Month/256)
c_DayOfWeek = CHR( n_DayOfWeek%256) + CHR( n_DayOfWeek/256)
c_Day = CHR( n_Day%256) + CHR( n_Day/256)
c_Hour = CHR( n_Hour%256) + CHR( n_Hour/256)
c_Minutes = CHR( n_Minutes%256) + CHR( n_Minutes/256)
c_Seconds = CHR( n_Seconds%256) + CHR( n_Seconds/256)
c_MSeconds = CHR( n_MSeconds%256) + CHR( n_MSeconds/256)

yy = c_Year + c_Month + c_DayOfWeek + c_Day + c_Hour + c_Minutes + c_Seconds + c_MSeconds
SST( @yy)