Vb escribió un programa para medir constelaciones

Constelación de función pública en forma de cadena (mFecha como fecha)

Constelación

Constelación = Medio("Capricornio Acuario Piscis Aries Tauro Géminis Cáncer Leo Virgo Libra Escorpio Sagitario Capricornio", (mes(fecha)+IIF((día(fecha)-(10212344533)))(Medio(" 12344538+0234533 ")= 0, 0, -1)) * 2 + 1, 2) & amp; "asiento"

Función final

Función pública GetCNum(d As Date) en forma entera

Seleccione caso Constelación(d)

Caso "Aries"

n = 0

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

Caso "Escorpio "

n = 7

Caso "Sagitario"

n = 8

Caso "Capricornio"

n = 9

Caso "Acuario"

n = 10

Caso "Piscis"

n = 11

Finalizar selección

GetCNum = n

Finalizar función

Subtexto privado 1 _ KeyPress (KeyAscii es un número entero)

Marcar datos como fecha

Si KeyAscii = 13, entonces

d = Texto1

Constelación = Constelación(d)

Seleccione el caso constelación (d)

Caso "Aries"

S = "¡Usualmente estás lleno de energía, pero hoy te has vuelto aburrido! Si no quieres que la relación Solo duran tres años. Minutos, solo piensa en cómo operar. De vez en cuando, cultiva tu temperamento y compra un buen libro. ¡Hoy no hay impulso, así que debes mantenerte discreto y esperar la oportunidad! Caso "Tauro"

S = "Conocerás a mucha gente. ¡Recuerda abrir tu mente y no te aburras demasiado! Abre los ojos y echa un vistazo, ¡pueden aparecer nuevos objetos! Un ambiente relajado. La fiesta te costará dinero Trabajo: Conocerás a mucha gente hoy. La gente tiene reuniones e interactúa con frecuencia."

Caso "Géminis"

S = "Haz todo lo posible y trabaja. ¡Quiero que te calmes! ¡Hoy es un buen momento! Generalmente me resulta placentero gastar dinero, pero de repente quiero hacer una planificación financiera. Hoy tomaré una decisión importante, ¡cree en mí mismo! "

Caso "Cáncer"

S = "No te quedes en casa todo el tiempo. Hoy es un buen momento para salir a caminar." ¡Sal de excursión al aire libre con tus seres queridos! Habrá una fiesta que te costará dinero. Para mejorar su competitividad, necesita estar expuesto a más negocios que normalmente no comprende. "

Caso "Leo"

S = "Deja tus afiladas garras, hoy todo es negociable." El poderoso león se convierte en un dócil gatito que sólo quiere acurrucarse junto a quien ama. ¡Compraré algunos pequeños obsequios para mi familia! Alguien le pide ayuda con sus deberes oficiales, pero le da vergüenza negarse. "

Caso "Virgo"

S = "Un buen momento para ampliar tu círculo vital y establecer nuevas relaciones. Las personas solteras se sienten particularmente solas y esperan el amor. ¿Discutir planes de empresa conjunta con amigos? Trabajo: ¿Manejar adecuadamente los detalles de los casos de cooperación? "

Caso "Libra"

S = "Un día en el que podrás deshacerte de los prejuicios y tener un juicio objetivo y tranquilo." Cíñete a tus propias ideas y fortalece tu actitud. Las inversiones anteriores están dando señales de estar dando sus frutos. ¡Hoy haces que la gente se sienta madura y estable, y se te pueden confiar importantes responsabilidades! "

Case "Scorpio"

S = "También puedes entrar y echar un vistazo a la tienda que te interesa."

No descartes citas a ciegas o presentaciones de amigos, ¡quizás conozcas a un buen candidato! Adecuado para ir de compras a comprar algunos suministros de otoño e invierno. Las personas que conoces por primera vez son especialmente destacables y puedes aprender mucho de ellas. "

Caso "Sagitario"

S = "Los amigos mayores te darán consejos útiles. Hoy es un buen día para confiar en un amigo cercano. Para complacer a mi amante no dudo en hacer muecas y fingir estar gorda. Ten cuidado con los mayores o personas mayores y sé más educado de lo habitual. "

Caso "Capricornio"

S = "No importa cómo te sientas, escóndelo, sigue sonriendo más y acércate a los demás. Incluso las personas cercanas deben respetar la autoestima de los demás. Ayudar a los demás con sinceridad también es tu buena suerte. Para ocuparme de los asuntos de otras personas, mis propios asuntos terminaron por hoy. ”

Caso “Acuario”

S = “Este es un día en el que no puedes hacer dos cosas al mismo tiempo. Si cuidas el este, no puedes cuidar el oeste. Deberías concentrarte en una cosa. No puedes simplemente mirar la apariencia de las personas. Ten cuidado cuando rompas tus gafas. Tan pronto como sienta que algo anda mal, deberá tomar medidas de contingencia y modificar su plan. "Si te apresuras hacia el éxito, todo se volverá cada vez más caótico. De hecho, si lo haces lentamente, la solución será bastante sencilla."

Caso "Piscis"

S = "Intoxicado en La atmósfera alegre te emocionará. Participar con entusiasmo en reuniones relajadas invitadas por amigos conducirá a desarrollos amorosos inesperados. Preste atención al costo de comer, beber y relajarse después del trabajo, lo que puede aliviar el estrés en de una vez /p>

Finalizar selección

Etiqueta1. strConstellation & ampvbCrLf & amp; s

Terminará si...

Conector final

Subtexto privado 2 _ KeyPress (KeyAscii es un número entero)

Atenuar d1 como fecha, d2 como fecha

Si KeyAscii = 13, entonces

arr = Array(Array(90, 64, 86, 22, 94, 65, 83, 44, 93, 25, 84, 46), _

Matriz (62, 91, 83, 41, 16, 94, 48, 85, 66, 93, 22, 76), _

Matriz(83, 42, 91, 67, 79, 20, 94, 63, 80, 39, 96, 24),_

Matriz(26, 83 , 63, 94, 36, 82, 24, 96, 45, 84, 59, 94),_

Matriz(92, 22, 87, 43, 89, 63, 84, 30, 93, 63, 81, 44), _

Matriz (66, 93, 19, 86, 57, 96, 44, 82, 25, 94, 39, 83), _

Matriz (82, 47, 90, 17, 77, 46, 91, 64, 77, 21, 94, 64),_

Matriz (45, 87, 62, 92, 19, 76, 62 , 94, 44, 58, 23, 97), _

Matriz (91, 65, 82, 47, 93, 23, 76, 35, 94, 64, 77, 23), _

Matriz (20, 96, 44, 78, 55, 97, 27, 82, 66, 96, 46, 78),_

Matriz (82, 21, 92, 59, 79, 44, 90, 22,78,43,95,66))

d1 = Texto1. texto

d2 = texto2. Texto

n1 = GetCNum(d1)

n2 = GetCNum(d2)

Etiqueta 2. Caption = arr(n1)(n2)

Terminará si...

Finalizar conector