[Resolvido]SeImed para signos no formulário

Boa tarde.
Gostaria de saber como faço pra criar uma expressão ou fórmula que dependendo da data que coloque, apareça pra mim o signo do cliente.
Por exemplo:Nascimento: 10/08/2000
Signo de leão é entre os dias 23/07 a 22/08.
Filtro só o dia e mês noutro campo antes de fazer a fórmula ou não é necessário?
Essa expressão filtra apenas dia e mês: =Format([DataNascimento];"d\/m"), ele me mostra o dia 10/08 num campo a parte.

Acho que seria mais fácil uma função
disponibilize ai as datas e os signos correspondentes. e uma parte do seu projeto.

Está bem no início ainda, prefiro já ir deixando tudo certo para não sofrer depois na frente.

Uma função

Código:

Public Function fncSigno(ByVal dtDataNascimento As Date) As String

    Dim strResultado As String
    
    If dtDataNascimento = 0 Then Exit Function

    Select Case CInt(Format(dtDataNascimento, "mmdd"))
        Case 120 To 218: strResultado = "Aquário"
        Case 219 To 320: strResultado = "Peixes"
        Case 321 To 420: strResultado = "Áries"
        Case 421 To 520: strResultado = "Touro"
        Case 521 To 620: strResultado = "Gêmeos"
        Case 621 To 722: strResultado = "Câncer"
        Case 723 To 822: strResultado = "Leão"
        Case 823 To 922: strResultado = "Virgem"
        Case 923 To 1022: strResultado = "Libra"
        Case 1023 To 1121: strResultado = "Escopião"
        Case 1122 To 1221: strResultado = "Sagitário"
        Case Is >= 1222, Is <= 119: strResultado = "Capricórnio"
    End Select
    
    fncSigno = strResultado

End Function

E uma expressão

Código:

=fncSigno(nz([DataNascimento];0))

Fiz de outra forma. Pode ser digitado data completa ou somente dia e mes.

Código:

'Scandinavo 29/01/21 Forum maximos access
'Define qual o signo
Dim strCampo
strCampo = Format(Me.txtDatanasc, "dd/mm")
Select Case strCampo
'por ser data preenche o ano automaticamente
Case #3/21/2021# To #4/20/2021#
Me.txtSigno = "Áries"
Case #4/21/2021# To #5/20/2021#
Me.txtSigno = "Touro"
Case #5/21/2021# To #6/20/2021#
Me.txtSigno = "Gêmeos"
Case #6/21/2021# To #7/22/2021#
Me.txtSigno = "Câncer"
Case #7/23/2021# To #8/22/2021#
Me.txtSigno = "Leão"
Case #8/23/2021# To #9/22/2021#
Me.txtSigno = "Virgem"
Case #9/23/2021# To #10/22/2021#
Me.txtSigno = "Libra"
Case #10/23/2021# To #11/22/2021#
Me.txtSigno = "Escorpião"
Case #11/23/2021# To #12/21/2021#
Me.txtSigno = "Sagitário"
Case #12/22/2021# To #1/20/2021# 'para este periodo esta dando erro
Me.txtSigno = "Capricórnio" 'acredito que seja por cauda da data inicial ser maior que a final
Case #1/21/2021# To #2/18/2021#
Me.txtSigno = "Aquário"
Case #2/19/2021# To #3/20/2021#
Me.txtSigno = "Peixes"

Case Else
'para resolver o erro do periodo
'se der erro vai ser Capricórnio
Me.txtSigno = "Capricórnio"

End Select

Obrigado pessoal por me ajudar, foi muito útil e fez eu aprender mais sobre funções e códigos, Deus os abençoe muito.

Faltou marcar o tópico como resolvido. Aguardamos sua ação.

Sou novo aqui, onde marco esse tópico como resolvido?

Veja como fazer isso no link abaixo
https://www.maximoaccess.com/t860-resolucao-de-topicos#5263

Aguardamos...