Access VBA質問箱 IV

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

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


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

7402 / 9994

←次へ　｜　前へ→


	【5784】Re:1日を越えた時間はどうすれば良いので...

小僧 - 05/8/8(月) 12:59 -


	引用なし

	パスワード

▼わんさん：
こんにちは。
続けて時間の丸めについてです。

>[#4411] 時刻の切捨て切り上げについて

>勤怠管理に役立つ時刻演算関数集
>http://www.f3.dion.ne.jp/~element/msaccess/AcTipsVbaCalcTimeFunctions.html
>こちらが参考になると思います。

YU-TANG さんのサイトが紹介されているので、
せっかくですから使わせて頂きましょう。

ここで紹介されている関数はユーザー定義関数なので、そのままでは使えません。
ページの中ほどにある「ダウンロード」の説明を読んでインポートしてみましょう。
(わんさんの環境がダウンロードをしてはいけない環境でしたらすみません)

SELECT 社員労働時間.社員番号, TimeRound([出勤時間],-1,15) AS 出勤丸め,
TimeRound([退勤時間],-1,15) AS 退勤丸め
FROM 社員労働時間;

SQL ビューで確認してみて下さい。15分を切り捨てで丸められていると思います。

>又、表示方法の問題だけならMod演算子、\演算子をよく勉強すれば、
>Time関数なるものは使用しなくてもできるものなのでしょうか？

ダウンロードできない環境の場合、ユーザ定義関数を使いたくない場合です。

SELECT 社員労働時間.社員番号,
DateAdd("n", - Minute([出勤時間]) Mod 15,[出勤時間]) AS 出勤丸め,
DateAdd("n", - Minute([退勤時間]) Mod 15,[退勤時間]) AS 退勤丸め
FROM 社員労働時間;

15分以下を切り捨てるようなクエリになっています。

余談ですが、大手ファーストフードで賃金３０分未満切り捨てが問題になっていましたね。
http://headlines.yahoo.co.jp/hl?a=20050801-00000086-mai-soci

労働基準法を読んでいないので良く解りませんが、
勝手に切り捨てるのはまずいのでしょうか…(笑)

857 hits

▼

【5751】1日を越えた時間はどうすれば良いのでしょ... わん 05/8/4(木) 13:40