function escreverdataatual(vRetorno)
{

  day = new Date()
  num_dia = day.getDate()
  dia = day.getDay()+1
  mes = day.getMonth()+1
  ano = day.getYear()
if (num_dia ==1 && mes == 1)
document.write("<b>Amor:</b> Uma relação passada e que julgava já estar esquecida, poderá novamente invadir o seu coração.<br><br><b>Saúde:</b> Seja mais seletivo com a sua alimentação.<br><br><b>Dinheiro:</b> Período favorável. Tenha grandes sonhos e terá um belo motivo para caminhar.<br><br><b>Carta do Dia:</b> 4 de Copas, que significa Desgosto.<br><b>Número da Sorte:</b> 40<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==2 && mes ==1)
document.write("<b>Amor:</b> Não reaja a provocações. Controle a sua impulsividade. Proteja as suas emoções tornando-se cada dia que passa num ser humano mais forte e então sim, será feliz.<br><br><b>Saúde:</b> Não ceda a tentações que lhe poderão prejudicar a saúde.<br><br><b>Dinheiro:</b> Gozará de uma fase favorável.<br><br><b>Carta do Dia:</b> O Mundo, que significa Fertilidade.<br><b>Número da Sorte:</b> 9, 11, 25, 27, 39, 47<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==3 && mes == 1)
document.write("<b>Amor:</b> Não seja tão ironico com os outros. Podem achá-lo demasiado sarcástico.<br><br><b>Saúde:</b> Apanhe mais ar puro e evite ambientes poluídos.<br><br><b>Dinheiro:</b> Aproveite para finalizar alguns dos seus muitos projetos que ainda não conseguiu levar a bom termo. Não sofra por antecipação, porque assim não viverá as alegrias e felicidades de cada momento que passa.<br><br><b>Carta do Dia:</b> 4 de Copas, que significa Desgosto.<br><b>Número da Sorte:</b> 8, 17, 22, 24, 39, 42<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==4 && mes ==1)
document.write("<b>Amor:</b> Seja mais coerente consigo mesmo e com os outros. As suas constantes mudanças de humor e de ideias só o irão prejudicar.<br><br><b>Saúde:</b> Não se enerve tanto, leve a vida de uma forma mais descontraída.<br><br><b>Dinheiro:</b> O seu poder de comunicação e argumentação será um trunfo, sirva-se dele para atingir os seus objetivos.<br><br><b>Carta do Dia:</b> Às de Copas, que significa Principio do Amor, Grande Alegria.<br><b>Número da Sorte:</b> 9, 18, 27, 31, 39, 42<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==5 && mes == 1)
document.write("<b>Amor:</b> Dia muito propício ao romance.<br><br><b>Saúde:</b> O seu bem-estar dependerá única e exclusivamente de você.<br><br><b>Dinheiro:</b> Vai receber uma boa notícia por parte de algum superior, fruto do seu trabalho e dedicação.<br><br><b>Carta do Dia:</b> Estrela, que significa Proteção, Luz.<br><b>Número da Sorte:</b> 5, 9, 17, 33, 42, 47<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==6 && mes ==1)
document.write("<b>Amor:</b> Controle a sua tendência inata para a inconstância.<br><br><b>Saúde:</b> Possibilidade de ser acometido por dores de cabeça e enxaquecas.<br><br><b>Dinheiro:</b> Dia favorável à aquisição de bens materiais.<br><br><b>Carta do Dia:</b> Louco, que significa Excentricidade.<br><b>Número da Sorte:</b> 9, 11, 25, 27, 39, 47<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==7 && mes == 1)
document.write("<b>Amor:</b> Não deixe que os assuntos domésticos interfiram na sua vida amorosa. Aprenda a trazer para a luz o melhor do seu ser!<br><br><b>Saúde:</b> A sua energia está em alta.<br><br><b>Dinheiro:</b> Poderão surgir algumas dificuldades economicas.<br><br><b>Carta do Dia:</b> Cavaleiro de Paus, que significa Viagem longa, Partida Inesperada.<br><b>Número da Sorte:</b> 34<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==8 && mes ==1)
document.write("<b>Amor:</b> A tranquilidade vai tomar conta do seu dia. Que a alegria de viver esteja sempre na sua vida.<br><br><b>Saúde:</b> Risco de problemas ao nível intestinal.<br><br><b>Dinheiro:</b> Pondere uma possível proposta de trabalho, procure avaliar o que é melhor para você.<br><br><b>Carta do Dia:</b> Valete de Paus, que significa Amigo, Notícias Inesperadas.<br><b>Número da Sorte:</b> 9, 18, 27, 31, 39, 42<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==9 && mes == 1)
document.write("<b>Amor:</b> Aceite os fracassos e as vitórias com a mesma humildade, afinal está neste Mundo, como toda a Humanidade, para aprender.<br><br><b>Saúde:</b> Poderá sofrer de algumas dores de cabeça fortes.<br><br><b>Dinheiro:</b> Poderá ganhar algum dinheiro extra.<br><br><b>Carta do Dia:</b> 2 de Ouros, que significa Dificuldade/ Indolência.<br><b>Número da Sorte:</b> 66<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==10 && mes ==1)
document.write("<b>Amor:</b> Reflita sobre a forma como se relaciona com os seus familiares.<br><br><b>Saúde:</b> Tenha atenção ao seu acelerado ritmo de trabalho.<br><br><b>Dinheiro:</b> Um problema na sua conta bancária irá provocar preocupações.<br><br><b>Carta do Dia:</b> Rei de Ouros, que significa Inteligente, Prático.<br><b>Número da Sorte:</b> 78<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==11 && mes == 1)
document.write("<b>Amor:</b> Modere as suas palavras. A sua sinceridade e frontalidade podem ferir as pessoas que ama. Lembre-se que nem todos têm o seu sangue frio.<br><br><b>Saúde:</b> O seu habitual nervosismo vai estar ainda mais destacado. A sua saúde pode sair prejudicada.<br><br><b>Dinheiro:</b> Possibilidade de promoção graças ao seu acentuado espírito de liderança e poder de organização.<br><br><b>Carta do Dia:</b> A Papisa, que significa Estabilidade, Estudo e Mistério.<br><b>Número da Sorte:</b> 5, 6, 7, 10, 18, 22<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==12 && mes == 1)
document.write("<b>Amor:</b> Poderá passar momentos muito agradáveis junto da sua família. O ambiente familiar encontra-se na perfeição, aproveite a boa disposição que vos rodeia.<br><br><b>Saúde:</b> É possível que sofra de dores nas articulações.<br><br><b>Dinheiro:</b> Evite comentar as decisões tomadas pelos seus superiores.<br><br><b>Carta do Dia:</b> Papa, que significa Sabedoria.<br><b>Número da Sorte:</b> 5<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==13 && mes ==1)
document.write("<b>Amor:</b> Seja prudente na forma como lida com as pessoas que o rodeiam. Aprenda a amar-se e então saberá amar tudo e todos.<br><br><b>Saúde:</b> Cuide mais de si.<br><br><b>Dinheiro:</b> Não se deixe levar pelo impulso neste campo da sua vida.<br><br><b>Carta do Dia:</b> O Eremita, que significa Procura, Solidão.<br><b>Número da Sorte:</b> 9, 11, 25, 27, 39, 47<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==14 && mes == 1)
document.write("<b>Amor:</b> Andará mais seguro dos seus sentimentos afetivos. A felicidade na sua casa depende da educação que der aos seus filhos, por isso, preste atenção à formação que dá.<br><br><b>Saúde:</b> Controle a sua agressividade, pois isso prejudica o seu sistema nervoso.<br><br><b>Dinheiro:</b> Aprenda a controlar-se, anda a expandir-se em demasia nos seus gastos.<br><br><b>Carta do Dia:</b> Cavaleiro de Espadas, que significa Guerreiro, Cuidado.<br><b>Número da Sorte:</b> 2, 29, 31, 36, 44, 49<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==15 && mes ==1)
document.write("<b>Amor:</b> Prontifique-se a ajudar um familiar.<br><br><b>Saúde:</b> Predisposição para o reumatismo. Evite apanhar humidade.<br><br><b>Dinheiro:</b> Seja menos preocupado com os seus gastos. Satisfaça os seus pequenos caprichos.<br><br><b>Carta do Dia:</b> 8 de Espadas, que significa Crueldade.<br><b>Número da Sorte:</b> 58<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==16 && mes == 1)
document.write("<b>Amor:</b> Saia mais com os amigos e divirta-se. Você merece ser feliz!<br><br><b>Saúde:</b> O seu sistema nervoso anda um pouco alterado, tente manter a calma.<br><br><b>Dinheiro:</b> Cuidado com os gastos supérfluos.<br><br><b>Carta do Dia:</b> A Lua, que significa Falsas Ilusões.<br><b>Número da Sorte:</b> 18<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==17 && mes ==12)
document.write("<b>Amor:</b> Controle o seu excesso de confiança, pois poderá ainda ter de lutar pela sua paixão. Que a verdadeira sabedoria entre no seu coração.<br><br><b>Saúde:</b> Espere um período de alguma preocupação, mas nada de muito grave.<br><br><b>Dinheiro:</b> É possível que venha a ter uma maior preocupação com o seu poder material.<br><br><b>Carta do Dia:</b> 6 de Copas, que significa Nostalgia.<br><b>Número da Sorte:</b> 42<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==18 && mes == 12)
document.write("<b>Amor:</b> Escolha cuidadosamente as palavras a dizer à pessoa amada para não ferir os sentimentos.<br><br><b>Saúde:</b> Sua saúde pede cuidados especiais. Evite mudanças bruscas de temperatura. Uma constipação pode estar à espreita.<br><br><b>Dinheiro:</b> A sua capacidade de trabalho está mais favorecida do que nunca.<br><br><b>Carta do Dia:</b> 10 de Paus, que significa Sucessos Temporários, Ilusão.<br><b>Número da Sorte:</b> 32<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==19 && mes ==12)
document.write("<b>Amor:</b> Seja mais coerente consigo mesmo e com os outros.<br><br><b>Saúde:</b> Os seus nervos vão estar na flor da pele.<br><br><b>Dinheiro:</b> O seu poder de comunicação e argumentação será um trunfo, sirva-se dele para atingir os seus objetivos.<br><br><b>Carta do Dia:</b> Ás de Copas, que significa Principio do Amor, Grande Alegria.<br><b>Número da Sorte:</b> 37<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==20 && mes == 12)
document.write("<b>Amor:</b> Não espere muito das pessoas, aprenda a dar com altruísmo e ficará surpreendido com a quantidade de bens que receberá em troca, pois o Universo encarregar-se-á de fazer justiça.<br><br><b>Saúde:</b> Siga os seus instintos e tudo correrá bem.<br><br><b>Dinheiro:</b> Neste dia este campo estará favorável, mas tenha em atenção o excesso de trabalho.<br><br><b>Carta do Dia:</b> 5 de Ouros, que significa Perda/Falha.<br><b>Número da Sorte:</b> 69<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==21 && mes ==12)
document.write("<b>Amor:</b> Sentirá necessidade de estar rodeado de amigos.<br><br><b>Saúde:</b> Dê ânimo à sua vida, pratique dança ou uma modalidade de que goste.<br><br><b>Dinheiro:</b> A dificuldade toca a todos, modere os seus gastos.<br><br><b>Carta do Dia:</b> Rei de Espadas, que significa Poder, Autoridade.<br><b>Número da Sorte:</b> 64<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==22 && mes == 12)
document.write("<b>Amor:</b> Pequenas desconfianças irão trazer tormentos.<br><br><b>Saúde:</b> Atenção ao stress e ao desgaste, a sua tensão arterial vai ressentir-se com esta sua agitação.<br><br><b>Dinheiro:</b> Deve confiar mais nas suas capacidades, a verdade é que você é bom naquilo que faz.<br><br><b>Carta do Dia:</b> 10 de Espadas, que significa Dor, Depressão, Escuridão.<br><b>Número da Sorte:</b> 60<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==23 && mes ==12)
document.write("<b>Amor:</b> Esta não é a melhor hora para arriscar, deixe para outra ocasião.<br><br><b>Saúde:</b> Não estará na sua melhor forma, o cansaço será mais forte.<br><br><b>Dinheiro:</b> Se pretende investir esta é a melhor hora para os negócios, mas seja prudente.<br><br><b>Carta do Dia:</b> 8 de Espadas, que significa Crueldade.<br><b>Número da Sorte:</b> 58<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==24 && mes == 12)
document.write("<b>Amor:</b> O clima será de grande harmonia e entrega.<br><br><b>Saúde:</b> Cuidado com a sua alimentação.<br><br><b>Dinheiro:</b> Está agora na hora de comprar aquela peça de que tanto gosta.<br><br><b>Carta do Dia:</b> A Temperança, que significa Equilíbrio.<br><b>Número da Sorte:</b> 14<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==25 && mes ==12)
document.write("<b>Amor:</b> Evite que o amor turve os olhos. Caminhe pela Estrada da Vida espalhando Esperança e Alegria e será recompensado.<br><br><b>Saúde:</b> Tome um chá tranquilizante, pois o seu sistema nervoso poderá estar abalado.<br><br><b>Dinheiro:</b> Boas perspectivas a nível economico.<br><br><b>Carta do Dia:</b> 5 de Paus, que significa Fracasso.<br><b>Número da Sorte:</b> 27<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==26 && mes == 12)
document.write("<b>Amor:</b> Escolha cuidadosamente as palavras a dizer à pessoa amada para não ferir sentimentos.<br><br><b>Saúde:</b> Sua saude pede cuidados especiais.<br><br><b>Dinheiro:</b> Tendência para tirar proveito de tudo o que faz.<br><br><b>Carta do Dia:</b> 6 de Espadas, que significa Viagem  Inesperada.<br><b>Número da Sorte:</b> 56<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==27 && mes ==12)
document.write("<b>Amor:</b> Seja mais atencioso com a sua cara-metade.<br><br><b>Saúde:</b> Evite expor-se a mudanças bruscas de temperatura.<br><br><b>Dinheiro:</b> Esteja atento a alguns colegas mal-intencionados que possam prejudicar o desenrolar do seu trabalho.<br><br><b>Carta do Dia:</b> Rainha de Paus, que significa Poder Material e que pode ser Amorosa ou Fria.<br><b>Número da Sorte:</b> 35<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==28 && mes == 12)
document.write("<b>Amor:</b> Dia marcado por uma grande confusão de sentimentos. Que a serenidade e a paz de espírito sejam uma constante na sua vida!<br><br><b>Saúde:</b> Evite o stress.<br><br><b>Dinheiro:</b> Assuma as responsabilidades dos seus atos.<br><br><b>Carta do Dia:</b> 9 de Espadas, que significa Mau Pressentimento, Angústia.<br><b>Número da Sorte:</b> 59<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==29 && mes ==12)
document.write("<b>Amor:</b> Dê um pouco mais de liberdade à pessoa que tem a seu lado, não a sufoque. Que a serenidade e a paz de espírito sejam uma constante na sua vida!<br><br><b>Saúde:</b> Tendência para dores de garganta.<br><br><b>Dinheiro:</b> Possível promoção no trabalho.<br><br><b>Carta do Dia:</b> 7 de Copas, que significa Sonhos Premonitórios.<br><b>Número da Sorte:</b> 43<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==30 && mes == 12)
document.write("<b>Amor:</b> Este é um período favorável para a resolução de um conflito antigo. Que a sabedoria infinita esteja sempre consigo!<br><br><b>Saúde:</b> Andará muito nervoso e irrequieto.<br><br><b>Dinheiro:</b> Poderão surgir alguns patrocínios para o seu empreendimento.<br><br><b>Carta do Dia:</b> Enamorados, que significa Escolha.<br><b>Número da Sorte:</b> 6<br><br><b><a href='http://www.portalangels.com/horoscopo.htm' target='_blank'>Ver previsão para todos os signos</a> - <a href='http://www.portalangels.com/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==31 && mes ==12)
document.write("<b>Amor:</b> Conseguirá encontrar o lado positivo de cada acontecimento que ocorra. Proteja as suas emoções tornando-se cada dia que passa num ser humano mais forte e então sim, será feliz.<br><br><b>Saúde:</b> Mantenha-se em forma.<br><br><b>Dinheiro:</b> A sua intuição será de grande ajuda num assunto profissional.<br><br><b>Carta do Dia:</b> A Temperança, que significa Equilíbrio.<br><b>Número da Sorte:</b> 14")


  if (vRetorno==null)
  {
    //não retorna nada
  }
  else
  {
    //retorna qualquer coisa que você definir em vRetorno 
    //obs.: aplicavel ao caso de querer retornar uma outra função ou o valor de outra função
    return vRetorno;
  };
};