...::: Numerologia :::...
Digite o seu nome completo ( Preencha sem acentos )

 Dia de Nascimento (dd/mm/aaaa}

 Sexo (Homem/Mulher)

 

" document.write "" document.write " ...::: Numerologia :::... " document.write "" document.write "
" document.write "
" document.write "
Nome: " + Nome + "
" document.write "Idade: " + idade + "
" document.write "Signo: "+ Signo(sig) + "
" document.write "Planeta regente :"+Planeta(sig)+"
" document.write "Elemento :"+elemento+"
" document.write "Número de Ambição : " +Cstr(Numero(Ambicao)) + "

" document.write "Número de Personalidade : " + Cstr(Numero(Personal))+"

" document.write "Número de Expressão: " + cstr(Numero(Expres)) + "

" document.write "Número de Destino: "+ cstr(Numero(Desti))+"

" document.write "Segundo seu dia de nascimento.....

" document.write "" + pelonas(day(Data)) + "

" document.write "A sua ambição é ....

" document.write "" + Amb(Numero(Ambicao)) + "

" document.write "Você é...

" document.write ""+Pers(Numero(Personal))+"

" document.write "Segundo seu número de Expressão....

" document.write "" + Exp(Numero(Expres)) +"

" document.write "Segundo seu número de Destino ...

" document.write ""+Des(Numero(Desti))+"

" document.write "
" document.write "
" document.write "" document.close End sub function Numero (byval Num) Dim Final Dim Nums Dim f Final = 0 DO WHILE true IF Num<10 OR Num=11 OR Num=22 then Final = Num Exit do End if Nums = " " Nums = Num Num = 0 FOR f=1 TO len(trim(Nums)) Num = Num + mid(Nums,f,1) NEXT loop Numero = Final End Function -->