时间计算器在线计算 日期(时间计算器)
2024-07-02 22:45:42
导读 大家好,小东方来为大家解答以上的问题。时间计算器在线计算 日期,时间计算器这个很多人还不知道,现在让我们一起来看看吧!1、Private Su...
大家好,小东方来为大家解答以上的问题。时间计算器在线计算 日期,时间计算器这个很多人还不知道,现在让我们一起来看看吧!
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。
本文到此分享完毕,希望对大家有所帮助。
免责声明:本文由用户上传,如有侵权请联系删除!
猜你喜欢
- 07-02
- 07-02
- 07-02
- 07-02
- 07-02
- 07-02
- 07-02
- 07-02
最新文章
- 07-02
- 07-02
- 07-02
- 07-02
- 07-02
- 07-02
- 07-02
- 07-02