AnasayfaKapıKayıt OlGiriş yap

Paylaş | 
 

 30 Günlük Demo Versionu Programlama

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
ByHellsinq
Acemi
Acemi
avatar

Mesaj Sayısı : 14
Rep Gücü : : 32387
Rep Puani : : 2000
Kayıt tarihi : 24/08/09
Yaş : 32

MesajKonu: 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
Sayfa başına dön Aşağa gitmek
ByZonq
Admin
avatar

Mesaj Sayısı : 35
Rep Gücü : : 2147483647
Rep Puani : : 11999
Kayıt tarihi : 22/08/09

MesajKonu: 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 Very Happy Yapıcakdim
Sayfa başına dön Aşağa gitmek
http://metin-x.yetkinforum.com
 
30 Günlük Demo Versionu Programlama
Önceki başlık Sonraki başlık Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Metin-X :: Visual Basic Dersleri :: Acemi-
Buraya geçin: