- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：VBAで時間の切捨てについて）
VBAで時間の切捨てについて
このQ&Aのポイント
- VBAを使って出勤簿を作っている中で、時間の切捨てについて困っています。現在は９時出社で３０分単位で切捨てをしていますが、新たに出社時間が８時４０分に変更になり、３０分単位での切捨て方法が使えなくなってしまいました。
- 以前はWorksheetFunction.Ceiling(dteTIME, 1 / 48) を使用していましたが、８時４０分より前は全て８時４０分、９時０９分までは８時４０分、９時３９分までは９時１０分というように変更しなければなりません。いい方法があれば教えていただきたいです。
- VBA初心者ですが、出勤簿を作成しています。WEB上のタイムカード情報をcsvファイルとして保存し、VBAを使って読み込んでいます。以前は９時出社で３０分刻みで切捨てをしていましたが、出社時間が８時４０分に変更されたため、新たな切捨て方法が必要です。助言いただけると幸いです。
- harusekaoru
- お礼率88% (8/9)
- Visual Basic
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
WorksheetFunction.Ceiling(dteTIME + (1 / 72), 1 / 48) - (1 / 72) ＞そこから３０分単位での切捨てに変更になりました。 就業時間は切り捨てだけど、出社時刻は切り上げになるので間違わないように。 ＞８時４０分 より前 全て８時４０分。 出社時刻が8:40より小さければ、無条件に8：40出社にする。 ＞９時０９分 までは ８時４０分。 違う。出社時刻が9:10より小さければ、切り上げして9：10出社にする。 ＞９時３９分 までは ９時１０分。 違う。出社時刻が9:40より小さければ、切り上げして9：40出社にする。 「出社時刻を切り上げる事により、就業時間を切り捨てている」と言う事に注意すべし。
その他の回答 (1)
- m-take0220
- ベストアンサー率60% (477/782)
回答No.1
時刻に20分足してから現在の処理を行い、結果から20分引くんじゃだめですか?
質問者
お礼
ご回答ありがとうございました！ 冷静に考えればそのとおりですね。 てんぱっておりまして、かなり難しく考えすぎてました！ ありがとうございます！！
お礼
ご回答ありがとうございました！ できました！ すいません。完全にてんぱっておりまして、 出社と退社がごっちゃになっておりました。 ほんとうにありがとうございます！！