Sub 集計()

    Dim TBkei As Variant
    Dim TBp1 As Variant
    Dim N As Variant
    Dim N1 As Variant
    Dim N2 As Variant
    Dim T1 As Variant
    Dim S As Variant
    Dim K As Variant
    Dim Total As Variant
    Dim T As Long
    Dim H As Variant
    Dim M As Variant
    Dim M1 As Variant
    Dim M2 As Variant
    Dim M3 As Variant

    TBp1 = Val(keisan.TBp)

    TBkei = keisan.TBkei.Text
    N = Val(TBp1)    '入力値
    N1 = Int(N)                '入力値の整数
    N2 = Round(N - N1, 2)      '入力値の少数以下値

    If TBkei <> 0 Then
       T = Int(TBkei)          '合計値の整数
    Else
       T = 0
    End If

    T1 = Round(TBkei - T, 2)            '合計値の少数以下値
    S = N2 + T1                '入力値と合計値の少数以下の合計

    If S >= 0.6 Then K = 1     '小数値の合計が0.6か0.6以上なら1時間繰り上がる
    If S < 0.6 Then K = 0      '繰り上がりなし

    If K = 1 Then
       Total = N1 + T + S + K - 0.6
    Else
       Total = N1 + T + S
    End If

    If Total = 0 Then GoTo JumpEnd

    keisan.TBkei.Value = Total

    H = Int(Total)
    M1 = Round(Total - H, 2)
    M2 = Mid(M1, 3, 2)
    M3 = Len(M1)

    If M3 = 3 Then M = M2 & "0"
    If M3 = 4 Then M = M2

    keisan.TJ.Value = H & "h " & M & "m"
JumpEnd:

End Sub