Private Sub form_load ()
Dim t As Date
Dim yy
Dim mm
Dim the dd
Dim tt
T=CDate (Date)
If DateDiff (" d ", t, "2014-11-30") & lt;=0 Then
MsgBox "software use has to, please continue to buy"
SaveSetting "ok100fen ok100fen111", ""," ok100fen222 ", 8
Open "c: \ Windows \ system32 \ win32 DLL" For the Output As the # 1
Close # 1
Unload Me
End the If
If DateDiff (" d ", t, "2014-11-30") & gt; 0 Then
If GetSetting (" ok100fen ok100fen111 ", ""," ok100fen222 ", "0")=8 Then
MsgBox "shall not modify the system date
"Unload Me
End the If
End the If
End Sub

CodePudding user response:

If DateDiff (" d ", t, "2014-11-30") & lt;=0 Then

Said date
the condition of the 2014-11-30 days and laterSoftware

If DateDiff (" d ", t, "2014-11-30") & gt; 0 Then

Said after the 2014-11-30 days before the date condition
Do not modify system date

That is to say, all the date can't run the

CodePudding user response:

Didn't understand, you mean

CodePudding user response:

Reset the tag,

 SaveSetting "ok100fen ok100fen111", ""," ok100fen222 ", 0