VBAでExit Doの使い方が知りたい

Question

お世話になります

時間の計算でハマってしまったのでご協力をお願いします。

困っていること

ルールは
4時間を超えた場合は30分の休憩を1回
6時間-8時間の場合は45分休憩

例えば、8時間丁度なら45分休憩
8時間1分ならば30分が2回で1時間休憩

上記のルールで作成する予定です
（まだ　6時間の判定とかはできていません）

D7=8:00
E7=16:30
稼働時間：8時間30分
の時に
休憩は30分だけでよいのに2回ループして
1時間になってしまう。

試したこと

最後から3番目の行の
If data = t4 Then Exit Do　を追加してループを強制的に抜けさせようと試みましたが機能しませんでした。

知りたいこと

If data = t4 Then Exit Doを機能させる方法
又は
そもそも、そのやり方じゃなくて
もっと良いやり方が有るなど、有りましたらご教示よろしくお願いいたします。

以下コード

汚いコードで申し訳ないです

Function YEX_QK()
Dim QK As Date
Dim QK_COUNT As Integer
Dim data As Date
Dim t03 As Date
Dim t4 As Date
Dim t6 As Date
Dim t8 As Date
Dim YEX_QK2 As Date
t03 = TimeValue("0:30:00")
t4 = TimeValue("4:00:00")
t6 = TimeValue("6:00:00")
t8 = TimeValue("8:00:00")

data = ActiveSheet.Range("e7") - ActiveSheet.Range("d7")
MsgBox data
Do While data > t4
    data = data - t4
    data = data - t03
    QK = QK + t03
    MsgBox "data=" & data & vbCrLf & "QK=" & QK
'残りぴったり4時間ならループ脱出
    If data = t4 Then Exit Do
Loop
   
End Function

Comments

[ttyp03]

YEX_QK関数は、E7-D7の時間を稼働時間とみなし、その稼働時間に見合った休憩時間を返却する関数ということでよいでしょうか？
0～4時間未満は0分
4～6時間未満は30分
6～8時間未満は45分
8時間以上は60分
ということですか？

[AMK]

はい、その通りです

[AMK]

あ、8時間以上と言うより
4時間毎に30分休憩なので

８：００から4時間稼働で12：00
そこから30分休憩で
12：30スタートで更に4時間稼働で16：30
なのですが上記の場合は、休憩は1回で30分だけです。
16：31分だと4時間を超えてしまうので30分休憩を取るルールです。

[stdio]

労働基準法の休憩時間によりますと、「労働時間が6時間を超える場合は45分以上、8時間を超える場合は1時間以上」とあるので、6時間働き、休憩時間が60分でもOKなような気がしますが、その辺は設計に含めないということでしょうか？

[AMK]

ルール的にはOKですが、休憩を多く引いてしまうと給料がへっちゃうので＾＾；
厳密な計算で行きたいと思います。

[YT0014]

最初のdataの計算時、DateDiff()で、分数を取得するようにしたら、以後の処理は整数演算のみになるかと。

[AMK]

data = DateDiff("n", ActiveSheet.Range("d7"), ActiveSheet.Range("e7"))
こういう事でしょうか？？？

やってみましたが、1901/5/24と言う表示が出てきました。

[YT0014]

それは、510(分)をDate型に変換したからです。
素直にInteger型で受け取ってください。
ついでに言うと、プログラミングの場合、時刻と時間は峻別する必要がありますので、ご留意ください。
Date型は日付時刻型、セルに入力されているのは時刻、稼働時間や休憩時間、4時間毎などは、全て時間です。
これらを混在して処理している為、誤りが発生しています。

[AMK]

なるほど！！
奥が深いですね・・・・

Answer 1

ループで求める必要はなく、If文のみでよいと思います。

Function YEX_QK() As Date
    
    Dim data As Date
    Dim t4 As Date
    Dim t6 As Date
    Dim t8 As Date
    t4 = TimeValue("4:00:00")
    t6 = TimeValue("6:00:00")
    t8 = TimeValue("8:00:00")
    
    data = ActiveSheet.Range("e7") - ActiveSheet.Range("d7")
    If data < t4 Then
        YEX_QK = TimeValue("0:00:00")
    ElseIf data < t6 Then
        YEX_QK = TimeValue("0:30:00")
    ElseIf data < t8 Then
        YEX_QK = TimeValue("0:45:00")
    Else
        YEX_QK = TimeValue("1:00:00")
    End If

End Function

Comments

[AMK]

回答ありがとうございます。

4時間ごとに30分休憩なのでIFだけでは、難しいです

[ttyp03]

どうしてでしょうか？
一日当たりの稼働時間の上限は決まっているはずなので、必要な分増やせばいいと思いますが。
ループで回して処理すると想定外の不具合を埋め込む可能性もあるので、If文で固定処理化したほうがよいと私は思います。

[AMK]

たしかに、この方法も言われてみればそうですね

でも今回は、ループさせたかったので＾＾；
（スミマセンわがままで）

Answer 2

自己解決ではないですが・・・・

YT0014様の回答により解決出来ました！！
BAに選択する方法が解らないのでコチラに記入させていただきます。

Function YEX_QK()
Dim QK As Integer
Dim QK2 As Integer
Dim data As Integer
Dim t03 As Integer
Dim t4 As Integer
Dim t6 As Integer
Dim t8 As Integer
Dim YEX_QK2 As Date
t03 = 30 '30分
t4 = 240 '4時間
t6 = 360 '6時間
t8 = 480 '8時間

'分に変換
data = DateDiff("n", ActiveSheet.Range("d7"), ActiveSheet.Range("e7"))

'判定ループ
Do While data > t4
    data = data - t4
    data = data - t03
    QK = QK + t03
    MsgBox "data=" & data & vbCrLf & "QK=" & QK
'残りぴったり4時間ならループ脱出
    If data = t4 Then
    Exit Do
    End If
Loop
   

Comments

[YT0014]

ぴったり4時間ならループ脱出は不要なはずなので、除外した状態で動作を確認してみてください。