4
Dim dtmStart As Date, dtmEnd As Date, dblDuration As Double
dtmStart = "1900/01/01 08:10:00"
dtmEnd = "1900/01/03 21:16:00"
dblDuration = DateDiff("hh:mm", dtmEnd, dtmStart)
'dblDuration = dtmEnd - dtmStart
MsgBox Format(dblDuration, "hh:mm")

「yyyy/mm/dd hh:mm:ss」形式で 2 つの日付を減算するにはどうすればよいですか? 上記の両方の方法を試しましたが、どちらも機能しません

4

2 に答える 2

6
Sub Test()
    Dim dtmStart As Date, dtmEnd As Date, dblDuration As Double
    dtmStart = "1900/01/01 08:10:00"
    dtmEnd = "1900/01/03 21:16:00"
    dblDuration = dtmEnd - dtmStart
    MsgBox Application.Text(dblDuration, "[hh]:mm")
End Sub
于 2012-06-28T22:08:55.950 に答える
0

私はシンプルなデンマーク人で、シンプルなのが好きなので、次のようにしました。

Dim dtmStart As Date, dtmEnd As Date, dblDuration As Date

Start:  'STARTTIME
        dtmStart = Time

Slut:           
        'SLUTTIDEN
        dtmEnd = Time
        dblDuration = dtmEnd - dtmStart
        Debug.Print "Modul 1 Slut  " & Time; " Run = "; dblDuration
于 2013-05-29T23:31:45.300 に答える