VBAで24時間の表記をしたい

前提・実現したいこと

他のファイルの勤務時間のデータを吸い上げ残業時間を計測したい。

発生している問題・エラーメッセージ

データ型で処理している為、24時間で割り切れる時間の場合
0:00
と表記されてしまう。

例

VBA
1Dim zan As Date  
2
3'残業時間
4
5'3時間15分
6'セルの表記 3:15
7zan=#3:15:00#
8
9'24時間
10'この場合に24時間と表記したい
11'セルの表記 0:00
12zan=#1899/12/31#
13
14'25時間
15'セルの表記 25:00
16zan=#1899/12/31 1:00:00#

該当のソースコード

VBA
1Dim syotei As Date'所定労働時間
2Dim dayfull As Date'その日働いた時間
3Dim zan As Date'残業時間累計
4
5'以下読み取りファイル内の操作
6
7For fday = 1 To 31
8'// 31日分数える
9 
10　If syotei < dayfull Then
11　　'// その日の労働時間
12　　zan = zan + (dayfull - syotei)
13　End If
14  
15Next fday
16
17'読み取り後
18
19Cells(1, 1) = zan
20

試したこと

元々のセルの書式設定を変更

時間を表記設定
Cells(1, 1) = Format(zan, "hh: mm")

補足情報

ここまで閲覧いただきありがとうございます。
足りない情報ありましたらお答えさせていただきます。
よろしくお願いします。

y_waiwai

2020/08/26 05:28

> 0:00と表記されてしまう。これがどうなればいいんでしょうか

heine

2020/08/26 05:45

ご質問ありがとうございます。 24時間の場合 24:00 48時間の場合 48:00 このように実現したいです。

行動規範の内容に同意します

回答3件

ベストアンサー

時間を日付型にするのではなく、分単位の数値で扱って下さい。

時間表記をする場合は
(計算値 \ 60) * 100 + 計算値 mod 60
として、これを書式で　"00:00"の様に扱います。

投稿2020/08/26 05:48

sazi

総合スコア25206

heine

2020/09/02 07:52

いただいた条件式を応用して実現することができました。ありがとうございました。 zanTotal = zanTotal + (Hour(zan) * 60) + Minute(zan) zanH = zanTotal \ 60 zanM = zanTotal Mod 60 zanSou = zanH & ":" & zanM

行動規範の内容に同意します

書式[h]:mm:ssで24:00:00表示になりませんか？
日付または時刻として数値の書式を設定する

投稿2020/08/26 05:32

Y.H.

総合スコア7914

heine

2020/08/26 05:50

ご回答ありがとうございます。セルの書式設定を上記に変更しました。出力した際の表記は「00:00:00」となり変わりませんでした。またVBAのコードを Cells(1, 1) = Format(zan, "[h]: mm:ss") にしましたが表記は「:12:00」となりました。せっかく回答いただいたのに解決できず申し訳ありません。