24時間稼動しているガソリンスタンドの勤怠管理をVB2013で作成しています。
1日の実働時間中に深夜時間帯が何時間含まれているかを判断したいのですが
良いロジックが浮かばなくて困っています。
条件としては以下の内容です。
深夜時間帯開始時刻:22:00
深夜時間帯終了時刻:06:00
勤務形態は完全なシフト勤務で勤務開始時刻、終了時刻は決まっていません。
勤務開始時刻が深夜時間帯になる場合、勤務終了時刻が深夜時間帯になる場合
勤務開始時刻、勤務終了時刻が深夜時間帯をまたぐ場合
1日の実働時間全てが深夜時間帯になる場合などがあります。
過去に同様のロジックを作成したことのある方や、解決方法をご存知の方は
返信お願いします。
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
以前、この「教えて!goo」で回答用に作成したものです(回答を投稿する前に締め切られてしまいましたが…)。
ちょっと冗長的なコーディングですが、シンプルなロジックにしたつもりです。
関数で実装しています。引数は開始時刻St、終了時刻Etで、戻り値が深夜勤務時間です。
深夜時間として、当日0:00~5:00、当日22:00~翌日5:00、さらに、翌日22:00~24:00(翌々日0:00)の時間を合計しています。
Function Midnight(St As Variant, Et As Variant) As Variant
Dim MidStart As Variant
Dim MidEnd As Variant
'当日0:00~5:00の勤務時間を求め、加算する。
MidStart = TimeValue("00:00:00")
MidEnd = TimeValue("05:00:00")
If Not (St >= MidEnd Or Et <= MidStart) Then
If MidStart < St Then MidStart = St
If MidEnd > Et Then MidEnd = Et
Midnight = Midnight + MidEnd - MidStart
End If
'当日22:00~翌日5:00の勤務時間を求め、加算する。
MidStart = TimeValue("22:00:00")
MidEnd = 1 + TimeValue("05:00:00")
If Not (St >= MidEnd Or Et <= MidStart) Then
If MidStart < St Then MidStart = St
If MidEnd > Et Then MidEnd = Et
Midnight = Midnight + MidEnd - MidStart
End If
'翌日22:00~同24:00(翌々日0:00)の勤務時間を求め、加算する。
MidStart = 1 + TimeValue("22:00:00")
MidEnd = 2 + TimeValue("00:00:00")
If Not (St >= MidEnd Or Et <= MidStart) Then
If MidStart < St Then MidStart = St
If MidEnd > Et Then MidEnd = Et
Midnight = Midnight + MidEnd - MidStart
End If
End Function
No.3
- 回答日時:
datetime型でも問題はないけど、、、
vb系では意外と日付取り出したり、もどしたりするのが、面倒というか長い記述になるのでストリングで処理したほうが楽なような気もする。
年、月、日、時、分を別なフィールドに突っ込んでいるシステムも見たことがある。コボル時代のなごりなのかもしれないけど。
ShowMeHowさん
返信有難う御座います。
確かにVB6の時代から、日付や時刻の扱いは面倒くさい処理を行っていましたね。
いろいろ試している中では、datetimeやtimespanなどを使用できないかと考えています。
マイクロソフトには日時をもう少し簡単に扱えるような関数を追加して欲しいものです。
No.2
- 回答日時:
私の時の条件は、深夜回数を求める物でしたが、以下の時間帯に勤務していたら
深夜回数を求める物でした。この考えを置き換えれば、勤務時間を求められると思います。
例)
22時過ぎ~0時まで:0.5回
0時過ぎ~3時まで:1.0回
3時過ぎ~5時まで:0.5回
【私の考え方】
①出勤時間と退社時間を比較し、その大小によりロジックを分ける。
②出勤時間・退社時間の関係が、上の時間帯に当てはまるかどうか判定
【ソースは、こんな感じ】
If dec出勤時刻 < dec退社時刻 Then
'通常開始勤務で
If dec出勤時刻 < dec深夜判定時刻03H Then
dec自動計算深夜回数 = 1
ElseIf dec出勤時刻 >= dec深夜判定時刻03H And dec出勤時刻 < dec深夜判定時刻05H Then
dec自動計算深夜回数 = 0.5
ElseIf dec退社時刻 > dec深夜判定時刻22H Then
dec自動計算深夜回数 = 0.5
End If
ElseIf dec出勤時刻 > dec退社時刻 Then
'0時を回る勤務をしたら
If dec出勤時刻 < dec深夜判定時刻03H Then
dec自動計算深夜回数 = 1
ElseIf dec退社時刻 > dec深夜判定時刻00H Then
dec自動計算深夜回数 = 1
ElseIf dec出勤時刻 >= dec深夜判定時刻03H AndAlso dec出勤時刻 < dec深夜判定時刻05H Then
dec自動計算深夜回数 = 0.5
ElseIf dec退社時刻 = dec深夜判定時刻00H Then
dec自動計算深夜回数 = 0.5
End If
End If
ghost305jpさん
返信有難う御座います。
長文のロジックを書き込んでいただき有難う御座います。
もう少し簡単に考えていましたが、結構大変なロジックになりそうです。
頂いたソースを解析し、時間取得に変更してみます。
No.1
- 回答日時:
勤務開始日 勤務開始時間 終了日 終了時間
を打刻レコードに含め、
① 勤務開始時間が深夜時間帯の場合
② 深夜時間帯が勤務途中から始まっている場合
に分けて算出する。
勤務時間が5AM~11PMのような可能性があるなら、
①と②をそれぞれ計算して足してやる必要がありますね。
労基法に違反してそうな気もしますがね。
ShowMeHowさん
返信有難う御座います。
時刻だけではなく日付を付加する事で時刻の大小を判断するのですね。
処理は分割して行うほうが良さそうですが、法的な事までは考えていませんでした。
再度、相手先への確認が必要そうです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 指定した値以上の中で最小値を出したい 7 2022/10/24 21:12
- 求人情報・採用情報 介護の求人についてお伺いしたいです。 現在フリーターでアルバイトを探しており、グループホームの求人を 1 2023/03/20 23:15
- Excel(エクセル) エクセル2019の関数を教えてください。 8 2022/12/16 12:45
- その他(悩み相談・人生相談) トヨタの期間工で、深夜35:25 時間帯85:00 超過勤務6:45 の場合、それぞれ幾らぐらいにな 1 2023/01/10 19:55
- ルーター・ネットワーク機器 Linkstation のスリープタイマー設定方法がわかりにくい 1 2023/01/07 13:34
- 労働相談 深夜の時間帯が所定労働時間の場合の深夜労働手当の計算方法 例えば、時給1500円の従業員が21時〜3 2 2023/05/07 20:06
- その他(ビジネス・キャリア) 勤務時間の割増について教えてください。 現在日勤と夜勤で勤務しています。 日勤は9:00から20:0 5 2022/05/08 22:40
- 人事・法務・広報 みなし残業と深夜の割増賃金 1 2023/04/17 00:06
- アルバイト・パート これて労基法違反になる? 自分の仕事は警備員で日勤の時もあれば夜勤もありますが今は主に夜勤が多く今入 1 2022/12/08 11:27
- 労働相談 飲食店勤務のスタッフの勤怠管理について 新規事業で飲食店を始めたのですが、深夜営業もあり勤怠管理が難 2 2023/04/23 15:56
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessのクエリの値を変換(代入...
-
DateDiff関数の怪!?
-
matplotlibで任意の角度の円弧...
-
VB2013での時間帯判定で困って...
-
画像を二次元フーリエ変換
-
vba 時間の引き算 例えば 15:00...
-
意味不明の実行時エラーで困っ...
-
Designer.vbは直接コードをいじ...
-
Visual Studio 「AnyCpu」について
-
アウトルックが起動しているか...
-
VBで実行中のEXEファイルの情報...
-
「読み込み違反」が起きたとき...
-
分かる人は簡単なのだろうが、v...
-
Windows PowerShellでC言語を実...
-
VBAでOutlookを終了させたい Ex...
-
excel vbaから実行するexe実行...
-
EXCEL2000でVBAでWinsockをしたい
-
VisualStudioでC#が実行できない
-
ManagementClassが見つからない。
-
PDFファイルを印刷し終了するには
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
matplotlibで任意の角度の円弧...
-
経過日数を調べたい
-
Accessのクエリの値を変換(代入...
-
秒数を入力すると○時間○分○秒と...
-
カラーコード 濃くしたい
-
VB2013での時間帯判定で困って...
-
画像を二次元フーリエ変換
-
FORTRANの課題
-
DateDiff関数の怪!?
-
Visual Basicで多角形を描くプ...
-
Matlabで群遅延特性
-
VB2010で、時刻と時間の計算に...
-
電卓の作成 VB
-
世界測地系から東京測地系へ変換
-
c言語またはVBのSin Cos Tan
-
キャスト演算について。
-
あと何日or何日目?を計算する方法
-
プログラム作成 計算
-
VBで時間計算の方法
-
4桁の整数の前位の足し算を行い...
おすすめ情報