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..
Kod:
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.