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

½Æ»s¥N½X

GBKEE

¦^´_ 5# sghsgh1111
¤é´Á¬Û´î«áªº¼Æ¦r,¾ã¼Æ¬O¤é¼Æ(1¤Ñ¦³24¤p®É),¤p¼ÆÂI«áªº¼Æ¦r¬O¤p®É¼Æ(*60=¤ÀÄÁ¼Æ)
d1-d2 ¦p=2.15 -> 2.15*24=51.6¤p®É,2.15*24*60=3096¤ÀÄÁ,2.15*24*60*60=185760¬í

¹ï¶×¤J¥~³¡¸ê®Æ¤£¼ô±x¥i°Ñ¦Ò VBAªº QueryTable ª«¥ó»¡©ú

GBKEE

¦^´_ 15# xmi
45/60->=0.75
12/60->=0.2

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®É <-- ¤£¬O2.45
   
5. 23:00        1:12                2.20®É <-- ¤£¬O2.12

½Æ»s¥N½X

GBKEE

¦^´_ 19# xmi

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim a, b, c
   
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)
    
11.             .NumberFormatLocal = "hh.mm""®É"""
    
12.             '.NumberFormat = "0.00®É"
    
13.         End With
    
14.     Next
    
15. End Sub

½Æ»s¥N½X