開始時間～終了時間で日付を跨ぐデータの扱いと変換について

Question

前提・実現したいこと

開始時間と終了時間の値によって分岐処理を行いたいです。
なお、元となるデータは「HH:MM AM」、「HH:MM PM」などの形式です。

以下詳細です。
・日付を跨ぐ勤務データの場合はAM12:00を24:00としたい。
・日付を跨がない勤務データの場合はAM12:00を00:00としたい。
・日付は変更しない。

　　　　 例1　日付を跨ぐ場合）
開始時間　PM08:00　終了時間　AM03:00　の場合
開始時間　2000　終了時間2700

　　　　 例2 日付を跨がない場合）
開始時間　AM12:00　終了時間　AM08:00　の場合
開始時間　0000　終了時間0800

試していること

1.午前なのか午後なのかを取得

strStart = Microsoft.VisualBasic.Right(開始時間, 2)
strEnd = Microsoft.VisualBasic.Right(終了時間, 2)

2.開始時間と終了時間が午前と午後で違う場合
かつ開始時間が"PM"なら

If Not strStart = strEnd And strStart = "PM"  then

正直どうロジックを組めばいいかさっぱり分かりません。

開始時間が"AM"で終了時間が"PM"の場合は普通に考えて
日を跨いでいないと思っています。

なので開始時間が"PM"の場合の分岐にて
終了時間が"AM"ならば24:00を超えるデータに変換すればよいと思っています。

補足情報（FW/ツールのバージョンなど）

Visual Studio 2015
VB.NET
.Framework 4.6

追記

他システムで作成された勤務データが
CSV形式のファイルで保存されています。

そのCSV形式のファイルの開始時間と終了時間のフィールドは
「HH:MM AM」、「HH:MM PM」の書式になっています。

Answer 1

1. 元となる時刻を両方ともそのまま２４時間表記にする

これはできますよね？00:00 AMは終了時刻だろうが開始時刻だろうかそのまま00:00とすればいいです。その上で、

1. 終了時間のほうが開始時間よりの小さい場合、終了時間に24時間加える

例えば開始が09:00で終了が00:00なら、終了時刻に24時間分加算して24:00とする。終了が01:00なら25:00になりますね。

1. 勤務時間 = 終了時間 - 開始時間

とすれば、分岐は2.の１回で済みます。

.NETにはこのような時間差の計算が簡単にできるTimeSpanというクラスというか構造体があります。参考にしてください。

Comments

[xxx8]

大変参考になりました。ありがとうございます。

Answer 2

24時間以上の経過がないのであれば

If 開始時間 > 終了時間 Then
    '日跨り
End If

でいいのではないでしょうか？

また、データをどのように保持されるのか分かりませんが、
入力時に入力するのが時間だけだったとしても、日付まで付加した方が、いろいろ楽になるのではないかと思います。

Comments

[xxx8]

追記を記載いたしました。

既にあるデータに対しての処理なので
「入力時」という処理がありません・・・・・・・

[YAmaGNZ]

入力時というのは、キーボード等のUIからの入力だけではなく、データの入力という意味合いのつもりでした。言葉足らずで申し訳ありません。
ただ、どのみち日跨りの判断はしなくてはならないので、入力時の時に一回やってしまって、プログラム内部では日付も含めたデータとして扱った方がいいと考えました。

Answer 3

YAmaGNZさんのおっしゃるように、文字列のままではなく、日付など何らかのデータに変換した方が扱いやすいと思われます。

VS起動するのが面倒だったのでPowerShellでの走り書きですが、以下のような雰囲気でしょうか。
PowerShell固有の機能は使っていないので適当にVBに読み替えてください。

このまま実行するならWindows PowerShell ISEに貼り付けて「実行」で。

# 入力文字列
[string]$inputStartTime = '08:00 PM'
[string]$inputEndTime   = '03:00 AM'

# System.DateTimeのクラスメソッドでDateTimeに変換
# 文字列の形式によってはParseExactの方が良いかも
[datetime]$startDate = [datetime]::Parse($inputStartTime)
[datetime]$endDate   = [datetime]::Parse($inputEndTime)

# 純粋な時間を取得（上記のDateTimeへの変換だと日付情報が無く実行タイミングによっては怖いため）
[timespan]$startSpan = $startDate.TimeOfDay
[timespan]$endSpan   = $endDate.TimeOfDay

# -ge = Greater Equal = >=
if ($startSpan -ge $endSpan) {
    # 開始時間が終了時間よりも大きい→日付またぎ
    # 一日分追加
    $endSpan = $endSpan.Add( [timespan]::FromDays(1) )
}

# 結果コンソール出力
[string]::Format('{0:00}{1:00}', $startSpan.Hours,                   $startSpan.Minutes )
[string]::Format('{0:00}{1:00}', [math]::Floor($endSpan.TotalHours), $endSpan.Minutes   )