Option Explicit
 
' ===================================================================
'   Zeitzonen (GES)
'
' Funktion zum Anzeigen verschiedener "Zeitzonen", indem zur
' aktuellen Zeit ein beliebiger Unterschied hinzuaddiert wird.
' Die Funktion zeigt auch dann den richtigen Wert an,
' wenn die 00:00:00 Uhr - Grenze überschritten wird.
' Wahlweise kann das Datum mitangezeigt werden.
'
' Autor:
' Gudio Eisenbeis Software (GES), guidoeisenbeis@web.de, 2003-11-13
' ===================================================================
 
 
Private Sub Form_Load()
    Timer1.Interval = 1000 ' ist 1 Sekunde
    Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
 
    ' Label1 zeigt die normale Zeit an
    Label1.Caption = Time
 
    ' Label2 zeigt eine "Zeitzone" an,
    ' in der es z.B. 2 Stunden später ist
    Label2.Caption = Zeitzone(2, 0, 0)
 
    ' Label3 zeigt eine "Zeitzone" an,
    ' in der es z.B. 4 Stunden und 38 Minuten später ist
    Label3.Caption = Zeitzone(4, 38, 0)
 
    ' ... usw.
End Sub
 
Private Function Zeitzone(ByVal StdUnterschied As Long, _
                          ByVal MinUnterschied As Long, _
                          ByVal SekUnterschied As Long, _
                          Optional DatumAusgeben As Boolean = False)
 
    Zeitzone = DateAdd("h", StdUnterschied, Now)
    Zeitzone = DateAdd("n", MinUnterschied, Zeitzone)
    Zeitzone = DateAdd("s", SekUnterschied, Zeitzone)
    If DatumAusgeben = False Then Zeitzone = TimeValue(Zeitzone)
End Function