我这里打算用两个存放Now值的变量相减获取时差,但是发现输出值是双精度,不知怎么转换成正常的秒数,比如我想精确到毫秒
如果您愿意帮我解决,希望您不要用别的方法写一个计时程序相加减,我需要用这些代码相加减,只希望您能提供一个将减出来的值运算到"秒"为单位的值就好了,我试了用Int居然是0秒...除法的话,我不知道这个长长的双精度数是什么意思``是毫秒单位还是什么,不知道换成秒要用什么公式呢(又好像是单精度吧,但是显示的小数位却那么长?反正想处理成秒数)
谢谢
=======================================================================
Dim a As Date, b As Integer
Private Sub Command1_Click()
    
     If b = 1 Then
         Me.Cls
         a = Now
         Print "第" & b & "次点击时间是:" & a
         b = b + 1
     ElseIf b = 2 Then
         Print "第" & b & "次点击时间是:" & Now
         Print "再次点击的时差为:" & (Now - a) & "秒"
         b = 1
     End If
    
End Sub
Private Sub Form_Load()
     b = 1
End Sub


1000倍

86400倍为秒 在这基础上1000倍为毫秒

谢谢