エクセルVBAにおける時間操作の備忘録です。
図面作成の時間請求の単位は全て時間ｈです。
なので、エクセルへ記録する時は、
開始時刻と、終了時刻を記録し、その差を時間ｈで算出しています。
↓こんな感じ
時間ｈの算出はマクロでやってます。
時刻を時間ｈにする方法
━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─
Sub 時間h()
Dim 時 As Double, 分 As Double, 時間 As Double
Dim 時刻 As Date
時刻 = "2010/4/9 12:10:22"
時 = Hour(時刻)
分 = Round(Minute(時刻) / 60, 2)
時間 = 時 + 分
MsgBox "時間＝" & Format(時間, "0.00") & "h"
End Sub
━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─
また、時間ｈを時刻形式にしたい場合もあるので・・・。
時間ｈを時刻にする方法
━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─
Sub 時分作成()
Dim 時分 As Double, 時間h As Double
時間 = 6.25
時分 = 時間 / 24
MsgBox "時間＝" & Format(時分, "hh:nn")
End Sub
━─━─━─━─━─━─━─━─━─━─━─━─━─━─━─
もっと、いいやり方があるかもなぁ～。
とりあえず、これで
にほんブログ村
へ
作業報告書の改善は終了。全自動ではないけど・・・。
でも、手間は１０分の１くらいになったぞ。っと。