[Openroad-users] WindowsAPI call to GetLocalTime

[jade clements]

Hi Ross, I changed the variables to 2-byte integers and get a runtime error
at the GetLocalTime procedure call.

 

 

 

  _____  

From: openroad-users-bounces at peerlessit.com
[mailto:openroad-users-bounces at peerlessit.com] On Behalf Of
rkummer at auspinners.com.au
Sent: Monday, 21 April 2008 12:38 PM
To: International OpenROAD Users
Subject: Re: [Openroad-users] WindowsAPI call to GetLocalTime

 


Hi Jade. I think the main problem is the call to GetLocalTime expects
variables to be 2-byte integers but you're passing 4-byte integers so all
the information returned is being scrambled. I thinks that's why the "day"
value changes on every run because it probably holds some of the seconds
and/or milliseconds info. I tried it with smallint's but that seemed to be
worse, I'm not sure why. 







"jade clements" <jade.clements at myworkplace.com.au> 
Sent by: openroad-users-bounces at peerlessit.com 

21/04/2008 12:23 PM 


Please respond to
International OpenROAD Users <openroad-users at peerlessit.com>


To

<openroad-users at peerlessit.com> 


cc

 


Subject

[Openroad-users] WindowsAPI call to GetLocalTime

 


 

 




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 
  
 <http://www.myworkplace.com.au/> 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. 
  
  


______________________________________________________________________
This email has been scanned by the MessageLabs Email Security System.
For more information please visit http://www.messagelabs.com/email 
____________________________________________________________________________
__________________________________________________________
OpenROAD-Users mailing list

You can maintain your subscription here:
http://www.peerlessit.com/mailman/listinfo/openroad-users

To unsubscribe click on this link
mailto:openroad-users-unsubscribe at peerlessit.com&subject=unsubscribe

To subscribe click on this link
mailto:openroad-users-subscribe at peerlessit.com&subject=subscribe 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.peerlessit.com/pipermail/openroad-users/attachments/20080421/7074c400/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/7074c400/attachment.jpe