Programa VB para medir constelaciones
Dos etiquetas, dos textos
Función pública Constelación(mFecha Como Fecha) Como Cadena
'Constelación
Constelación = Medio("Capricornio Acuario Piscis Aries Tauro Gemelo Gemelo Cáncer León Virgo Libra Escorpión Sagitario Mes.Capricornio", (Mes(mDate) IIf((Día(mDate) - (19 Int(Mid("102123444533", Mes(mDate), 1)))) gt;=0, 0 , -1)) * 2 1, 2) amp; "Constelación"
Función final
Función pública GetCNum(d como fecha) como número entero
Seleccionar Caso Constelación(d)
Caso "Aries"
n = 0
Casep>Caso "Tauro"
n = 1
Caso "Géminis"
n = 2
Caso "Cáncer"
n = 3
Caso " Leo"
n = 4
Caso "Virgo"
n = 5
Caso "Libra"
n = 6 casos de "Escorpio"
n = 7
Casos de "Sagitario"
n = 8
Ejemplo " Capricornio"
n = 9
Ejemplo "Acuario"
n = 10
Ejemplo "Piscis"
n = 11