PROCEDURE GETZODIAC(xdFecha)
* Obtener el signo del Zodíaco a partir de una fecha dada
* ldFEcha=Date(1936,10,4)
* lcSigno=GetZoidac(ldFecha)
***************************************************************
LOCAL lnDia,lnMes,lcResp
lcresp=""
LOCAL ARRAY gazod(24,4)
gaZod[1,1]=1
gaZod[2,1]=1
gaZod[3,1]=2
gaZod[4,1]=2
gaZod[5,1]=3
gaZod[6,1]=3
gaZod[7,1]=4
gaZod[8,1]=4
gaZod[9,1]=5
gaZod[10,1]=5
gaZod[11,1]=6
gaZod[12,1]=6
gaZod[13,1]=7
gaZod[14,1]=7
gaZod[15,1]=8
gaZod[16,1]=8
gaZod[17,1]=9
gaZod[18,1]=9
gaZod[19,1]=10
gaZod[20,1]=10
gaZod[21,1]=11
gaZod[22,1]=11
gaZod[23,1]=12
gaZod[24,1]=12
gaZod[1,2]=1
gaZod[2,2]=20
gaZod[3,2]=1
gaZod[4,2]=19
gaZod[5,2]=1
gaZod[6,2]=21
gaZod[7,2]=1
gaZod[8,2]=21
gaZod[9,2]=1
gaZod[10,2]=21
gaZod[11,2]=1
gaZod[12,2]=21
gaZod[13,2]=1
gaZod[14,2]=21
gaZod[15,2]=1
gaZod[16,2]=22
gaZod[17,2]=1
gaZod[18,2]=23
gaZod[19,2]=1
gaZod[20,2]=23
gaZod[21,2]=1
gaZod[22,2]=23
gaZod[23,2]=1
gaZod[24,2]=21
gaZod[1,3]=19
gaZod[2,3]=31
gaZod[3,3]=18
gaZod[4,3]=29
gaZod[5,3]=20
gaZod[6,3]=31
gaZod[7,3]=20
gaZod[8,3]=30
gaZod[9,3]=20
gaZod[10,3]=31
gaZod[11,3]=20
gaZod[12,3]=30
gaZod[13,3]=20
gaZod[14,3]=31
gaZod[15,3]=21
gaZod[16,3]=31
gaZod[17,3]=22
gaZod[18,3]=30
gaZod[19,3]=22
gaZod[20,3]=31
gaZod[21,3]=22
gaZod[22,3]=30
gaZod[23,3]=20
gaZod[24,3]=31
gaZod[1,4]=[Capricornio]
gaZod[2,4]=[Acuario]
gaZod[3,4]=[Acuario]
gaZod[4,4]=[Piscis]
gaZod[5,4]=[Piscis]
gaZod[6,4]=[Aries]
gaZod[7,4]=[Aries]
gaZod[8,4]=[Tauro]
gaZod[9,4]=[Tauro]
gaZod[10,4]=[Géminis]
gaZod[11,4]=[Géminis]
gaZod[12,4]=[Cáncer]
gaZod[13,4]=[Cáncer]
gaZod[14,4]=[Leo]
gaZod[15,4]=[Leo]
gaZod[16,4]=[Virgo]
gaZod[17,4]=[Virgo]
gaZod[18,4]=[Libra]
gaZod[19,4]=[Libra]
gaZod[20,4]=[Escorpio]
gaZod[21,4]=[Escorpio]
gaZod[22,4]=[Sagitario]
gaZod[23,4]=[Sagitario]
gaZod[24,4]=[Capricornio]
lnDia=DAY(xdFecha)
lnMes=MONTH(xdFecha)
FOR i=1 TO 24
IF gazod[i,1]=lnMes
IF BETWEEN(lnDia,gazod[i,2],gazod[i,3])
lcREsp=gazod[i,4]
EXIT
ENDIF
ENDIF
NEXT
RETURN lcREsp
Crear cuenta