Question

vba 计算时间差 可以跨日的时间差化成分钟不足一分钟的按一分钟计算

只要代码就好啊 谢谢

Answer 1

Private Sub CommandButton1_Click() '开始按钮
TextBox1 = Now()   '开始时间
TextBox2 = ""      '结束时间
TextBox3 = ""      '通话分钟
End Sub
Private Sub CommandButton2_Click() '结束计费按钮
TextBox2 = Now()
ss = DateDiff("s", TextBox1, TextBox2)
TextBox3 = IIf(ss Mod 60 = 0, ss \ 60, ss \ 60 + 1)
TextBox4 = Format(Int(TextBox3) * 0.39, "0.00")     '应付金额（按0.39元/分）
End Sub