怎样把VB中timer（计时器控件）的单位MS转换成别的单位，比如毫秒转换成分钟？

怎样把VB中timer（计时器控件）的单位MS转换成别的单位，比如毫秒转换成分钟？

Dim i As Long '新的计时器变量Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
i = i + 1 '计时器按一秒累加一次
If i < 60 Then Exit Sub '如果不够一分钟 则不执行下面的过程 60 单位是秒 当然可以改成 3600 一个小时
i = 0 '当够一分钟了 计时器归0重新计算
MsgBox "一分钟到了" '需要执行的代码
'......................
'......................End Sub

呵呵，，你上面定义了这些:

dim n1 as long
dim n2 as long
dim n3 as long

long呢是数值类型的，format函数呢是字符串类型的，当然不对咯。

定义成 string

就可以了

dim n1 as string

dim n2 as string

dim n3 as string