dia=thisform.txtdia.value
mes=thisform.txtmes.value
año=thisform.txtaño.value
edad=2010-año
thisform.txtedad.value=edad
b=1900
for x=b to 2012
b=b+4
if año==b then
thisform.txtañonac.value="Año
Biciesto"
else
thisform.txtañonac.value="Año no
Biciesto"
endif
endfor
ma=20
for x=ma to 32
ma=ma+1
if dia=ma.and.mes="Marzo"
thisform.txtsigno.value="Aries"
endif
endfor
m=1
for x=m to 20
m=m+1
if dia=m.and.mes="Abril"
thisform.txtsigno.value="Aries"
endif
endfor
a=20
for x=a to 31
a=a+1
if dia=a.and.mes="Abril"
thisform.txtsigno.value="Tauro"
endif
endfor
ab=1
for x=ab to 21
ab=ab+1
if dia=ab.and.mes="Mayo"
thisform.txtsigno.value="Tauro"
endif
endfor
may=20
for x=may to 32
may=may+1
if dia=may.and.mes="Mayo"
thisform.txtsigno.value="Geminis"
endif
endfor
j=1
for x=j to 21
j=j+1
if dia=j.and.mes="Junio"
thisform.txtsigno.value="Geminis"
endif
endfor
ju=20
for x=ju to 31
ju=ju+1
if dia=ju.and.mes="Junio"
thisform.txtsigno.value="Cancer"
endif
endfor
jul=1
for x=jul to 20
jul=jul+1
if dia=jul.and.mes="Julio"
thisform.txtsigno.value="Cancer"
endif
endfor
julio=22
for x=julio to 32
julio=julio+1
if dia=julio.and.mes="Julio"
thisform.txtsigno.value="Leo"
endif
endfor
ago=1
for x=ago to 23
ago=ago+1
if dia=ago.and.mes="Agosto"
thisform.txtsigno.value="leo"
endif
endfor
ag=22
for x=ag to 31
ag=ag+1
if dia=ag.and.mes="Agosto"
thisform.txtsigno.value="Virgo"
endif
endfor
sep=1
for x=sep to 20
sep=sep+1
if dia=sep.and.mes="Septiembre"
thisform.txtsigno.value="Virgo"
endif
endfor
s=22
for x=s to 31
s=s+1
if dia=s.and.mes="Septiembre"
thisform.txtsigno.value="Libra"
endif
endfor
oct=1
for x=oct to 23
oct=oct+1
if dia=oct.and.mes="Octubre"
thisform.txtsigno.value="Libra"
endif
endfor
oc=22
for x=oc to 31
oc=oc+1
if dia=oc.and.mes="Octubre"
thisform.txtsigno.value="Escorpion"
endif
endfor
nov=1
for x=nov to 20
nov=nov+1
if dia=nov.and.mes="Noviembre"
thisform.txtsigno.value="Escorpion"
endif
endfor
novi=21
for x=novi to 31
novi=novi+1
if dia=novi.and.mes="Noviembre"
thisform.txtsigno.value="Sagitario"
endif
endfor
dic=1
for x=dic to 22
dic=dic+1
if dia=dic.and.mes="Diciembre"
thisform.txtsigno.value="Sagitario"
endif
endfor
di=20
for x=di to 31
di=di+1
if dia=di.and.mes="Diciembre"
thisform.txtsigno.value="Capricornio"
endif
endfor
en=1
for x=en to 20
en=en+1
if dia=en.and.mes="Enero"
thisform.txtsigno.value="Capricornio"
endif
endfor
ene=19
for x=ene to 31
ene=ene+1
if dia=ene.and.mes="Enero"
thisform.txtsigno.value="Acuario"
endif
endfor
feb=1
for x=feb to 19
feb=feb+1
if dia=feb.and.mes="Febrero"
thisform.txtsigno.value="Acuario"
endif
endfor
f=20
for x=f to 28
f=f+1
if dia=f.and.mes="Febrero"
thisform.txtsigno.value="Piscis"
endif
endfor
marzo=1
for x=marzo to 22
marzo=marzo+1
if dia=marzo.and.mes="Marzo"
thisform.txtsigno.value="Piscis"
endif
endfor
-Una vez ejecutado se nos mostrara de la siguiente forma:
