首页 >> 学识问答 >

时长计算器软件(时长计算器)

2024-07-02 22:45:30

问题描述:

时长计算器软件(时长计算器),求解答求解答,求帮忙!

最佳答案

推荐答案

2024-07-02 22:45:30

大家好,小东方来为大家解答以上的问题。时长计算器软件,时长计算器这个很多人还不知道,现在让我们一起来看看吧!

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。

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

  免责声明:本答案或内容为用户上传,不代表本网观点。其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。 如遇侵权请及时联系本站删除。

 
分享:
最新文章