U

#### Uhl

How do I get the result of this function in my form?

Function SignKZ(Bdate As Date) As String

Dim X

Dim Y

If (Not IsDate(Bdate)) Or (Bdate = 0) Then 'Wenn falsches Datum dann Today

X = Day(Date)

Y = Month(Date)

Else

X = Day(Xdatum)

Y = Month(Xdatum)

End If

If (X > 20 And Y = 3) Or (X < 21 And Y = 4) Then

TierKZ = "Widder"

ElseIf (X > 20 And Y = 4) Or (X < 21 And Y = 5) Then

TierKZ = "Stier"

ElseIf (X > 20 And Y = 5) Or (X < 22 And Y = 6) Then

TierKZ = "Zwilling"

ElseIf (X > 21 And Y = 6) Or (X < 23 And Y = 7) Then

TierKZ = "Krebs"

ElseIf (X > 22 And Y = 7) Or (X < 24 And Y = 8) Then

TierKZ = "Löwe"

ElseIf (X > 23 And Y = 8) Or (X < 24 And Y = 9) Then

TierKZ = "Jungfrau"

ElseIf (X > 23 And Y = 9) Or (X < 24 And Y = 10) Then

TierKZ = "Waage"

ElseIf (X > 23 And Y = 10) Or (X < 23 And Y = 11) Then

TierKZ = "Skorpion"

ElseIf (X > 22 And Y = 11) Or (X < 22 And Y = 12) Then

TierKZ = "Schütze"

ElseIf (X > 21 And Y = 12) Or (X < 21 And Y = 1) Then

TierKZ = "Steinbock"

ElseIf (X > 20 And Y = 1) Or (X < 20 And Y = 2) Then

TierKZ = "Wassermann"

ElseIf (X > 19 And Y = 2) Or (X < 21 And Y = 3) Then

TierKZ = "Fische"

End If

End Function