RDOTimezones object

 

RDOTimezones collection  represents time zones as defined by the entries in the HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones registry key

 

Returned by:

RDOSession.Timezones

 

The example below prints out the names of all time zones.

set Session = CreateObject("Redemption.RDOSession")
set Timezones = Session.Timezones
for each TZ in Timezones
  Debug.Print TZ.Name
next

 

Properties

Methods

 

Derived from: IDispatch

Properties

Count

integer, read-only. Returns the number of time zones in the collection

 

See Item() method help below

CurrentTimeZone

RDOTimezone, read-only. Returns the current time zone

set Session = CreateObject("Redemption.RDOSession")
MsgBox "The current Time Zone is" & vbCrLf & Session.Timezones.CurrentTimezone.Name

 

_Item[Index]

Returns an instance of the RDOTimeZone object with the given Index.

Default property.

 

Index - Variant, either an integer (1 through Count) or a string representing time zone id or name.

 

See Item() method help below

Methods

ConvertTime(SourceDateTime, SourceTimeZone, DestinationTimeZone)

Converts date/time value from one time zone to another time zone.

 

SourceDateTime - a date/time value expressed in the original time zone

SourceTimeZone - The original time zone (RDOTimeZone) of the date/time value to be converted

TargetTimeZone - The target time zone (RDOTimeZone) to which the date/time value is to be converted.

 

set Session = CreateObject("Redemption.RDOSession")
set Timezones = Session.Timezones
set TZ1 = Timezones("Eastern Standard Time")
set TZ2 = Timezones("Pacific Standard Time")
DT1 = #12/9/2006 9:00#
DT2 = Timezones.ConvertTime(DT1, TZ1, TZ2)
MsgBox DT1 & " in " & TZ1.ID & " is " & DT2 & " in " & TZ2.ID

LocalTimeToUTC(Value)

Converts a date-time value from the local time zone to Coordinated Universal Time (UTC).

 

Value - date-time

 

set Session = CreateObject("Redemption.RDOSession")
set Timezones = Session.Timezones
DT = Timezones.LocalTimeToUTC(Now)
MsgBox "It is now " & DT & " in the UTC time zone"

 

Item(Index)

Returns an instance of the RDOTimeZone object with the given Index.

 

Index - Variant, either an integer (1 through Count) or a string representing time zone id or name.

 

set Session = CreateObject("Redemption.RDOSession")
set Timezones = Session.Timezones
for i = 1 to Timezones.Count
  Debug.Print Timezones.Item(i).Name
next

UTCToLocalTime(Value)

Converts a date-time value that is specified in the Coordinated Universal Time (UTC) format to the value in the local time zone.

 

Value - date-time