Re: Excel keresőfüggvény

[Nits László]

Legyünk elegánsak:

=csillagjegy(A1)

VB kód:

Function csillagjegy(Dátum As Date) As String
    nap = DatePart("y", Dátum)
    If nap < 20 Then
        csillagjegy = "Bak"
    ElseIf nap < 50 Then
        csillagjegy = "Vízöntő"
    ElseIf nap < 81 Then
        csillagjegy = "Halak"
    ElseIf nap < 111 Then
        csillagjegy = "Kos"
    ElseIf nap < 142 Then
        csillagjegy = "Bika"
    ElseIf nap < 173 Then
        csillagjegy = "Ikrek"
    ElseIf nap < 205 Then
        csillagjegy = "Rák"
    ElseIf nap < 236 Then
        csillagjegy = "Oroszlán"
    ElseIf nap < 267 Then
        csillagjegy = "Szűz"
    ElseIf nap < 297 Then
        csillagjegy = "Mérleg"
    ElseIf nap < 327 Then
        csillagjegy = "Skorpió"
    ElseIf nap < 357 Then
        csillagjegy = "Nyilas"
    Else
        csillagjegy = "Bak"
    End If

End Function

Remélem tetszik :-)