* 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)
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only