Mira, cómo haces un horóscopo no tengo la menor idea. Tal vez tengas que consultar con el oráculo.
Te puedo decir cómo determinar el signo zodiacal al que pertenece una fecha dada.
Una vez conocido el sigo, te convendrá tener una tabla con dos campos:
1) Signo zodíaco (character) Name="Signo"
2) Comentarios (campo memo) Name="Comenta"
Agrega a la tabla los doce signos del zodíaco (deben ser o minúsculas o mayúsculas para facilitar la búsqueda) y en el campo memo, todas las características.
ldFEcha=date(1958,4,11)
lcSigno=Upper(GetZodiaco(ldFecha))
select Tabla_Zodiaco
locate for trim(signo)==lcSigno
if found()
lcCaracteristicas=comenta
endif
with thisform
.Text1.VAlue=Proper(lcSigno)
.Edit1.Value=lcCaracteristicas
endwith
Algo por el estilo tiene que funcionar.