时间计算器app（时间计算器小时）
关于时间计算器app，时间计算器小时这个问题很多朋友还不知道，今天小六来为大家解答以上的问题，现在让我们一起来看看吧！
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。
本文分享完毕，希望对大家有所帮助。
Tags：
相关推荐
- 湖北三江航天建筑工程有限公司以 60925996.99 元中标红林总装厂房二期工程
- 江西省天久地矿建设集团有限公司中标龙里县城区排涝工程勘测
- 北京中和联信供应链管理有限公司中标山地农业科技创新基地植物表型研究设备采购及伴随服务（重新招标）项目，中标金额 7764000 元
- 霸州市佳理鑫五金制品厂中标新乐市第三中学采购项目
- 河北泽辉市政工程有限公司等为路南区乡村振兴环境综合治理项目(一期)一标段工程总承包(EPC)（二次）中标候选人
- 河北石府建设工程有限公司10110736.93元中标高铁片区景观提升项目施工三标段
- 中基恒源建设有限公司中标高铁片区（含新华商业广场）景观提升项目施工五标段，中标价 13430852.95 元
- 九芝堂换帅完成工商变更
- 山西建设投资集团有限公司为大宁县水果供应链基地运营配套建设项目施工（二次）第一中标候选人
- 浙江宁慈建设工程有限公司以97028327元中标慈溪市城市生活垃圾收转运一体化建设项目（一期）