ByHellsinq
Acemi
Mesaj Sayısı : 14
Rep Gücü : : 32387
Rep Puani : : 2000
Kayıt tarihi : 24/08/09
Yaş : 38
 | Konu: 30 Günlük Demo Versionu Programlama  Salı Ağus. 25, 2009 10:21 am | |
| - Kod:
-
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 | |
|
ByZonq
Admin
Mesaj Sayısı : 35
Rep Gücü : : 2147483647
Rep Puani : : 11999
Kayıt tarihi : 22/08/09
| | Konu: Geri: 30 Günlük Demo Versionu Programlama Çarş. Ağus. 26, 2009 4:14 pm | |
| - ByHellsinq demiş ki:
-
- Kod:
-
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 Çok Güzel , Saat Yapmayi Bulamadim ben 1 saatlik Ozel Program  Yapıcakdim | |
|
