>SetSystemDate(Datetime(2006, 12, 10,10,10,10)) >Function SetSystemDate > Lparameters tdDate > Declare Integer SetLocalTime In win32api String @ lpTime > Declare Integer GetLocalTime In win32api String @ lpTime > Local lpCurrent, lcNewDateTime, lcNewTime > > lcNewTime = Right(Ttoc(tddate, 1), 6) > lpCurrent = Space(40) > GetLocalTime(@lpCurrent) && save current > > lcNewDateTime = Num2Word(Year(m.tdDate))+; > Num2Word(Month(m.tdDate))+; > Num2Word(Dow(m.tdDate))+; > Num2Word(Day(m.tdDate))+; > Num2Word(Val(Left(m.lcNewTime, 2))) +; > Num2Word(Val(Substr(m.lcNewTime, 3, 2))) +; > Num2Word(Val(Right(m.lcNewTime, 2))) > > SetLocalTime(@lcNewDateTime) >* SetLocalTime(@lcNewTime) > >EndFunc > >Function Num2Word > Lparameters tnDecimal > Return Chr(m.tnDecimal%256)+Chr(Int(m.tnDecimal/256)) >EndFunc >>