- ©«¤l
- 82
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 112
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- WIN7
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-1-3
- ³Ì«áµn¿ý
- 2020-9-21
|
[¤À¨É] ¤À¨Éªº©w®É§ìDDE¸ê®Æµ{¦¡½X¡A¦ý¬O»Ýn¤H«üÂI°g¬z
³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½×- Option Explicit
- Dim T1 As Date
- Const ¶}©l = "08:45:05"
- Const µ²§ô = "13:46:08"
- Const ¶g´Á1 = "0:0:10"
- Sub start()
- Call StopTimer
- Call Timer1
- End Sub
- Sub StopTimer()
- On Error Resume Next
- Application.OnTime T1, "Timer1", , 0
- T1 = 0
- End Sub
- Sub Timer1()
- If T1 Then
- Sheets("¥x«ü").Range("B6000").End(xlUp).Offset(1, 0) = Sheets("sheet1").Range("B2")
- Sheets("¹q«ü").Range("B6000").End(xlUp).Offset(1, 0) = Sheets("sheet1").Range("B4")
- Sheets("ª÷«ü").Range("B6000").End(xlUp).Offset(1, 0) = Sheets("sheet1").Range("B6")
- End If
- T1 = TimeNext(¶}©l, µ²§ô, ¶g´Á, Now)
- If T1 Then Application.OnTime T1, "Timer1"
- End Sub
- Function TimeNext(TStart As String, TEnd As String, TFrequency As String, TNOW As Date)
- If TNOW < Int(TNOW) + TimeValue(TStart) Then
- TimeNext = Int(TNOW) + TimeValue(TStart)
-
- ElseIf _
- TNOW >= Int(TNOW) + TimeValue(TEnd) Then
-
- TimeNext = 0
-
- Else
-
- TimeNext = Int((TNOW + TimeValue(TFrequency) + 0.5 / 86400) / TimeValue(TFrequency)) * TimeValue(TFrequency)
-
-
-
- End If
- 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ÁÂ~ |
|