广告位

时间在线计算 日期 时间在线计算

今天来聊聊关于时间在线计算,日期,时间在线计算的文章,现在就为大家来简单介绍下时间在线计算,日期,时间在线计算,希望对各位小伙伴们有所帮助。

今天来聊聊关于时间在线计算,日期,时间在线计算的文章,现在就为大家来简单介绍下时间在线计算,日期,时间在线计算,希望对各位小伙伴们有所帮助。

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。

相信通过时间在线计算这篇文章能帮到你,在和好朋友分享的时候,也欢迎感兴趣小伙伴们一起来探讨。

本文来自网络,不代表本站立场。转载请注明出处: https://www.djladysyren.com/a-670133.html
1
上一篇下列哪些不属于信用交易行为 您认为以下选项中哪个不属于信用炒作
下一篇 拔贡和举人的区别 拔贡

为您推荐

联系我们

联系我们

186 2726 9593

在线咨询: QQ交谈

邮箱: 120632399@qq.com

关注微信
微信扫一扫关注我们

微信扫一扫关注我们

返回顶部