1. ## I have just made a clock that runs off of my computer/time zone etc. I am making a program MDI that has 4 time zone clocks in it. How can i change it so that it is 1 hour difference so that ther are 4 clocks in the program but 1 hour difference?  Reply With Quote

2. ## umm... I think i know what you mean but not sure try this:
Code:
```Dim NewTime, TimeZoneTime, TE
Dim AmPm As Boolean

NewTime = Left\$(Time\$, 2) + 1

If NewTime &lt; 0 Or NewTime &gt; 24 Then
'Time exceeds or is too low
If NewTime &lt; 0 Then
Do
NewTime = NewTime + 1
Loop Until NewTime &gt;= 0
Else
Do
NewTime = NewTime - 1
Loop Until NewTime &lt;= 24
End If
End If
'For 'American Time' 12 a.m. / 12 p.m.
AmPm = True
If AmPm = True Then
If NewTime &gt; 12 Then
NewTime = NewTime - 12
TE = " PM"
Else
TE = " AM"
End If
End If
TimeZoneTime = NewTime & Right\$(Time\$, 6) & TE
Text1.Text = TimeZoneTime```
If you make AmPm = True then it makes the time 12 hour if not it uses 24 hour! Works great I just wrote it for you! Feel special?
Hehe ------------------
DiGiTaIErRoR
VB, QBasic, Iptscrae, HTML
Quote: There are no stupid questions, just stupid people.  Reply With Quote

3. ## Intel I would love to get a copy of your clock's source code. I have been trying to make a clock that displayed multiple time zones all at once.

Thanks,
Daniel Christie
danielchristie@hotmail.com  Reply With Quote

4. ## 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 &lt;= 24
End If```
change it to:
Code:
```    Else
Do
ln = ln + 1
NewTime = NewTime - 1
Loop Until NewTime &lt;= 24
NewTime = ln
End If```
That should work!

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

5. ## Here is the code for my clock.
Option Explicit
DefDbl A-Z

Width = 4000
Height = 4000
Left = Screen.Width \ 2 - 4100
Top = (Screen.Height - Height) \ 2
End Sub

Private Sub Form_Resize()
Dim i, Angle
Static Flag As Boolean
If Flag = False Then
Flag = True
For i = 0 To 14
If i &gt; 0 Then Load linClock(i)
linClock(i).Visible = True
linClock(i).BorderWidth = 5
linClock(i).BorderColor = RGB(0, 128, 0)
Next i
End If
For i = 0 To 14
Scale (-1, 1)-(1, -1)
Angle = i * 2 * Atn(1) / 3
linClock(i).X1 = 0.9 * Cos(Angle)
linClock(i).Y1 = 0.9 * Sin(Angle)
linClock(i).X2 = Cos(Angle)
linClock(i).Y2 = Sin(Angle)
Next i
End Sub

Private Sub tmrClock_Timer()
Const HourHand = 0
Const MinuteHand = 13
Const SecondHand = 14
Dim Angle
Static LastSecond
' Position hands only on the second
If Second(Now) = LastSecond Then Exit Sub
LastSecond = Second(Now)
' Position hour hand
Angle = 0.5236 * (15 - (Hour(Now) + Minute(Now) / 60))
linClock(HourHand).X1 = 0
linClock(HourHand).Y1 = 0
linClock(HourHand).X2 = 0.3 * Cos(Angle)
linClock(HourHand).Y2 = 0.3 * Sin(Angle)
' Position minute hand
Angle = 0.1047 * (75 - (Minute(Now) + Second(Now) / 60))
linClock(MinuteHand).X1 = 0
linClock(MinuteHand).Y1 = 0
linClock(MinuteHand).X2 = 0.7 * Cos(Angle)
linClock(MinuteHand).Y2 = 0.7 * Sin(Angle)
' Position second hand
Angle = 0.1047 * (75 - Second(Now))
linClock(SecondHand).X1 = 0
linClock(SecondHand).Y1 = 0
linClock(SecondHand).X2 = 0.8 * Cos(Angle)
linClock(SecondHand).Y2 = 0.8 * Sin(Angle)
End Sub

The form is a simple form with 1 line and a timer control.

I will add some code that you have written here to see if it works. My goal is to have the user enter what time zone they want to see and it shows the appropriate clock based on what they want. I have one clock so far in an MDI form. I just have to have a mnu item so that the user can select the time zone they want and it shows up in the MDI form. The clock stays up until the user needs to have more room where they would close the child form clock. This is primaraly the basis of the program. If anyone would like to help me out e-mail me at anyplace@ptd.net.  Reply With Quote

#### Posting Permissions

• You may not post new threads
• You may not post replies
• You may not post attachments
• You may not edit your posts
•