ltNow = Datetime() ? 'Now',Datetime() SetSystemDate({^2002/1/3}) ? 'Set to',Datetime() SetSystemDate(m.ltNow) ? 'Set back to',Datetime() Function SetSystemDate Lparameters tdDate Declare Integer SetLocalTime In win32api String @ lpTime Declare Integer GetLocalTime In win32api String @ lpTime Local lpCurrent, lcNewTime lpCurrent = Space(40) GetLocalTime(@lpCurrent) && save current lcNewTime = Num2Word(Year(m.tdDate))+; Num2Word(Month(m.tdDate))+; Num2Word(Dow(m.tdDate))+; Num2Word(Day(m.tdDate))+; Substr(m.lpCurrent,9) SetLocalTime(@lcNewTime) && Warning: Intentionally called twice SetLocalTime(@lcNewTime) EndFunc Function Num2Word Lparameters tnDecimal Return Chr(m.tnDecimal%256)+Chr(Int(m.tnDecimal/256)) EndFuncCetin