excel ®É¶¡¬O§_¥i¥H¬Û´î

sghsgh1111

·Q½Ð°Ý¤@¤U®É¶¡¬O§_¥i¥H¬Û´î
¸ó¤p®É©M¸ó¤Ñ, ¬Û´î¤U¨Ó·|¦³°ÝÃD,
·Q½Ð°Ý¤@¤U, ­n¦p¦ó­×§ï

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

½Æ»s¥N½X

xmi

¦^´_ 20# GBKEE


    ¤ÓÁªO¥D¤F...­ì¨Ó¥u§ïformat    ".NumberFormatLocal = "hh.mm""®É""""  Åã¥Ü, §Ú²{¦b¯uªº©ú¥Õ¤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

xmi

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

xmi

¦^´_ 17# sghsgh1111


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

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¤ñ¸û¬ÝªºÀ´

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

xmi

¦^´_ 14# stillfish00


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

stillfish00

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

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