none
咨询一下如何用VBA对2个DATE对象进行相减得到时间差? RRS feed

  • 问题

  • 例如我手上有两个Date对象一个值为"1981-5-6 19:01:05"  另外一个值为"1981-5-6 16:01:05"  我如何才能得到两者的时间差3:00:00  (格式是hh:mm:ss)??????
    2009年5月9日 12:14

答案

  • Option Explicit
    Sub TimeDif()
        Dim dtDateTime1 As Date
        Dim dtDateTime2 As Date
        
        dtDateTime1 = #5/6/1981 7:01:05 PM#
        dtDateTime2 = #5/6/1981 4:01:05 PM#
        
        msgbox Format(dtDateTime1 - dtDateTime2, "hh:mm:ss")
    End Sub

    Microsoft Technet Observer
    2009年5月12日 3:04