Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic hazır kodlar » yaşınızı yıl ay gun olarak hesaplayın
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

MS Flex Grid Kontrolü

Yazar: nilist
MS Flex Grid Kontrolü


Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 7306
Yayın Tar:19.06.2006
Yazar : onurvarol1
Hit :1559

Bu Yazarın Yazıları Sadece bu yazarın  göster
Bu Yazıyı Tavsiye Et

burada dogum yılı, bu yı,dogum ayı,bu ay,dogum gunu ıle bu gun ayrı ayrı gırılıyo ve program işlemlerı yaparak suankı yasınızı yıl ay gun olarak sıze gosterıyo..kodların yanında acıklamalarınıda yazdıml

Private Sub Command1_Click()
Dim dy As Integer
Dim by As Integer
Dim da As Integer
Dim ba As Integer
Dim gun As Integer
Dim ay As Integer
Dim yaş As Integer

dy = Val(Text1.Text) 'Doğum yılı text1 e atanıyo'
by = Val(Text2.Text) 'bu yıl text2 ye atanıyo'

da = Val(Text3.Text) 'Doğum ayı text3 e atanıyo'
ba = Val(Text4.Text) 'bu ay text4 e atanıyo'

If ba < da Then 'eger bu ay dogum ayından kucuk ıse '
by = by - 1 'bu yıldan 1 eksılt'
ba = ba + 12 'bu aya 12 ekle' 'bır yıl 12 ay oldugu içIn'
ay = ba - da 'ayı bulmak içIn bu aydan dogum ayını cıkar'
End If
If ba > da Then
ay = ba - da
End If


dg = Val(Text5.Text) 'dogum gununu text5 e ata'
bg = Val(Text6.Text) 'bugunu text6 a ata'

If bg < dg Then 'eger bu gun dogum gununden kucukse'
ba = ba - 1 'bu ayı 1 azalt'
bg = bg + 30 'bu gune 30 ekle'
gun = bg - dg 'gunu bulmak içIn bugunden dogum gununu cıkar'
End If
If bg > dg Then
gun = bg - dg
End If


yaş = by - dy 'yası bulmak içIn bu yıldan dogum yılını cıkar'

Text7.Text = yaş
yaş = Val(Text7.Text)

Text8.Text = ay
ay = Val(Text8.Text)

Text9.Text = gun
gun = Val(Text9.Text)
End Sub


onaylayan: Webmaster




Bu sayfa için henüz yorum eklenmemiş.

© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin