Uurzones: code

In deze uitwerking hebben de controls de volgende namen:

We gebruiken een Timer om de tijd weer te geven.
De ComboBox vullen we bij het opstarten van het formulier (Load van Form)
For t = -12 To 12
cboVerschil.AddItem t
Next t
Nu kunnen we de waarde van de combobox (de Text eigenschap) gebruiken om het verschil in uren te berekenen. We kunnen dat doen op twee manieren:
- Met DateAdd("h",..,...): het verschil, in uren uitgedrukt, wordt opgeteld.
- Ofwel gebruiken we die string om een uur op te bouwen in de vorm van #0:00:00#. In dat geval even opletten: VB weigert een negatief getal als uur. We kunnen van een negatief geval (bv -6) echter een postief getal maken door er 24 bij op te tellen (-6+24=18) , en dan de rest bij deling door 24 te nemen (+18).
Het tonen van de tijd gebeurt door de Timer. Hij bevat:
lblTijdThuis.Caption = Format(Now, "hh:mm:ss")
en bovendien
lblTijdElders.Caption = Format(DateAdd("h", Me.cboVerschil.Text, Now), "hh:mm:ss")
of, als men het op de andere manier doet:
Dim verschil As Date
verschil = CDate((cboVerschil.Text + 24) Mod 24 & ":00:00")
lblTijdElders.Caption = Format(Now + verschil, "hh:mm:ss")
Voor het instellen van de benamingen gebruiken we een InputBox bij de gebrurtenis Click van het label in kwestie. Bijvoorbeeld:
Dim buffer As String
buffer = InputBox("Geef een nieuwe benaming voor ELDERS")
If Not buffer = "" Then lblElders.Caption = buffer
Je kan dit project downloaden.