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> Não esconda os sentimentos. Que o seu auto-conhecimento seja a ferramenta fundamental para a sua felicidade.<br><br><b>Saúde:</b> Faça mais exercício físico.<br><br><b>Dinheiro:</b> Não se precipite e pense bem antes de tomar qualquer decisão.<br><br><b>Carta do Dia:</b> Imperador, que significa Concretização.<br><b>Número da Sorte:</b> 4<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 se intrometa em relações alheias, pois poderá ser mal interpretado.<br><br><b>Saúde:</b> Atravessa uma fase equilibrada neste campo.<br><br><b>Dinheiro:</b> A sua capacidade de concentração no seu trabalho poderá trazer alguns lucros.<br><br><b>Carta do Dia:</b> Rainha de Espadas, que significa Melancolia, Separação.<br><b>Número da Sorte:</b> 7, 13, 17, 29, 34, 36<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> Seja sincero com o seu companheiro. Exponha os seus sentimentos e as suas dúvidas.<br><br><b>Saúde:</b> Poderá sentir algumas quebras de tensão.<br><br><b>Dinheiro:</b> Através de uma conversa informal com um amigo de infância pode receber uma tentadora proposta de trabalho.<br><br><b>Carta do Dia:</b> Rei de Paus, que significa Força, Coragem e Justiça.<br><b>Número da Sorte:</b> 7, 13, 17, 29, 34, 36<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> Poderá sentir-se desiludido com o comportamento da pessoa amada. Tenha calma e não desista perante as adversidades.<br><br><b>Saúde:</b> Melhore o seu humor.<br><br><b>Dinheiro:</b> Os bons resultados profissionais irão recompensá-lo pelas dificuldades que está sentindo nas outras áreas da sua vida.<br><br><b>Carta do Dia:</b> 9 de Espadas, que significa Mau Pressentimento, Angústia.<br><b>Número da Sorte:</b> 3, 7, 11, 18, 22, 25<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> Dê uma oportunidade ao amor. Só erra quem está aprendendo a fazer as coisas da maneira certa.<br><br><b>Saúde:</b> Cuidado com o excesso de exercício físico.<br><br><b>Dinheiro:</b> A sua competência vai ser recompensada.<br><br><b>Carta do Dia:</b> Eremita, que significa Procura, Solidão.<br><b>Número da Sorte:</b> 4, 11, 17, 19, 25, 29<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> Não desista perante as primeiras dificuldades. Não se deixe manipular pelos seus próprios pensamentos.<br><br><b>Saúde:</b> Dia marcado por alguma instabilidade a nível emocional.<br><br><b>Dinheiro:</b> Ponha o seu trabalho em ordem.<br><br><b>Carta do Dia:</b> Às de Paus, que significa Energia, Iniciativa.<br><b>Número da Sorte:</b> 7, 13, 17, 29, 34, 36<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 o seu orgulho fira a pessoa que tem a seu lado. A paz começa no seu próprio coração.<br><br><b>Saúde:</b> Faça uma caminhada por semana e verá como a sua circulação sanguínea vai melhorar.<br><br><b>Dinheiro:</b> Tente fazer um pé-de-meia, pois mais tarde poderá vir a precisar de um dinheiro extra.<br><br><b>Carta do Dia:</b> 10 de Ouros, que significa Prosperidade, Riqueza e Segurança.<br><b>Número da Sorte:</b> 74<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> Aprenda a perdoar. Errar é humano e todas as pessoas merecem uma segunda oportunidade.<br><br><b>Saúde:</b> O seu sistema respiratório pode estar um pouco frágil.<br><br><b>Dinheiro:</b> Aproveite para gastar algum dinheiro em atividades que preencham o seu espírito filosófico.<br><br><b>Carta do Dia:</b> 4 de Espadas, que significa Inquietação, agitação.<br><b>Número da Sorte:</b> 3, 7, 11, 18, 22, 25<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> Tente não ser tão individualista, só tem a perder com essa atitude.<br><br><b>Saúde:</b> Possível quebra de tensão.<br><br><b>Dinheiro:</b> O seu lado criativo poderá trazer muito sucesso.<br><br><b>Carta do Dia:</b> 3 de Espadas, que significa Amizade, Equilíbrio.<br><b>Número da Sorte:</b> 53<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> Hoje irá se sentir particularmente melancólico.<br><br><b>Saúde:</b> Evite o tabaco ou lugares muito poluidos.<br><br><b>Dinheiro:</b> Aposte na criatividade. A sua ousadia e bom humor irão aparecer na apresentação de um novo projeto.<br><br><b>Carta do Dia:</b> Cavaleiro de Espadas, que significa Guerreiro, Cuidado.<br><b>Número da Sorte:</b> 62<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> As incertezas e a instabilidade vão tomar conta do seu relacionamento amoroso. Tente colocar as suas ideias no lugar para poder tomar uma decisão.<br><br><b>Saúde:</b> Cuidado com os excessos alimentares que podem trazer dissabores ao nível gástrico.<br><br><b>Dinheiro:</b> Esteja atento, pois poderá ter de vir a efetuar um pagamento de que não estava à espera.<br><br><b>Carta do Dia:</b> A Estrela, que significa Proteção, Luz.<br><b>Número da Sorte:</b> 1, 8, 10, 36, 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 ==12 && mes == 1)
document.write("<b>Amor:</b> Evite que a vida profissional perturbe o bom ambiente familiar. Passe mais tempo junto daqueles que lhe são mais queridos.<br><br><b>Saúde:</b> Poderá ter alguns problemas a nível circulatório. Dê um passeio a pé diariamente.<br><br><b>Dinheiro:</b> Esteja atento. A dispersão poderá fazer com que cometa erros no desempenho das suas funções profissionais, que pode evitar.<br><br><b>Carta do Dia:</b> Força, que significa Força, Domínio.<br><b>Número da Sorte:</b> 11<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> Por vezes deixar o orgulho de lado não faz mal a ninguém. O mundo dos pensamentos pode tornar-se, para você, uma fonte de prazer ou um filme de terror. Procure ter pensamentos positivos e não se deixe invadir por sentimentos ou pensamentos negativos.<br><br><b>Saúde:</b> Proteja-se um pouco mais de mudanças de temperatura.<br><br><b>Dinheiro:</b> Pense principalmente em ganhar dinheiro para o dia-a-dia.<br><br><b>Carta do Dia:</b> Às de Espadas, que significa Sucesso.<br><b>Número da Sorte:</b> 9, 13, 17, 29, 34, 36<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> Vai ter novidades muito empolgantes neste campo da sua vida. A sua felicidade depende do seu pensamento e das suas palavras.<br><br><b>Saúde:</b> A sua energia estará em plena euforia.<br><br><b>Dinheiro:</b> Hoje a sua sorte está em alta, poderá receber dinheiro inesperado.<br><br><b>Carta do Dia:</b> Rainha de Copas, que significa Amiga Sincera.<br><b>Número da Sorte:</b> 1, 4, 17, 21, 29, 33<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> A sua sensualidade e o seu forte poder comunicativo vão deixar vários corações a suspirar.<br><br><b>Saúde:</b> Seja prudente com os doces, tem tendência para diabetes.<br><br><b>Dinheiro:</b> Previna-se, pois poderão surgir alguns gastos pelos quais não esperava.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==16 && mes == 1)
document.write("<b>Amor:</b> Não tenha medo de demonstrar os seus sentimentos à pessoa que ama, até poderá ser correspondido. Não hesite em comprometer-se pelo que está correto.<br><br><b>Saúde:</b> Não deixe que o seu sorriso fique amarelo, procure o seu dentista.<br><br><b>Dinheiro:</b> Momento favorável neste setor.<br><br><b>Carta do Dia:</b> A Estrela, que significa Proteção, Luz.<br><b>Número da Sorte:</b> 17<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> Há uma tendência para a melhoria neste período.<br><br><b>Saúde:</b> Procure sempre o que é bom e belo dentro de você, coloque toda a sua atenção nessa tarefa e traga todos os seus bons sentimentos para a luz . Desta forma transformará a tristeza em alegria de viver.<br><br><b>Dinheiro:</b> Trabalhe com mais afinco para atingir os seus fins.<br><br><b>Carta do Dia:</b> O Mágico, que significa Habilidade.<br><b>Número da Sorte:</b> 1<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> Procure ocupar o seu espírito com pensamentos amorosos.<br><br><b>Saúde:</b> Não se preocupe em demasia.<br><br><b>Dinheiro:</b> Procure gastar o seu tempo na realização de coisas úteis a si e aos outros. Não se preocupe com aquilo que eles pensam ou dizem sobre a forma como gasta o seu tempo, o importante é aquilo que você pensa.<br><b>Número da Sorte:</b> 7<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> Não se deixe subjugar por falsos amigos.<br><br><b>Saúde:</b> A sua tendência para os excessos gastronomicos poderão provocar problemas de digestão, não exagere.<br><br><b>Dinheiro:</b> Trabalhe mais o seu poder de comunicação e a sua capacidade de discurso.<br><br><b>Carta do Dia:</b> Ás de Ouros, que significa Harmonia e Prosperidade.<br><b>Número da Sorte:</b> 65<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> Dia propício para resolver um mal entendido com a pessoa amada.<br><br><b>Saúde:</b> Tenha cuidado, pois poderá ter um problema de garganta.<br><br><b>Dinheiro:</b> Poderá obter uma quantia significativa que fará toda a diferença no seu orçamento.<br><br><b>Carta do Dia:</b> 2 de Paus, que significa Perda de Oportunidades.<br><b>Número da Sorte:</b> 24<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> Este é um bom período para conquistas, use e abuse do seu charme. O Destino não é inevitável, a maioria das vezes trata-se de uma questão de escolhas.<br><br><b>Saúde:</b> Anda com o sistema respiratório fragilizado, seja prudente.<br><br><b>Dinheiro:</b> Poderá sofrer uma mudança repentina no seu trabalho, esteja atento.<br><br><b>Carta do Dia:</b> O 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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==22 && mes == 12)
document.write("<b>Amor:</b> O romantismo anda no ar, aproveite para criar uma atmosfera de conto de fadas e preparar uma surpresa ao seu amor.<br><br><b>Saúde:</b> Dores no peito vão deixá-lo alarmado, mantenha-se atento, mas não entre em desespero, pois não será nada de grave.<br><br><b>Dinheiro:</b> Você deve pensar mais no trabalho, porque por vezes a sua fantasia deixa-o a sonhar acordado no local de trabalho.<br><br><b>Carta do Dia:</b> 5 de Espadas, que significa Avareza.<br><b>Número da Sorte:</b> 55<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> Evite as discussões na sua relação afetiva. Evite pensar demasiado, parta para a ação.<br><br><b>Saúde:</b> Será uma época com tendências para enxaquecas. Possível quebra de tensão.<br><br><b>Dinheiro:</b> Dê mais valor ao seu trabalho, e só terá a ganhar com isso. A sorte está do seu lado.<br><br><b>Carta do Dia:</b> 3 de Paus, que significa Iniciativa.<br><b>Número da Sorte:</b> 25<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> Fale abertamente com os que o rodeiam. Não se iniba de expor os seus sentimentos, pois obterá o que pretende com facilidade.<br><br><b>Saúde:</b> Visite o médico para um check-up.<br><br><b>Dinheiro:</b> Pessoas de grande influência poderão surgir no seu meio profissional. Agarre as oportunidades.<br><br><b>Carta do Dia:</b> Rainha de Espadas, que significa Melancolia, Separação.<br><b>Número da Sorte:</b> 63<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> Organize a área afetiva da sua vida. Os conselhos ajudam, mas não se esqueça que a resolução dos seus problemas está dentro de si!<br><br><b>Saúde:</b> Tendência para insonias, procure não se preocupar tanto.<br><br><b>Dinheiro:</b> Terá uma maior objetividade quando for o momento de gastar dinheiro.<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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==26 && mes ==12)
document.write("<b>Amor:</b> Procure ocupar o seu espírito com pensamentos amorosos.<br><br><b>Saúde:</b> Não se preocupe em demasia.<br><br><b>Dinheiro:</b> Terá uma maior predisposição para fazer investimentos corretos.<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 ==27 && mes ==12)
document.write("<b>Amor:</b> Seja mais realista e encare a vida tal como ela é.<br><br><b>Saúde:</b> Tendência para o excesso de álcool.<br><br><b>Dinheiro:</b> Evite que a sua vida ande para trás. Poupe dinheiro.<br><br><b>Carta do Dia:</b> 9 de Copas, que significa Vitória.<br><b>Número da Sorte:</b> 45<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> Dê mais espaço ao seu amor e verá que as coisas correrão muito melhor. Você merece ser feliz!<br><br><b>Saúde:</b> Vai se sentir um pouco mais fragilizado emocionalmente. Não se isole.<br><br><b>Dinheiro:</b> Preocupe-se mais com as suas tarefas em vez de estar sempre se intrometendo nos afazeres dos seus colegas.<br><br><b>Carta do Dia:</b> O Eremita, que significa Procura, Solidão.<br><b>Número da Sorte:</b> 9<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> Não seja tão mal humorado. Que a juventude de espírito o faça ter o mais belo sorriso!<br><br><b>Saúde:</b> Faça alguns exercícios físicos, mesmo em sua casa.<br><br><b>Dinheiro:</b> Não deixe para amanha aquilo que pode fazer hoje.<br><br><b>Carta do Dia:</b> 5 de Espadas, que significa Avareza.<br><b>Número da Sorte:</b> 55<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> A sua cara-metade pode surpreendê-lo, esteja atento. A verdadeira beleza não é visível aos olhos, pois está no coração!<br><br><b>Saúde:</b> Andará com o sistema nervoso alterado.<br><br><b>Dinheiro:</b> Período positivo para colocar em prática novos projetos.<br><br><b>Carta do Dia:</b> Julgamento, que significa Novo Ciclo de Vida.<br><b>Número da Sorte:</b> 20<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> Mantenha o otimismo e a boa disposição. A força do Bem transforma a vida.<br><br><b>Saúde:</b> Poderá ter alguns problemas de estômago.<br><br><b>Dinheiro:</b> Seja persistente. Não desista dos seus objetivos.<br><br><b>Carta do Dia:</b> 8 de Copas, que significa Concretização, Felicidade.<br><b>Número da Sorte:</b> 44")


  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;
  };
};