时间计算器在线计算 小时_时间计算器_通讯

(资料图片)

1、Private Sub Command1_Click() Dim st As Date Dim ed As Date st = CDate(Text1.Text &":"& Text2.Text) ed = CDate(Text3.Text &":"& Text4.Text) Dim v As Double Dim m As Long m = DateDiff("n", st, ed) v = m * 2.5 Label5.Caption ="总计时间"& m &"分钟"Label6.Caption ="总金额"& v End Sub Private Sub Form_Load() Label1.Caption ="开始时间"Label2.Caption ="结事时间"Text1 =""Label3.Caption =":"Text2 =""Text3 =""Label4.Caption =":"Text4 =""Label5.Caption ="总计时间"Label6.Caption ="总金额"Command1.Caption ="计算"End Sub。

本文分享完毕，希望对大家有所帮助。

关键词： 总计时间 开始时间