sghsgh1111

¤£À´, ¤@¤Ñ¤]¤~ 24 ¤p®É, ¬°¤°»ò·|¥X²{ 27:00 and 25:45 ?

xmi

¦^´_ 11# sghsgh1111


    §A¦n, 25®É§Y¬O¹s±áªº1®É(24+1) , ¥Î¥H­povernightªº®É¶¡.

xmi

¦^´_  xmi
sghsgh1111 µoªí©ó 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

½Æ»s¥N½X

³o­Óµ²ªG¥X¿ù¤F, ³Ì§À¨â­Óªºµ²ªGÀ³¬O2.45¤p®É, ©M2.12¤p¤~¹ï.  ½Ð°Ý¿ù¦b¨º¸Ì?

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

stillfish00

¦^´_ 13# xmi
§A·Q¿ù¤F¡A23:00~23:30 ¬O0.5¤p®É , ¤£¬O0.3¤p®É

xmi

¦^´_ 14# stillfish00


    ¹ï§r 23:00~23:30 ¬O0.5¤p®É , ¤£¬O0.3¤p®É, §Ú¨S¦³·Q¿ù§r... ¦ý¼Ó¤Wªºµ²ªG´NÅã¥Ü¿ù»~...¦ý§Ú¤£À´­×¥¿:(

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

sghsgh1111

xmi : ³o­Óµ²ªG¥X¿ù¤F, ³Ì§À¨â­Óªºµ²ªGÀ³¬O2.45¤p®É, ©M2.12¤p¤~¹ï.  ½Ð°Ý¿ù¦b¨º¸Ì?
ANS
®É¶¡¤£¬O¤Q¶i¦ì¼Æ,
¤@¤Ñ¬O 24 ¤p®É
¤@¤p®É¬O 60 ¤À  (60¶i¦ì¼Æ)
¤@¤ÀÄÁ¬O 60 ¬í  (60¶i¦ì¼Æ)
¦]¬°§A­nºâªº¬O¤p®É, ©Ò¥H¤À¥À¤£¥i¥H¥Î10 ¦Ó¬O­n¥Î 60 ¨Ó¬Ý
©Ò¥H GBKEEª©¥D¤~·|¥Î³o­Óºâ¦¡µ¹§A¬Ý    ( ¤À=>¤p®É)
45/60->=0.75
12/60->=0.2
¦ý¦pªG§Aµw­n¼g¦¨ 2.45¤p®É, ©M2.12
¨º§A¥i¯à­n§ï¤@¤U§Aªº¼gªk 2:45 ©M 2:12, ³o¼Ë§O¤H¤ñ¸û¬ÝªºÀ´

xmi

¦^´_ 17# sghsgh1111


    ¤£¦n·N«ä, §ÚÁÙ¬O¤£©ú¥Õ....:Q

xmi

OH.... ­ì¨Ó¦p¦¹ ... ¨º¦pªG¼g¦¨2:45 ©M 2:12, ­n¦p¦ó? §Ú¤Ó²Â¤F

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