フォーム上で２つの時間を引き算して時間（分）を求めたい。

Question

フォーム上で２つの時間を引き算して時間（分）を求めたい。

(3)

下記プログラムで
もし２つの時間の間に休憩時間（１２時～１３時）を跨いでいる場合は、
その分を除きたいのですが、どのようにやればいいのでしょうか。

＊日付を２～３日跨ぐ場合も考えます。
Me.hiduke1.Text :yyyy/mm/dd
Me.time01.Text : hh:mm
Me.hiduke2.Text :yyyy/mm/dd
Me.time01.Text : hh:mm

Sub Test()
Dim x As Date = Date.Parse(DateValue(Me.hiduke1.Text) + " " + TimeValue(Me.time01.Text))
Dim v As Date = Date.Parse(DateValue(Me.hiduke2.Text) + " " + TimeValue(Me.time02.Text))
Dim o As Double = DateDiff("n", x, v)
Me.TextBox03.Text = Format(o \ 60, "00") & ":" & Format(o Mod 60, "00")
End Sub

Answer 1

考え方だけ。

2つの期間（T1, T2）と（T3, T4）があってそれがどう重ねっているか（もしくは重なっていないのか）を判定する必要があります。

T1 < T2, T3 < T4であることを前提に、

1. T4 < T1またはT2 < T3なら重なっていない
2. T1 <= T3 AND T2 <= T4 なら重なっている。T2 - T3が重なった時間
3. T3 <= T1 AND T4 <= T2 なら重なっている。T4 - T1が重なった時間

ということで、処理を組めばいけるかと。
何回も同じ処理があるようならクラス化して処理したほうが良いと思います。

---

蛇足ですが、
C++でboostが使えるのなら、posix_time.time_periodというクラスを使用すれば2つの期間の重なりやその重なった期間の計算が用意されていて便利です。