- 28 Ocak 2007
- 6,759
- 48
Kod:
'Örnek kullanım: BurcBul(12,02) -> "kova" döner
Attribute VB_Name = "Burc"
Option Explicit
Public Function BurcBul(Gün As Byte, Ay As Byte) As String
' Yanlış girilmişse boş bilgi gönder ve fonksiyondan çık
If Gün > 31 Or Ay > 12 Then BurcBul = Null: Exit Function
Dim Burc As String
Burc = "{Hatalı değerler}"
If Gün > 20 And Ay = 1 Or Gün < 20 And Ay = 2 Then Burc = "Kova"
If Gün > 19 And Ay = 2 Or Gün < 21 And Ay = 3 Then Burc = "Balık"
If Gün > 20 And Ay = 3 Or Gün < 21 And Ay = 4 Then Burc = "Koç"
If Gün > 20 And Ay = 4 Or Gün < 21 And Ay = 5 Then Burc = "Boğa"
If Gün > 20 And Ay = 5 Or Gün < 22 And Ay = 6 Then Burc = "İkizler"
If Gün > 21 And Ay = 6 Or Gün < 25 And Ay = 7 Then Burc = "Yengeç"
If Gün > 22 And Ay = 7 Or Gün < 24 And Ay = 8 Then Burc = "Aslan"
If Gün > 23 And Ay = 8 Or Gün < 24 And Ay = 9 Then Burc = "Başak"
If Gün > 23 And Ay = 9 Or Gün < 24 And Ay = 10 Then Burc = "Terazi"
If Gün > 23 And Ay = 10 Or Gün < 23 And Ay = 11 Then Burc = "Akrep"
If Gün > 22 And Ay = 11 Or Gün < 22 And Ay = 12 Then Burc = "Yay"
If Gün > 21 And Ay = 12 Or Gün < 21 And Ay = 1 Then Burc = "Oğlak"
' Aktar
BurcBul = Burc
End Function