` Comment on an Icetips Article
Icetips - Templates, Tools & Utilities for Clarion Developers

Templates, Tools and Utilities
for Clarion Developers

Add a comment to an Icetips Article

Please add your comments to this article. Please note that you must provide both a name and a valid email address in order for us to publish your comment. Comments are moderated and are not visible until they have been approved. Spam is never approved!

Your Name:  
Email:  
Header text/Subject:  

Please enter your comment in the box below:
Back to article list   Search Articles     Add Comment     Printer friendly     Direct link  

Par2: Geting GMT/UTC from Windows
2003-05-27 -- Scott Ripley
 
Here's a completed source module that does the trick program map MODULE('Windows32') GetSystemTime(*SYSTEMTIME),PASCAL,RAW END end SystemTimeType GROUP,TYPE wYear USHORT wMonth USHORT wDayOfWeek USHORT wDay USHORT wHour USHORT wMinute USHORT wSecond USHORT wMilliseconds USHORT END SystemTime LIKE(SystemTimeType) UTC_Date LONG UTC_Time LONG CODE GetSystemTime(SystemTime) UTC_Date = DATE(SystemTime.WMONTH,SystemTime.WDAY,SystemTime.WYEAR) UTC_Time = (SystemTime.WHOUR * 360000) + | (SystemTime.WMINUTE * 6000) + | (SystemTime.WSECOND * 100) MESSAGE('Date =<9>'&FORMAT(UTC_Date,@d4) & | '|Time =<9>'&FORMAT(UTC_Time,@t6),'UTC Time')

Today is May 8, 2024, 7:00 pm
This article has been viewed 35119 times.


Back to article list   Search Articles   Add Comment   Printer friendly

Login

User Name:

Password:


Gold Subscription
Buy Now
Silver Subscription
Buy Now
Solo Subscription
Buy Now
Multiple Copy Pricing
Renew Subscription