Jag har behov av att kunna beräkna tid och det även på utrikiska
På svenska enligt följande:
Tid = Time
If Tid < "23:59:59" Then GoTo Idag

Hur får jag detta att funka internationellt?

Använd datum/tid konstanter:

T.ex.

    if Tid < #11:59:59 PM#Then GoTo Idag

Jag tycker din ifsats är ett mycket underligt sätt att kontrolera om en tidpunkt är idag.
I samanhang med tidpunkter är det ofta dumt att dela upp datumet och klockslag. Det är bättre att jämföra dem som en tidpunkt.

Så här skulle jag kontrolera om en tidpunkt infaller idag:
<code>
Function IsToday(Value As Date) As Boolean
If Value >= Date Then
If Value < DateAdd("d", 1, Date) Then
IsToday = True
End If
End If
End Function

Sub TestIsToday()
Dim d As Date
Dim t As Date
Dim dt As Date
d = #7/26/2005#
t = #11:10:41 AM#

dt = d + t

If IsToday(dt) Then
Debug.Print "It's today!"
Else
Debug.Print "It's not today!"
End If
End Sub
</code>

Frågan tarvar nog mer info.Vad vill du åstadkomma ?

Skulle lägga upp en databas med all zontider med ref till UTC /GMT.

Om du vill veta ToDay på Fidji så gäller det att hålla tungan rätt i mun.

Tack för råden. Mitt hjärnsläpp har släppt så vi kan lägga ner detta.
/Bo