[¤À¨É] ¤À¨Éªº©w®É§ìDDE¸ê®Æµ{¦¡½X¡A¦ý¬O»Ý­n¤H«üÂI°g¬z

handsometrowa

³o°}¤l¦£µÛ²Î­p¸ê®Æ¡A¤@¤è­±¤S¬[ºc¨t²Î¡A·PÁ¦¹°Q½×°Ï«Ü¦hª©¤jªº¨ó§U¡A²×©ó¦³¤@­Ó§¹¾ãªºª©¥»·Q¤À¨Éµ¹¤j®a

¤@¯ë¤£ºÞ¬Oª÷¿Ä·~¤H©Î¬O¤@¯ë§ë¸ê¤H ³£·|§Q¥Î¨é°ÓªºDDE ¥h§ì¸ê®Æ ¨Ã¥B°µ¤ÀªR©Î¦¡¾Þ§@

¦³¤@­ÓªB¤Íµ¹¤F§Ú¤@­Ó½d¨Ò  ¦p¤U  §Ú·Q¤À¨Éµ¹¤j®a¡A©çÁ¦]¬°§ìªºDDE¸ê®Æ¤£¦P ½Ð¦U¦ì¦Û¦æ½Õ¾ã  ¦ý¬O§Ú¦³¤@­Ó¦a¤è¬Û·íªº¤£À´  §Æ±æ½Ð«e½ú¥Î¥Õ¸Ü¤å¤ÀªR

¾ã­Óµ{¦¡½X¬O³o¼Ë¤l ³o­Óµ{¦¡½X¥i¥H¦Û¤v­×§ï§ì¸ê®Æªº®É¶¡  Ä@»P¤j®a¤À¨É¦@¦P°Q½×

1. Option Explicit
   
2. 
   
3. Dim T1 As Date
   
4. 
   
5. Const ¶}©l = "08:45:05"
   
6. Const µ²§ô = "13:46:08"
   
7. Const ¶g´Á1 = "0:0:10"
   
8. 
   
9. Sub start()
   
10. 
    
11. Call StopTimer
    
12. 
    
13. Call Timer1
    
14. 
    
15. End Sub
    
16. 
    
17. Sub StopTimer()
    
18. 
    
19. On Error Resume Next
    
20. 
    
21. Application.OnTime T1, "Timer1", , 0
    
22. 
    
23. T1 = 0
    
24. 
    
25. End Sub
    
26. 
    
27. Sub Timer1()
    
28. 
    
29. If T1 Then
    
30. 
    
31. Sheets("¥x«ü").Range("B6000").End(xlUp).Offset(1, 0) = Sheets("sheet1").Range("B2")
    
32. 
    
33. Sheets("¹q«ü").Range("B6000").End(xlUp).Offset(1, 0) = Sheets("sheet1").Range("B4")
    
34. 
    
35. Sheets("ª÷«ü").Range("B6000").End(xlUp).Offset(1, 0) = Sheets("sheet1").Range("B6")
    
36. 
    
37. End If
    
38. 
    
39. T1 = TimeNext(¶}©l, µ²§ô, ¶g´Á, Now)
    
40. 
    
41. If T1 Then Application.OnTime T1, "Timer1"
    
42. 
    
43. 
    
44. End Sub
    
45. 
    
46. Function TimeNext(TStart As String, TEnd As String, TFrequency As String, TNOW As Date)
    
47. 
    
48. If TNOW < Int(TNOW) + TimeValue(TStart) Then
    
49. 
    
50.     TimeNext = Int(TNOW) + TimeValue(TStart)
    
51.    
    
52. 
    
53. ElseIf _
    
54.        TNOW >= Int(TNOW) + TimeValue(TEnd) Then
    
55.    
    
56.        TimeNext = 0
    
57.         
    
58. Else
    
59. 
    
60.     TimeNext = Int((TNOW + TimeValue(TFrequency) + 0.5 / 86400) / TimeValue(TFrequency)) * TimeValue(TFrequency)
    
61.    
    
62.       
    
63.       
    
64. End If
    
65. 
    
66. End Function

½Æ»s¥N½X

§Ú·Q½Ð°Ý¦³¨S¦³¤H¯à¥Î«Ü¥Õªº¥Õ¸Ü¤å¸ÑÄÀ³o­Ó¨ç¦¡ ªº³Ì«á¤@­Ó§PÂ_¦¡  
  TimeNext = Int((TNOW + TimeValue(TFrequency) + 0.5 / 86400) / TimeValue(TFrequency)) * TimeValue(TFrequency)
¬°¤°»ò§@ªÌ­n³o¼Ë¤l³]©w©O?

¤£ª¾¹D·íªì³]­pªºªB¤Í¦³¨S¦³¦Aª©¤W  ¤@°_»¡Án·PÁÂ~

handsometrowa

·PÁª©¥Dªº¦^À³ªü ~­×§ï¤§«á§Ú¬Ý±o¤ñ¸ûÀ´¤F@@" ¦ý¬O§ÚÁÙ¬O¦³ÂI¦n©_

¬°¤°»ò§@ªÌ¥L­n³o¼Ë¤l³]©w
Int((TNOW + TimeValue(TFrequency) + 0.5 / 86400) / TimeValue(TFrequency)) * TimeValue(TFrequency)      

³o­Ó¤½¦¡¸Ì­±  

(TNOW + TimeValue(TFrequency) + 0.5 / 86400) / TimeValue(TFrequency)
µM«á¤S­¼TimeValue(TFrequency)   
³o¬O¤°»ò·N«äªü???

GBKEE

¦^´_ 1# handsometrowa

1. Option Explicit
   
2. Dim T1 As Date
   
3. Const ¶}©l = "08:45:05"
   
4. Const µ²§ô = "13:46:08"
   
5. Const ¶g´Á1 = "12:00:10 AM"
   
6. '******************************
   
7. '±`¼Æ¥iª½±µ³]¬°®É¶¡
   
8. 'Const ¶}©l = #8:45:05 AM#
   
9. 'Const µ²§ô = #1:46:08 PM#
   
10. 'Const ¶g´Á1 = #12:00:10 AM#   '10¤ÀÄÁ
    
11. '***************************
    
12. Sub start()
    
13. Call StopTimer
    
14. Call Timer1
    
15. End Sub
    
16. Sub StopTimer()
    
17. On Error Resume Next
    
18. Application.OnTime T1, "Timer1", , 0
    
19. T1 = Now
    
20. '************************
    
21. '«Øij§ï¬° Time(®É¶¡)
    
22. 'T1 = Time
    
23. '***********************
    
24. End Sub
    
25. Sub Timer1()
    
26. '*********************
    
27. '¨Ì§Ç¥u°õ¦æ³Ì¥ý¦¨¥ßªº±ø¥ó,¦p«á­±¦³¦¨¥ßªº±ø¥ó¬O¤£·|°õ¦æªº.
    
28. 'If ±ø¥ó=True Then
    
29. '    °õ¦æµ{¦¡½X
    
30. 'ElseIf ±ø¥ó=True Then
    
31. '    °õ¦æµ{¦¡½X
    
32. 'Else             '©Ò¦³±ø¥ó³£¤£¦¨¥ß
    
33. '    °õ¦æµ{¦¡½X
    
34. 'End If
    
35. '**********************
    
36. If T1 Then  ' T1> 0 -> T1 = True ,T1= 0 -> T1= False
    
37.     Sheets("¥x«ü").Range("B6000").End(xlUp).Offset(1, 0) = Sheets("sheet1").Range("B2")
    
38.     Sheets("¹q«ü").Range("B6000").End(xlUp).Offset(1, 0) = Sheets("sheet1").Range("B4")
    
39.     Sheets("ª÷«ü").Range("B6000").End(xlUp).Offset(1, 0) = Sheets("sheet1").Range("B6")
    
40. End If
    
41. '******************
    
42. 'T1 =¨ç¼Æ(°Ñ¼Æ1,°Ñ¼Æ2,°Ñ¼Æ3,°Ñ¼Æ4)¶Ç¦^ªº¼Æ­È
    
43. '******************
    
44. T1 = TimeNext(¶}©l, µ²§ô, ¶g´Á1, Now)  '«Øij Now (¤é´Á+®É¶¡)  §ï¬° Time (®É¶¡)
    
45. If T1 Then Application.OnTime T1, "Timer1"
    
46. End Sub
    
47. Function ATimeNext(TStart As String, TEnd As String, TFrequency As String, TNOW As Date)
    
48.    'Int(TNOW)->¥h±¼¤p¼Æ(®É¶¡) ¶Ç¦^¤é´Á
    
49.    If TNOW < Int(TNOW) + TimeValue(TStart) Then  'TNOW > ¤é´Á+®É¶¡
    
50.         TimeNext = Int(TNOW) + TimeValue(TStart)
    
51.        ' imeNext > ¤é´Á+®É¶¡
    
52.     ElseIf TNOW >= Int(TNOW) + TimeValue(TEnd) Then
    
53.        TimeNext = 0
    
54.     Else
    
55.         TimeNext = Int((TNOW + TimeValue(TFrequency) + 0.5 / 86400) / TimeValue(TFrequency)) * TimeValue(TFrequency)
    
56.          '86400¬í = 24(¤p®É) * 60(¤ÀÄÁ) * 60(¬í)
    
57.     End If
    
58. End Function
    
59. '***********************************************
    
60. '±`¼Æª½±µ³]¬°®É¶¡ 'TNOW §ï¬° Time(®É¶¡)
    
61. 'T1 = TimeNext(¶}©l, µ²§ô, ¶g´Á1, Time)
    
62. '¨ç¼Æ°Ñ¼Æªº«¬ºA¶·­×§ï
    
63. Function TimeNext(TStart As Date, TEnd As Date, TFrequency As Date, TNOW As Date) '§ï¬° Time(®É¶¡)
    
64.     If TNOW < TStart Then
    
65.         TimeNext = TStart
    
66.     ElseIf TNOW >= TEnd Then
    
67.        TimeNext = 0
    
68.     Else
    
69.         TimeNext = Time + TFrequency
    
70.     End If
    
71. End Function
    
72. '***********************************************

½Æ»s¥N½X