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

轉載于:https://www.cnblogs.com/e-office/archive/2008/05/07/1186012.html

總結

以上是生活随笔為你收集整理的限制软件30天试用的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。