IN 、 OUT& OverTime の 3 つのセルがすべて [h]:mm としてフォーマットされています。OT セルにはこのフォーラムがあります。
=ROUND(IF(((D10-C10)+(D11-C11))*24>7,((D10-C10)+(D11-C11))*24-7,0)/24*96,0)/96
OT を 1/4 時間単位で計算する
8 C D E F
9 IN OUT O/T C/T
10 7:30 AM 12:15 PM 1:45
11 1:00 PM 5:00 PM
従業員がその日の退勤時に、次のコードを実行したいと思います。
Dim CT As Date
Title = "Add to CompTime from OverTime"
If Range("E10") > 0 Then
CT = InputBox("Add Hours to CompTime?", Title)
If CT > 0 Then Range("F10").Value = ("E10" - CT)
Else: Range("F10").Value = " "
End If
End Sub
すべてがうまくいくようです。If CT > 0 Then Range("F10").Value = ("E10" - CT) フォーマットの問題であることはわかっていますが、問題を解決できません。