Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7330 / 9994

←次へ　｜　前へ→


	【5858】Re:時間の計算について

小僧 - 05/8/15(月) 13:23 -


	引用なし

	パスワード

▼わんさん：
こんにちは。

>その後、落ち着いて考えてみました。
同じく落ち着いて考えてみました。

SELECT 社員労働時間.社員番号,
　　　社員労働時間.打刻日付,
　　　 DateAdd("n",15-Minute([出勤時間]) Mod 15,[出勤時間]) AS 出勤,
　　　 DateAdd("n",-Minute([退勤時間]) Mod 15,[退勤時間]) AS 退勤,
　　　 DateDiff("n",[出勤],[退勤])/60-1 AS 労働時間,
　　　 IIf(Hour([退勤]) Between 5 And 22,DateDiff("n",[出勤],[退勤]),
　　　　　　　　　 DateDiff("n",[出勤],CDate([打刻日付] & ' 22:00')))/60-1 AS 日勤,
　　　 IIf(Hour([退勤]) Between 5 And 22,0,
　　　　　　　　　 DateDiff("n",CDate([打刻日付] & ' 22:00'),[退勤]))/60 AS 夜勤,
　　　 IIf([日勤]>8,[日勤]-8,0) AS 日勤残業,
　　　 IIf([労働時間]>9,DateDiff("n",[出勤],[退勤])/60-[日勤残業]-9,0) AS 夜勤残業
FROM 社員労働時間;

10件くらい色々データを入れて検証した結果は問題なさそうなのですが、
わんさんの実際使われているデータでも問題なければ良いのですが…。

547 hits

▼

【5829】時間の計算について わん 05/8/11(木) 14:01