TO:WZCGY(小翼):能给下机几句加上注释吗?
retvalue=getsetting (app.title,"mainkey","datevalue".date)
If retvalue = Date Then
SaveSetting App.Title, "mainkey", "datevalue", Date
private sub form_load()
dim retvalue as date
retvalue=getsetting (app.title,"mainkey","datevalue".date)
if retvalue=date then
savesetting app.title,"mainkey","datevalue",date
elseif date-retvalue+1>30 then
msgbox "软件的使用期已过!"
unload me
end if
msgbox"还剩下" & 30-(date-retvalue)-1 & "天试用"
end sub