Foxla sistem tarihini ve saatini nasıl değiştirebilirim.

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)

  SetLocalTime(@lcNewTime)

EndFunc

 

Function Num2Word

  Lparameters tnDecimal

  Return Chr(m.tnDecimal%256)+Chr(Int(m.tnDecimal/256))

EndFunc