• 新记

    • VB时间计算总小时（急）

    时间分别是20:00 20:35 23:55 22:13 19:34 20:17还有一大排就不全部列出来 .. 要求计算它们加起来的总小时数。满意加分~

    举报该文章
    相关建议   2014-03-20
    Dim Xs As Integer
    Dim Fen As Integer
    Dim FF() As StringFF = Split("20:40", ":")Xs = Xs + Val(FF(0)) '小时
    Fen = Fen + Val(FF(1)) '分
    FF = Split("12:43", ":")Xs = Xs + Val(FF(0))
    Fen = Fen + Val(FF(1)) '分转成小时
    Xs = Xs + (Fen \ 60)
    Fen = Fen Mod 60
    MsgBox Xs & ":" & Fen
    温馨提示：内容为网友见解，仅供参考
    其他看法
    无其他回答

    VB时间计算总小时(急)
    Dim Fen As Integer Dim FF() As StringFF = Split("20:40", ":")Xs = Xs + Val(FF(0)) '小时 Fen = Fen + Val(FF(1)) '分 FF = Split("12:43", ":")Xs = Xs + Val(FF(0))Fen = Fen + Val(FF(1)) '分转成小时 Xs = Xs + (Fen \\ 60)Fen = Fen Mod...

    VB时间计算
    用DateAdd函数。示例：＝＝＝ Private Sub Form_Click()Dim t As Date t = #7\/16\/2009 11:17:00 AM t = DateAdd("n", 15, t) '加分钟 t = DateAdd("h", 1, t) '加小时 Print t End Sub

    VB 时间段7.30 - 18.25 计算出小时为10.083
    OptionExplicit'来自CBM666百度吧吧主DimTmpStr$(3),Tim1AsDate,Tim2AsDate'变量声明PrivateSubForm_Load()Tim1=Now'将当前时间赋值给变量Tim1Tim2=CDate("2016-10-1708:30:25")'使用CDate函数将代表日期的字符转成日期

    vb利用VB判断并计算时间,急,高手赐教!
    '计算到"00:00"分钟数 NN = DateDiff("n", CDate("00:00"), CDate(MM_SS))End Function

    VB如何计算时间
    唉，在 VB 中，Date 转换成 Double 以后，整数部分表示日期，小数部分表示时间。就是说，0.5 表示 12 个小时，1 表示一天。所以你要的秒数，需要用这个数除以一天中的秒数（24 * 60 * 60）

    VB6.0程序 输入时间(小时,分和秒),输出总计多少分和秒
    Private Sub Command1_Click()Dim hh As Long, mm As Long, ss As Long hh = InputBox("请输入小时", "请输入小时")mm = InputBox("请输入分", "请输入分")ss = InputBox("请输入秒", "请输入秒")Dim result As Long result = (hh * 24 + mm) * 60 + ss MsgBox "结果为：...

    vb中怎么单独增加时间的小时、分钟、秒
    可以从当前时间（Time）和系统当前日期和时间（Now）中获取 方法如下：Msgbox Hour(Now()) & "点" & Minute(Now()) & "分" & Second(Now()) & "秒"Msgbox Hour(Time()) & "点" & Minute(Time()) & "分" & Second(Time()) & "秒"Msgbox Format(Now(), "HH点MM分SS秒")Msgb...

    vb怎样根据两个时间计算出时长?
    TotalS = TotalS - Val(TmpStr(0)) * 3600 * 24 '总秒数扣掉天数 更新TotalS变量 End If TmpStr(1) = CStr(TotalS \\ 3600) '计算小时赋值给变量 TmpStr(1)TmpStr(2) = CStr((TotalS \\ 60) Mod 60) '计算分钟赋值给变量 TmpStr(2)TmpStr(3) = CStr(TotalS Mod 60) ...

    vb中关于时间的算法以及其他细节
    = 1 TargetDate = DateSerial(InputYear, InputMonth, InputDay) Dim DayGap As Integer DayGap = DateDiff(DateInterval.Day, TargetDate, Now) Debug.Print(DayGap)问题2 直接赋值就行 Dim a As Integer a = 5 Mod 2 Debug.Print(a)...

    求助:vb中到到某一天的倒计时(精确到秒)
    在Timer控件的Timer事件处理程序中，首先计算从当前时间到目标时间OneDay的秒数，保存在变量s中。然后，根据s的值判断是否已过目标时间。如果s大于0，表示还未到目标时间，继续进行倒计时。否则，表示已过目标时间，Label控件显示信息并禁用Timer控件。接下来，将s转换为天、小时、分钟和秒的组合形式。这...

    相似回答
    大家正在搜