RDO

RDOTimezoneAdjustmentRules object is collection of RDOTimezoneAdjustmentRule objects .

Returned by:

RDOTimeZone.AdjustmentRules

The example below loops through all time zones and outputs their DST transition times.

set Session = CreateObject("Redemption.RDOSession")

for each Timezone in Session.Timezones

Debug.Print Timezone.Name

set adjustments = Timezone.AdjustmentRules

if adjustments.Count = 0 Then

Debug.Print " there are no adjustment rules"

Else

for i = 1 to adjustments.Count

set objAdjustment = adjustments(i)

Debug.Print " Rule # " & i

Debug.Print " Start Date : " & objAdjustment.DateStart

Debug.Print " End Date : " & objAdjustment.DateEnd

Debug.Print " Time change: " & Hour(objAdjustment.DaylightDelta) & " hours"

set transitionStart = objAdjustment.DaylightTransitionStart

Debug.Print " Annual Start: "

if transitionStart.IsFixedDateRule Then

Debug.Print " On month " & transitionStart.Month & ", day " & transitionStart.Day & ", at hour " & Hour(transitionStart.TimeOfDay)

Else

Debug.Print " On month " & transitionStart.Month & ", week " & transitionStart.Week & ", day of week " & transitionStart.DayOfWeek & _

", at hour " & Hour(transitionStart.TimeOfDay)

End If

set transitionStart = objAdjustment.DaylightTransitionEnd

Debug.Print " Annual End: "

if transitionStart.IsFixedDateRule Then

Debug.Print " On month " & transitionStart.Month & ", day " & transitionStart.Day & ", at hour " & Hour(transitionStart.TimeOfDay)

Else

Debug.Print " On month " & transitionStart.Month & ", week " & transitionStart.Week & ", day of week " & transitionStart.DayOfWeek & _

", at hour " & Hour(transitionStart.TimeOfDay)

End If

Debug.Print " ------------------------------------------------- "


Derived from: IDispatch

Properties

Count	Returns the number of RDOTimezoneAdjustmentRule objects in the collection.

Methods

Item(index)	Returns RDOTimezoneAdjustmentRule object with the given index (1 through Count).