Red de conocimiento informático - Problemas con los teléfonos móviles - Programa VB para medir constelaciones

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