doğum tarihi girilince burcun direk çıkması ?

[ilkay__]

Kişi doğum tarihini yazıp tıkladığında direk burcu çıkıcak bunun kodunu yazabilirmisiniz.Şimdiden çok teşekkürler.

 

[beab05]

Merhabalar;
Daha önce bunun için basit bir fonksiyon yazmıştım. Alttaki kodu bir module kopyalayınız ve

beab_burclar([Tarih alanının ismi])

şeklinde ister sorguda ister formda ya da raporda kullanabilirsiniz..

Public Function beab_burclar(dtarih As Date)

Select Case Format(dtarih, "mmdd")
Case 321 To 420
beab_burclar = "KOÇ"
Case 421 To 520
beab_burclar = "BOĞA"
Case 521 To 621
beab_burclar = "İKİZLER"
Case 622 To 722
beab_burclar = "YENGEÇ"
Case 723 To 822
beab_burclar = "ASLAN"
Case 823 To 922
beab_burclar = "BAŞAK"
Case 923 To 1023
beab_burclar = "TERAZİ"
Case 1024 To 1122
beab_burclar = "AKREP"
Case 1123 To 1221
beab_burclar = "YAY"
Case Is >= 1222
beab_burclar = "OĞLAK"
Case Is <= 120
beab_burclar = "OĞLAK"
Case 121 To 218
beab_burclar = "KOVA"
Case 219 To 320
beab_burclar = "BALIK"

Case Else
beab_burclar = "EJDERHA"
End Select

End Function