Net Anlatım .Net Geliştirme

Kayitlanan tarih registride surdadir: HKEY_CURRENT_USER/Software/Vb and Vba Program Settings/

Dim enddate As Date
enddate = GetSetting(”Demo”, “Demo”, “EndDate”, “01.01.89″)
‘EndDate = “01.01.89″ ise enddate belirleniyor.
If enddate = “01.01.89″ Then
enddate = Date
enddate = enddate + 30 ‘30 Gün toplaniyor
SaveSetting “Demo”, “Demo”, “EndDate”, enddate ‘EndDate kayitlaniyor
End If

If Date > enddate Then MsgBox “Demo Süresi bitmistir.”
End Sub