Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Microsoft: FoxPro FAQ

Usefull Functions & Procedures

How to set the computer's system time by Mike Gagnon
Posted: 1 Jul 02

*Note : This API function will reset the system time accoding to the Coordinated Universal Time (UTC). Depending where you are in the world, you have to adjust the hours to the appropriate value and the time of the year (to accomodate the Eastern Standard time) Example in Eastern Canada the adjustment in July would be

lnhour = hour(ltcurrent)-4

Declare integer SetSystemTime in kernel32 STRING@
local lcsystemtime, lnyear, lnmonth, lndayofweek, lnday, lnhour, lnminute, lnsecond, lnmillsecond,ltcurrent
lcsystemtime = space(0)
ltcurrent = datetime()

lnyear = year(ltcurrent)
lnmonth = month(ltcurrent)
lndayofweek = dow(ltcurrent)
lnday = day(ltcurrent)
lnhour = hour(ltcurrent) && Adjustment require
lnminute = minute(ltcurrent)
lnsecond = sec(ltcurrent)
lcsystemtime = NumtoWord(lnyear)+NumtoWord(lnmonth)+NumtoWord(lndayofweek)+NumtoWord(lnday)+ ;
nres = SetSystemTime(@lcsystemtime)
llretval = nres # 0
return llretval

function NumtoWord
lparameter tnNum
lcresult = chr(0)+chr(0)
if tnNum < (2^15 - 1) then
   lcresult = chr(mod(tnNum,256))+chr(int(tnNum/256))
   * not a valid number for a WORD value
return lcresult

Back to Microsoft: FoxPro FAQ Index
Back to Microsoft: FoxPro Forum

My Archive

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close