xmi

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

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

xmi

回復 9# sghsgh1111

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

xmi

回復 11# sghsgh1111


    你好, 25時即是零晨的1時(24+1) , 用以計overnight的時間.

xmi

回復  xmi
sghsgh1111 發表於 2015-3-14 17:56

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

複製代碼

這個結果出錯了, 最尾兩個的結果應是2.45小時, 和2.12小才對.  請問錯在那裡?

1. Start        End                Duration
   
2. 13:00        15:00        2.00時
   
3. 22:00        3:00                5.00時
   
4. 23:00        1:45                2.75時 <-- 應是2.45
   
5. 23:00        1:12                2.20時 <-- 應是2.12

複製代碼

xmi

回復 14# stillfish00


    對呀 23:00~23:30 是0.5小時 , 不是0.3小時, 我沒有想錯呀... 但樓上的結果就顯示錯誤...但我不懂修正:(

xmi

回復 17# sghsgh1111


    不好意思, 我還是不明白....:Q

xmi

OH.... 原來如此 ... 那如果寫成2:45 和 2:12, 要如何? 我太笨了

xmi

回復 20# GBKEE


    太謝板主了...原來只改format    ".NumberFormatLocal = "hh.mm""時""""  顯示, 我現在真的明白了.