vb中如何显示及时时间，如何将这个时间记录到数据库中

可以用时间函数比如：

date 截取当前系统时间（不包含时分秒）

now 截取当前系统时间（包含时分秒）

day(date) 截取当前天

month(date) 截取当前月

year(date) 截取当前年

hour(now)截取当前时

minute(now) 截取当前分

second (now) 截取当前秒

然后连接数据库把取到的数据插入里面就可以了

不是很明白你的意思！你是要保存起来下次继续读取这个数呢？还是每次得到一个数存一个数？

第一种情况：使用WINAPI函数 GetPrivateProfileStringA 详细的去找资料 存进INI文本文档 或者直接用 Open App.Path + "\**.txt" For Output As #10

Write

close 语句写入文本文档 (详细的例子去找资料)

程序再次启动时直接读取，这个就无法存储每次的数据，只能存储最后一次的计算结果

第二种情况呢 就是写入数据库，每得到一次数据写入一次。然后程序再次启动时 读取最后一条数据 。

Dim i As Long, x As Long

Private Sub Form_Load()

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

i = i + 1

If i >= 120 Then

i = 0

x = x + 1

Open "d:\temp\" &Date &".txt" For Append As #1

Print #1, x &" " &text1.Text

Close #1

End If

End Sub

=====================

你自己的代码

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Timer1_Timer()

Text1.Text = Time()

End Sub

你有设置timer控件Timer1.Interval = 1000 间隔时间么？如果没有那又如何将系统时间赋值给text1控件呢？

还有什么问题 加我百度HI吧。。直接发个工程给你。。

---