RDOTimezoneAdjustmentRules object

 

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

    next

  End If

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

next  

 

Properties

Methods

 


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).