You could edit my code to easily do this:
NewTime = Left$(Time$, 2) + 1
That tells it what time to add(in hours) so it only adds one hour but you could change that to + 2 + 3 etc for each time zone also my code has a bug:
Where this is:
Code:
    Else
        Do
            NewTime = NewTime - 1
        Loop Until NewTime <= 24
    End If
change it to:
Code:
    Else
        Do
            ln = ln + 1
            NewTime = NewTime - 1
        Loop Until NewTime <= 24
        NewTime = ln
    End If
That should work!


------------------
DiGiTaIErRoR
VB, QBasic, Iptscrae, HTML
Quote: There are no stupid questions, just stupid people.