excel 時間是否可以相減

sghsgh1111

想請問一下時間是否可以相減
跨小時和跨天, 相減下來會有問題,
想請問一下, 要如何修改

1. Sub TimeCal(ByVal RowNo)
   
2.     Dim T1_H%
   
3.     Dim T1_M%
   
4.     Dim T2_H%
   
5.     Dim T2_M%
   
6.     Dim Diff_All!
   
7.     Dim Diff_H%
   
8.     Dim Diff_M!
   
9.     Dim Str_T1 As Object
   
10.     Dim Str_T2 As Object
    
11.    
    
12.     Set Str_T1 = Sheets("list").Range("G" & RowNo)    ' Str_T1 = 2015/3/9  06:49:59
    
13.     Set Str_T2 = Sheets("list").Range("H" & RowNo)    ' Str_T2 = 2015/3/1  05:41:39
    
14.    
    
15.     T1_H = Hour(Str_T1)
    
16.     T1_M = Minute(Str_T1)
    
17.     T2_H = Hour(Str_T2)
    
18.     T2_M = Minute(Str_T2)
    
19. 
    
20.     Diff_H = Abs(T1_H - T2_H)
    
21.     Diff_M = Abs(T1_M - T2_M) / 60
    
22.     Diff_All = Diff_H + Diff_M
    
23.    
    
24.     Sheets("list").Range("K" & RowNo).Value = Diff_All
    
25. 
    
26. End Sub

複製代碼

GBKEE

回復 1# sghsgh1111
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim a, b
   
4.     a = #1/1/2105 5:40:50 AM#
   
5.     b = #1/3/2105 2:10:05 AM#
   
6.     With Range("A2")
   
7.         .Value = (b - a) * 24
   
8.         .NumberFormat = "0.00時"
   
9.     End With
   
10. End Sub

複製代碼

stillfish00

回復 1# sghsgh1111
可以自己試試 DateDiff 函數

sghsgh1111

謝謝指導, 之前也是這樣直接相減, 但減後都是 0.01xxx
但我看上面有在 X 24 , 這個意思不是很懂, 可以說明一下嗎
為什麼不是 X 60 ???
不過以這個算法來, 看起是ok

sghsgh1111

可以再多問一個問題嗎

QueryTables 要如何滙入其他的 excel 檔案
這是錄置巨集所產生的程式碼, 但不了解這個語法, 可以解答嗎
  這個巨集可以再簡化嗎  

  With ActiveSheet.QueryTables.Add(Connection:=Array( _
        "OLEDBrovider=Microsoft.Jet.OLEDB.4.0assword="""";User ID=Admin;Data Source=I:\VBA.xls;Mode=Share Deny Write;Extended Prop" _
        , _
        "erties=""HDR=YES;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDBatabase Password="""";Jet OLEDB:Engine Type=3" _
        , _
        "5;Jet OLEDBatabase Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Datab" _
        , _
        "ase Password="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDBon't Copy Locale on Compact=F" _
        , "alse;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"), _
        Destination:=Range("A2"))
        .CommandType = xlCmdTable
        .CommandText = Array("Status$")
        .Name = "VBA_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .SourceDataFile = "I:\VBA.xls"
        .Refresh BackgroundQuery:=False
    End With

GBKEE

回復 5# sghsgh1111
日期相減後的數字,整數是日數(1天有24小時),小數點後的數字是小時數(*60=分鐘數)
d1-d2 如=2.15 -> 2.15*24=51.6小時,2.15*24*60=3096分鐘,2.15*24*60*60=185760秒

對匯入外部資料不熟悉可參考 VBA的 QueryTable 物件說明

sghsgh1111

感謝大大的說明

xmi

回復  sghsgh1111
試試看
GBKEE 發表於 2015-3-10 08:13

請問如果是以CELL的INPUT應如何改?
如:
A1           A2            Result
13:00     15:00        2小時
22:00     03:00        5小時

sghsgh1111

1. Sub ex()
   
2.     Dim a, b, c
   
3. 
   
4.     For c = 1 To 20
   
5.         a = Range("A" & c + 1).Value
   
6.         b = Range("B" & c + 1).Value
   
7.         If a = "" Then Exit For
   
8.         If b < a Then b = b + 1
   
9.         With Cells(c + 1, 3)
   
10.             .Value = (b - a) * 24
    
11.             .NumberFormat = "0.00時"
    
12.         End With
    
13.     Next
    
14. End Sub

複製代碼

回復 8# xmi

xmi

回復 9# sghsgh1111

謝謝你...
請問如果是以下形式又應如何改?
如:
A1           A2            Result
13:00     15:00        2小時
22:00     27:00        5小時
23:00     25:45   2.75小時