Código:
Function eXl_SignoZ(FechaNacimiento As Date, Optional Elemento As Boolean = False) As String
Dim D As Integer, H As Integer
D = Day(FechaNacimiento)
H = Month(FechaNacimiento)
Select Case H
Case 1
If D <= 19 Then
If Elemento Then
eXl_SignoZ = "Tierra"
Else
eXl_SignoZ = "Capricornio"
End If
Else
If Elemento Then
eXl_SignoZ = "Aire"
Else
eXl_SignoZ = "Acuario"
End If
End If
Case 2
If D <= 18 Then
If Elemento Then
eXl_SignoZ = "Aire"
Else
eXl_SignoZ = "Acuario"
End If
Else
If Elemento Then
eXl_SignoZ = "Agua"
Else
eXl_SignoZ = "Piscis"
End If
End If
Case 3
If D <= 20 Then
If Elemento Then
eXl_SignoZ = "Agua"
Else
eXl_SignoZ = "Piscis"
End If
Else
If Elemento Then
eXl_SignoZ = "Fuego"
Else
eXl_SignoZ = "Aries"
End If
End If
Case 4
If D <= 19 Then
If Elemento Then
eXl_SignoZ = "Fuego"
Else
eXl_SignoZ = "Aries"
End If
Else
If Elemento Then
eXl_SignoZ = "Tierra"
Else
eXl_SignoZ = "Tauro"
End If
End If
Case 5
If D <= 20 Then
If Elemento Then
eXl_SignoZ = "Tierra"
Else
eXl_SignoZ = "Tauro"
End If
Else
If Elemento Then
eXl_SignoZ = "Aire"
Else
eXl_SignoZ = "Géminis"
End If
End If
Case 6
If D <= 20 Then
If Elemento Then
eXl_SignoZ = "Aire"
Else
eXl_SignoZ = "Géminis"
End If
Else
If Elemento Then
eXl_SignoZ = "Agua"
Else
eXl_SignoZ = "Cáncer"
End If
End If
Case 7
If D <= 22 Then
If Elemento Then
eXl_SignoZ = "Agua"
Else
eXl_SignoZ = "Cáncer"
End If
Else
If Elemento Then
eXl_SignoZ = "Fuego"
Else
eXl_SignoZ = "Leo"
End If
End If
Case 8
If D <= 22 Then
If Elemento Then
eXl_SignoZ = "Fuego"
Else
eXl_SignoZ = "Leo"
End If
Else
If Elemento Then
eXl_SignoZ = "Tierra"
Else
eXl_SignoZ = "Virgo"
End If
End If
Case 9
If D <= 22 Then
If Elemento Then
eXl_SignoZ = "Tierra"
Else
eXl_SignoZ = "Virgo"
End If
Else
If Elemento Then
eXl_SignoZ = "Aire"
Else
eXl_SignoZ = "Libra"
End If
End If
Case 10
If D <= 22 Then
If Elemento Then
eXl_SignoZ = "Aire"
Else
eXl_SignoZ = "Libra"
End If
Else
If Elemento Then
eXl_SignoZ = "Agua"
Else
eXl_SignoZ = "Escorpio"
End If
End If
Case 11
If D <= 21 Then
If Elemento Then
eXl_SignoZ = "Agua"
Else
eXl_SignoZ = "Escorpio"
End If
Else
If Elemento Then
eXl_SignoZ = "Fuego"
Else
eXl_SignoZ = "Sagitario"
End If
End If
Case 12
If D <= 21 Then
If Elemento Then
eXl_SignoZ = "Fuego"
Else
eXl_SignoZ = "Sagitario"
End If
Else
If Elemento Then
eXl_SignoZ = "Tierra"
Else
eXl_SignoZ = "Capricornio"
End If
End If
End Select
End Function
👉 Como hacer que la UDF (User Defined Functions) esté disponible como una Función Nativa de Excel
⭐ Si te gustó, por favor regístrate en nuestra Lista de correo y Suscríbete a mi canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.
