[Openroad-users] WindowsAPI call to GetLocalTime

jade clements jade.clements at myworkplace.com.au
Mon Apr 21 12:18:26 EST 2008


Hello,

 

I'm using a Window's API call, GetLocalTime, to obtain the user's pc time
however I'm getting some weird results.

 

procedure zGetTime ( ) =

declare

    wYear = INTEGER NOT NULL;

    wMonth = INTEGER NOT NULL;

    wDayOfWeek = INTEGER NOT NULL;

    wDay = INTEGER NOT NULL;

    wHour = INTEGER NOT NULL;

    wMinute = INTEGER NOT NULL;

    wSecond = INTEGER NOT NULL;

    wMilliseconds = INTEGER NOT NULL;

 

enddeclare

{

    CALLPROC GetLocalTime(

        byref(wYear), 

        byref(wMonth), 

        byref(wDayOfWeek), 

        byref(wDay), 

        byref(wHour), 

        byref(wMinute), 

        byref(wSecond), 

        byref(wMilliseconds));

 

CurProcedure.TRACE(

    'Year: ' + VARCHAR(wYear) + 

    ' Mth: ' + VARCHAR(wMonth) + 

    ' Day: ' + VARCHAR(wDay) + 

    ' Hr: ' + VARCHAR(wHour) + 

    ' Min: ' + VARCHAR(wMinute) + 

    ' Sec: ' + VARCHAR(wSecond) + 

    ' DOW: ' + VARCHAR(wDayOfWeek)); 

}

 

 

Result:

Year: 264152 Mth: 1376257 Day: 45023240 Hr: 0 Min: 0 Sec: 0 DOW: 917516

 

The Day value changes everytime the procedure is run.

 

The API guide mentions that the GetSystemTime function returns the system
time expressed in Coordinated Universal Time (UTC).  I guess the same goes
for GetLocalTime however, the return values just aren't right.

 

 

Can anyone help?

 

 

 

Regards

Jade Clements

 



 

MyWorkplace Solutions Pty Limited

Level 5, 11 Queens Road

Melbourne Victoria 3004

 

 

Ph:  1300 733 731

Making Service our Priority

 

www.MyWorkplace.com.au

 

If you receive this email by mistake, please notify us and do not make any
use of the email. We do not waive any privilege, confidentiality or
copyright associated with it.

 

 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.peerlessit.com/pipermail/openroad-users/attachments/20080421/01dd9234/attachment.html 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: image/jpeg
Size: 1436 bytes
Desc: not available
Url : http://www.peerlessit.com/pipermail/openroad-users/attachments/20080421/01dd9234/attachment.jpe 


More information about the Openroad-users mailing list