Kayitlanan tarih registride surdadir: HKEY_CURRENT_USER/Software/Vb and Vba Program Settings/
Private Sub form_load()
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
(HERKEZE İYİ FORUMLAR
:dnc:
Private Sub form_load()
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
(HERKEZE İYİ FORUMLAR
:dnc:
