|
ÏÞÖÆÈí¼þ30ÌìÊÔÓÃ
Dim ReValue As Date 'ÉùÃ÷ʱ¼ä±äÁ¿
Dim name As String 'ÉùÃ÷×Ö·û´®±äÁ¿£¬Èí¼þÃû³Æ
Dim dd As Variant 'ÉùÃ÷ÊýÖµ±äÁ¿£¬ddΪÈÕÆÚ²îname = "gggg" '¸ø±äÁ¿¸³ÖµÈí¼þÃûΪgggg
ReValue = GetSetting(name, "MainKey", "DateValue", Date) '¶Áȡע²á±íÈí¼þÃûggggµÄ¼üÖµ£¬Èç¹ûûÓÐÔòΪµ±Ç°ÈÕÆÚ
Me.Text1 = ReValue
dd = DateDiff("d", ReValue, Date) '¼ÆËãÈÕÆÚ²î
Me.Text2 = dd
If dd = 0 Then 'Èç¹ûÊǵÚÒ»ÌìÔËÐÐ
SaveSetting name, "MainKey", "dateValue", Date 'дע²á±í
End If
If dd > 30 Then MsgBox "Èí¼þÒѹýÆÚ"
Else MsgBox "Èí¼þ¿ÉÒÔÊÔÓÃ"
'DoCmd Quit MsgBox "»¹Ê£ÏÂ" & 30 - dd & "ÌìÊÔÓÃÆÚ£¡"
End If
--------------------------------------------------------------------------------
Ïà¹ØÎÄÕÂ
Êý¾Ý¿âÉè¼ÆÖеÄÃô½Ý·½·¨ 2004-2-9 11:19:16
Á½¸öδ¹«¿ªµÄACCESS·½·¨µÄʹÓü¼ÇÉ 2003-12-30 14:59:33
¶Ô×¢²á±í²Ù×÷¼¼ÇÉ-½«³ÌÐòÔÚ¿ª»úʱÔËÐÐ 2003-11-18 9:24:59
ÏÞÖÆÈí¼þÊÔÓôÎÊý¼°Ê±¼ä 2003-11-13 10:54:17
ACCESSµÄÊý¾Ý¿â°²È«ÎÊÌâ½â´ð 2003-11-13 10:52:11
³ÌÐò´ò¿ªËٶȻºÂý 2003-10-14 8:29:22
ÈçºÎÇ¿ÖÆ Access ÏÔʾËÄλÊýÄê·ÝµÄÈÕÆÚ 2003-10-10 10:34:21
AccessÆô¶¯ÃüÁîÐÐÑ¡Ïî´óÈ« 2003-10-10 10:02:00
|
