GBKEE

¦^´_ 3# t8899


   

±zªº¤è¦¡À³¸Ó·|¦û¸ê·½.....??
§Ú¬O­nª¾¹Dtimestock ¬O§_¥¿¦b¶] ?

¬O³o¼Ë¶Ü?

1. Sub timestock()
   
2.     Application.DisplayStatusBar = True
   
3.     Application.StatusBar = "timestock ¥¿¦b¶] "
   
4.     '§Aªºµ{¦¡½X
   
5.     '§Aªºµ{¦¡½X
   
6.     '§Aªºµ{¦¡½X
   
7.     '§Aªºµ{¦¡½X
   
8.     '§Aªºµ{¦¡½X
   
9.     '§Aªºµ{¦¡½X
   
10.     Application.StatusBar = "timestock ¶]§¹¤F"
    
11. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# t8899


   

if ..timestock ¥¿¦b¶]  then............  »yªk????

5#bobomi «Øij   module ¥á¤J¤@­Ó Public ÅܼƦW
timestock ¥¿¦b¶]®É¥i°õ¦æ¤@­Ó°Æµ{¦¡  ->   if ÅܼƦW=true  then ....
¦ý§A¥i¯à·|»¡ "±zªº¤è¦¡À³¸Ó·|¦û¸ê·½.....??" ©Ò¥H§Ú @-+/*

GBKEE

¦^´_ 13# t8899
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Dim The_Time As Date '³o¼Ò²Õªº¨p¥ÎÅܼÆ
   
3. Sub timestock()
   
4.     Dim my As Date
   
5.     If The_Time > Time Then
   
6.        Exit Sub
   
7.         '¹w¨¾ ¤W¤@¦¸ OnTime©|¥¼°õ¦æ,¦A«×°õ¦æ¤@¦¸OnTime
   
8.     End If
   
9.     Application.StatusBar = "°õ¦æ timestock  ¤¤..."
   
10.     my = #12:01:00 AM#
    
11.     The_Time = Time + my
    
12.     Application.OnTime The_Time, "timestock"
    
13.     Application.StatusBar = "¤U¦¸°õ¦æ timestock  ®É¶¡" & The_Time
    
14. End Sub
    
15. Sub ASTOP()
    
16.     If The_Time < Time Then
    
17.         MsgBox "¨S¦³ OnTime µ{§Ç ", , "´£¥Ü°T®§"
    
18.     Else
    
19.         Application.OnTime The_Time, "timestock", Schedule:=False
    
20.         MsgBox The_Time & " ªº OnTime µ{§Ç ¤w°±¤î", , "´£¥Ü°T®§"
    
21.         Application.StatusBar = False
    
22.         The_Time = 0
    
23.     End If
    
24. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 19# t8899
   

my = #12:01:00 AM#
¬O¤£¬O³o°ÝÃD ??¤W¤È¶]¨S°ÝÃD¡A¤U¤È´`ÁÙ2-3¦¸·|¸õ¥X??

ÅK©w¤£¬O,­nªþÀɬݬݩάO§¹¾ãµ{¦¡½X

1. Sub Ex()
   
2.     Dim A As Double
   
3.     A = #12:01:00 AM#
   
4.     MsgBox A = 60 / 86400
   
5. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 21# t8899
­×§ï¤@¤U

1. Option Explicit
   
2. Public The_Time As Date
   
3. Public my As Date
   
4. Sub timestock()
   
5.     If CDec(The_Time) > CDec(Time) Then    '¹w¨¾ ¤W¤@¦¸ OnTime©|¥¼°õ¦æ,¦A«×°õ¦æ¤@¦¸OnTime
   
6.       '************************
   
7.       '·í my <= #12:00:05 AM# ®É
   
8.       'If The_Time > Time Then ³o±ø¥ó¦¡±`·|¦¨¥ß
   
9.       '¬O¥Ñ©ó The_Time As Date«¬ºA½d³ò¤p
   
10.       
    
11.       'CDec(The_Time) ¶Ç¦^ Decimal ¸ê®Æ«¬ºA
    
12.       'Decimal ¸ê®Æ«¬ºA
    
13.       'Decimal ÅܼƫY¥H 96 ¦ì¤¸ ( 12 ­Ó¦ì¤¸²Õ ) ¦³¥¿­t¸¹ªº¾ã¼Æ§Î¦¡¨ÓÀx¦s¡C10 ªº«ü¼Æ¥H¤p¼ÆÂI¥kÃ䪺¦ì¤¸¼Æ¨Ó½Õ¾ã¡A½d³ò±q 0 ¨ì 28¡C¦b¨S¦³¤p¼Æ¦ì¼Æªº±¡§Î¤U¡A³Ì¤jªº¥i¯à­È¬° +/-79,228,162,514,264,337,593,543,950,335¡C¦Ó¦b¦³ 28 ­Ó¤p¼Æ¦ì¸mªº±¡§Î¤U¡A³Ì¤j­È¬° +/-7.9228162514264337593543950335¡A¦Ó³Ì¤pªº«D¹s­È¬° +/-0.0000000000000000000000000001¡C
    
14.       'ªþµù ¦¹®É¡ADecimal ¸ê®Æ«¬ºA¥u¯à¦b Variant¤¤¨Ï¥Î
    
15.       '¤]´N¬O¡A±z¨Ã¤£¯à«Å§i¤@ÅܼƬ° Decimal ªº«¬ºA¡C¤£¹L±z¥i¥Î Cdec ¨ç¼Æ¡A«Ø¥ß¤@­Ó°Æ«¬ºA¬° Decimal ªº Variant¡C
    
16.       '************************
    
17.         Debug.Print CDec(The_Time), CDec(Time)
    
18.         Exit Sub        
    
19.     End If
    
20.     With Sheets("sheet1").Range("a1")
    
21.         If .Value = 1 Then
    
22.             my = #12:01:00 AM#
    
23.         ElseIf .Value = 2 Then
    
24.             my = #12:02:00 AM#
    
25.         ElseIf .Value = 3 Then
    
26.             my = #12:00:30 AM#
    
27.         ElseIf .Value = 4 Then
    
28.             my = #12:00:20 AM#
    
29.         ElseIf .Value = 5 Then
    
30.             my = #12:00:05 AM#
    
31.         ElseIf .Value = 6 Then
    
32.             my = #12:00:10 AM#
    
33.         Else
    
34.             Exit Sub
    
35.         End If
    
36.     End With
    
37.     The_Time = Time + my
    
38.     Debug.Print The_Time
    
39.     Application.OnTime The_Time, "timestock"
    
40. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 24# t8899
´ú¸Õ20¤ÀÄÁ¨S¥X¿ù
   

1. Option Explicit
   
2. Public The_Time As Date
   
3. Public my As Date
   
4. Sub timestock()
   
5. If CDec(The_Time) > CDec(Time) Then    '¹w¨¾ ¤W¤@¦¸ OnTime©|¥¼°õ¦æ,¦A«×°õ¦æ¤@¦¸OnTime
   
6.     Range("C65536").End(xlUp).Offset(1) = Time '**** OnTime©|¥¼°õ¦æ®É,¦A«×°õ¦æ¤@¦¸OnTime
   
7.     Exit Sub
   
8. End If
   
9.     If Sheets("sheet1").Range("a1").Value = 1 Then my = #12:01:00 AM#
   
10.     If Sheets("sheet1").Range("a1").Value = 2 Then my = #12:02:00 AM#
    
11.     If Sheets("sheet1").Range("a1").Value = 3 Then my = #12:00:30 AM#
    
12.     If Sheets("sheet1").Range("a1").Value = 4 Then my = #12:00:20 AM#
    
13.     If Sheets("sheet1").Range("a1").Value = 5 Then my = #12:00:05 AM#
    
14.     If Sheets("sheet1").Range("a1").Value = 6 Then my = #12:00:10 AM#
    
15.     Range("a65536").End(xlUp).Offset(1) = Time   '**** °õ¦æªºOnTime
    
16.     The_Time = Time + my
    
17.     Application.OnTime The_Time, "timestock"
    
18.     Range("b65536").End(xlUp).Offset(1) = The_Time '**** °õ¦æ¤U¤@¦¸OnTime
    
19.     MsgBoxTest 0, "test", "´£¥Ü°T®§", vbSystemModal, 0, 1000
    
20. End Sub

½Æ»s¥N½X

¤U¸ü (95.67 KB)

2014-10-22 05:00

GBKEE

¦^´_ 26# t8899
½Ð¦b§ï¤@¤U¸Õ¸Õ¬Ý

1. If TimeValue(The_Time) > Time Then

½Æ»s¥N½X

GBKEE

¦^´_ 28# t8899
­n¬ã¨s¤@¤U