そのままの回答は書きませんが、少し協力します。
日付時刻は、整数部と小数部で管理されてるので、2つのカラムを足し算すれば
日付時刻になります。
For i = 2 To 10 'ここは固定にしてるけど要修正
sDateTime = Cells(i, 2) + Cells(i, 3) '開始 日付+時刻
eDateTime = Cells(i, 4) + Cells(i, 5) '終了 日付+時刻
あとは普通に比較をすれば、開始終了が同じかどうか、開始時間が含まれているか?
は判定できます。
'開始終了が違う場合のみ対象
If sDateTime <> eDateTime Then
idx = 1
For idx = 1 To result.Count
rec = result(idx)
' 開始終了時間に含まれる場合は、同一レコード
If rec(ARRAY_START_DATETIME) <= sDateTime And sDateTime <= rec(ARRAY_END_DATETIME) Then
'同一レコードの場合は終了時刻を伸ばす
If rec(ARRAY_END_DATETIME) < eDateTime Then
処理結果の保持方法(私はCollectonを利用)に注意すれば、そんなに難しくないです。
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。