如何用VB2005编写一个时钟校准程序，我的目的是你可以设置任意一个时间，然后此时间作为系统的时间。

Question

我做的是GPS时钟校准程序，现在只需要知道如何用VB2005编写，或者告知VB2005中那个控件具有操作修改系统时间的功能，有程序赋程序更好。能调试出来的，或者基本上可以联系到时钟校准的，对此次编写有帮助的，双倍给分

Answer 1

其实很简单 你们想得太多了

设置系统时间，只需一句：
TimeOfDay = #17:21:10 AM#
或
TimeString = "17:21:10 "

设置系统日期，同样只须一句：
Today = #7/8/2005#
或
DateString = "2005-7-8 "

注意：仅在VB.net中有效。

Answer 2

Const PI = 3.14159
Dim Len_S As Single
Dim Len_M As Single
Dim Len_H As Single

Private Sub cmdExit_Click()
End
End Sub

Private Sub Form_Load()
Len_S = Sqr((LineS.Y2 - LineS.Y1) ^ 2 + (LineS.X2 - LineS.X1) ^ 2)
Len_M = Sqr((LineM.Y2 - LineM.Y1) ^ 2 + (LineM.X2 - LineM.X1) ^ 2)
Len_H = Sqr((LineH.Y2 - LineH.Y1) ^ 2 + (LineH.X2 - LineH.X1) ^ 2)
Call Timer1_Timer
End Sub

Private Sub Timer1_Timer()
Dim s As Single
Dim m As Single
Dim h As Single
Form1.Caption = Time
s = Second(Time)
m = Minute(Time)
h = Hour(Time) + m / 60
LineS.X2 = LineS.X1 + Len_S * Sin(PI * s / 30)
LineS.Y2 = LineS.Y1 - Len_S * Cos(PI * s / 30)
LineM.X2 = LineM.X1 + Len_M * Sin(PI * m / 30)
LineM.Y2 = LineM.Y1 - Len_M * Cos(PI * m / 30)
If h > 12 Then h = h - 12
LineH.X2 = LineH.X1 + Len_H * Sin(PI * h / 6)
LineH.Y2 = LineH.Y1 - Len_H * Cos(PI * h / 6)
Label6.Caption = Format(Date, "yyyy-mm-dd")
End Sub

我有源程序，留下地址，我给你发