Time conversion

[heirou]

I'm a novice in this subject....I've made a database that requires a
time conversion. For example, if local time is 1200, determine the
time in Korea. I use two fields: a date field, and a time field. I
need the converted time to show up in a report. I also need the
corresponding date to increment if necessary. Any ideas on how to do
this would be greatly appreciated.

[MGFoster]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

The world is divided into different time zones (see the Map of time
zones, below). Each zone is designated X number of hours from
Greenwich Mean Time (or UTC: Universal Temp Coordination [Universal
Coordinated Time] - pardon my French). To get an accurate time of a
location in the world you'd have to convert your time to UTC (when
your time zone is negative, you'd have to ADD hours to UTC; when your
time zone is positive, you'd have to SUBTRACT hours from UTC.) then
add/subtract number of hours other location is from UTC.

Example (this doesn't include Day Light Savings Time [another can of
worms, since each country defines their own], see free time conversion
software, below):

Oakland time: 21 Nov 2003 1200.

Oakland is -8 UTC
Get UTC: 1200 + 8 = 2000 UTC

Korea is +9 UTC
Get Korea's time relative to previously calculated UTC:
2000 + 9 = 2900 = 1 day & 5 hrs or 22 Nov 2003 0500

===

Items from Google search on "time zone":

Map of time zones:
http://www.worldtimezone.com/

Free software to get time in different zones (untested):
http://www.timezonesforpcs.com/details.htm
Here is some VBA code I devised to get UTC.

== Begin Code ==

Private Const LOCALE_SYSTEM_D EFAULT& = &H800

'************** *************** *****
'** Type Definitions:

Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type

Private Declare Sub GetSystemTime Lib "kernel32" _
(lpSystemTime As SYSTEMTIME)

Private Declare Sub GetLocalTime Lib "kernel32" _
(lpSystemTime As SYSTEMTIME)

Private Declare Function GetTimeFormat& Lib "kernel32" Alias _
"GetTimeFormatA " (ByVal Locale As Long, ByVal dwFlags As Long,
_
lpTime As SYSTEMTIME, ByVal lpFormat As Long, _
ByVal lpTimeStr As String, ByVal cchTime As Long)

Sub ShowTime()

Dim myTime As SYSTEMTIME
Dim strBuffer As String
Dim lng As Long

GetLocalTime myTime
strBuffer = String$(255, Chr$(0))
lng = GetTimeFormat&( LOCALE_SYSTEM_D EFAULT, 0, _
myTime, 0, strBuffer, 254)
Debug.Print "Local Time = "; strBuffer
With myTime
Debug.Print "Local Date = "; _
DateSerial(.wYe ar, .wMonth, .wDay)
End With

GetSystemTime myTime
strBuffer = String$(255, Chr$(0))
lng = GetTimeFormat&( LOCALE_SYSTEM_D EFAULT, 0, _
myTime, 0, strBuffer, 254)
Debug.Print "GMT Time = "; strBuffer
With myTime
Debug.Print "GMT Date = "; _
DateSerial(.wYe ar, .wMonth, .wDay)
End With

End Sub

== End Code ==

HTH,

MGFoster:::mgf
Oakland, CA (USA)
-----BEGIN PGP SIGNATURE-----
Version: PGP for Personal Privacy 5.0
Charset: noconv

iQA/AwUBP78Qk4echKq OuFEgEQJYbgCeLV +f5fbdUyBG+0iWf 3cI3Ld+XyYAoN+q
3CMpyI3yxEqOlGJ tQu2rjes7
=yo22
-----END PGP SIGNATURE-----

heirou wrote:

I'm a novice in this subject....I've made a database that requires a
time conversion. For example, if local time is 1200, determine the
time in Korea. I use two fields: a date field, and a time field. I
need the converted time to show up in a report. I also need the
corresponding date to increment if necessary. Any ideas on how to do
this would be greatly appreciated.