TIME %AddIntervalLocal(
   TIME in TimeA,
   REAL in TimeR,
   INT  in timeZone :=  %GetTimeZone()
 )

 ; =================================================================
 ;  Slovakia (country for this example)
 ;  Time zone is UTC+1.
 ;  There are summer [A] and winter [B] time (with time shifts).
 ;  Summer time is from 29th March 2009 to 24th October 2009.
 ;  A3:00:00 is changed to B2:00:00 on Sunday (25th October 2009).
 ; =================================================================
 
 
 BEGIN
 
  TIME _baseTime
 
  TIME _addLocal1
  TIME _addLocal2
 
  ; UTC 23:30:00 24.10.2009
  _baseTime := %StrToTimeEx("01:30:00 25.10.2009", "hh:mi:ss dd-mm-rrrr")
 
  ; add 1 hour - result time 25-10-2009 A2:30:00.000
  _addLocal1 := %AddIntervalLocal(_baseTime, 3600)
  ; add 2 hour - result time 25-10-2009 03:30:00.000
  _addLocal2 := %AddIntervalLocal(_baseTime, 7200)
 
 END