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> Está hipersensível. Não diga Não tenho nada para fazer. No Universo existe sempre uma surpresa agradável que espera por você.<br><br><b>Saúde:</b> Tente levar uma vida mais relaxada, a agitação pode ser prejudicial para a sua saúde.<br><br><b>Dinheiro:</b> Não corra riscos desnecessários, seja prudente.<br><br><b>Carta do Dia:</b> Mundo, que significa Fertilidade.<br><b>Número da Sorte:</b> 21<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> É provável que atravesse um período um pouco conturbado. Quem sabe proteger-se das emoções negativas aprende a construir um futuro risonho.<br><br><b>Saúde:</b> Não abuse da sua vitalidade e das suas energias, pois poderá ficar exausto.<br><br><b>Dinheiro:</b> Partilhe as suas ideias com os colegas de trabalho e poderão daí advir algumas oportunidades.<br><br><b>Carta do Dia:</b> A Papisa, que significa Estabilidade, Estudo e Mistério.<br><b>Número da Sorte:</b> 5, 25, 33, 49, 51, 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 ==3 && mes == 1)
document.write("<b>Amor:</b> Faça um programa divertido com a sua família, desta forma irá estreitar os seus laços familiares.<br><br><b>Saúde:</b> Controle o seu apetite.<br><br><b>Dinheiro:</b> As suas capacidades profissionais estão favorecidas. Vai sentir-se especialmente astuto e confiante.<br><br><b>Carta do Dia:</b> 3 de Espadas, que significa Amizade, Equilíbrio.<br><b>Número da Sorte:</b> 1, 3, 24, 29, 33, 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> Continue com a sua habitual predisposição para amar. Que a clareza de espírito esteja sempre consigo.<br><br><b>Saúde:</b> Cuidado com a ingestão excessiva de produtos lácteos.<br><br><b>Dinheiro:</b> A sua simplicidade e competência irão permitir que atinja patamares elevados na sua vida profissional.<br><br><b>Carta do Dia:</b> 4 de Copas, que significa Desgosto.<br><b>Número da Sorte:</b> 1, 8, 17, 21, 39, 48<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> Ponha as suas ideias no lugar. Que a sua Estrela-Guia brilhe eternamente.<br><br><b>Saúde:</b> Aposte no exercício físico e melhore a sua postura.<br><br><b>Dinheiro:</b> Dedique-se mais à sua atividade profissional. Se o fizer obterá bons resultados.<br><br><b>Carta do Dia:</b> 4 de Paus, que significa Ocasião Inesperada, Amizade.<br><b>Número da Sorte:</b> 2, 8, 11, 25, 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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==6 && mes ==1)
document.write("<b>Amor:</b> Se tiver filhos, estes exigirão atenção redobrada. Que o amor esteja sempre no seu coração.<br><br><b>Saúde:</b> Faça caminhadas ao ar livre.<br><br><b>Dinheiro:</b> Possibilidade de receber dinheiro extra, completamente inesperado.<br><br><b>Carta do Dia:</b> Cavaleiro de Copas, que significa Proposta Vantajosa.<br><b>Número da Sorte:</b> 5, 25, 33, 49, 51, 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 ==7 && mes == 1)
document.write("<b>Amor:</b> A sua relação está passando por um período menos positivo. Agora é tempo para paciência e vontade de partilhar.<br><br><b>Saúde:</b> Deve tentar dormir pelo menos oito horas por dia.<br><br><b>Dinheiro:</b> O equilíbrio financeiro faz parte da sua vida neste momento.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==8 && mes ==1)
document.write("<b>Amor:</b> Saia um pouco do seu mundo de sonho e desça até à realidade. Só deste modo vai conseguir enfrentar situações menos fáceis que podem vir a surgir.<br><br><b>Saúde:</b> Tendência para alergias.<br><br><b>Dinheiro:</b> Seja rigoroso no cumprimento dos seus planos.<br><br><b>Carta do Dia:</b> Cavaleiro de Espadas, que significa Guerreiro, Cuidado.<br><b>Número da Sorte:</b> 1, 8, 17, 21, 39, 48<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> Não é discutindo que vai resolver os seus problemas com a pessoa amada.<br><br><b>Saúde:</b> Procure andar um pouco mais a pé, fará muito bem à sua circulação sanguínea.<br><br><b>Dinheiro:</b> Nada de significativo incomodará as suas finanças.<br><br><b>Carta do Dia:</b> 2 de Espadas, que significa Afeição, Falsidade.<br><b>Número da Sorte:</b> 52<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> Aproveite o momento que se avizinha, repleto de sensualidade e mistério. Não perca tempo indagando em vão.<br><br><b>Saúde:</b> Fisicamente está ótimo. Aproveite para cuidar da mente.<br><br><b>Dinheiro:</b> Não descuide dos assuntos profissionais, esteja atento.<br><br><b>Carta do Dia:</b> 10 de Espadas, que significa Dor, Depressão, Escuridã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 ==11 && mes == 1)
document.write("<b>Amor:</b> Não se deixe abater. Que tenha sempre a sabedoria necessária para manter a sua mente limpa.<br><br><b>Saúde:</b> Não deixe que problemas profissionais desequilibrem o seu estado de saúde.<br><br><b>Dinheiro:</b> Não seja tão melindroso no seu trabalho para não levarem a mal as suas atitudes.<br><br><b>Carta do Dia:</b> O Dependurado, que significa Sacrifício.<br><b>Número da Sorte:</b> 1, 8, 10, 14, 19, 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> A sua boa disposição irá contagiar quem o rodeia. Que a luz da sua alma ilumine todos os que você ama!<br><br><b>Saúde:</b> Imponha um pouco mais de disciplina alimentar a si próprio.<br><br><b>Dinheiro:</b> Evite gastos excessivos.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==13 && mes ==1)
document.write("<b>Amor:</b> Poderá sofrer alguma alteração a nível familiar um pouco desagradável.<br><br><b>Saúde:</b> Está passando por uma ótima fase a este nível.<br><br><b>Dinheiro:</b> Esta é uma boa época para aprender a trabalhar em equipe. Tenha a convicção de que é uma pessoa com um potencial intelectual enorme. Aprenda a soltar toda essa Força e Luz interior que desconhece.<br><br><b>Carta do Dia:</b> Mundo, que significa Fertilidade.<br><b>Número da Sorte:</b> 5, 15, 17, 22, 31, 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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==14 && mes == 1)
document.write("<b>Amor:</b> Desfrute dos bons momentos no presente, mas lembre-se que no futuro as coisas podem não ser tão boas quanto imagina, aprenda a ser realista e valorizar o presente.<br><br><b>Saúde:</b> O seu corpo precisa de atenção, cuide de si.<br><br><b>Dinheiro:</b> Esforce-se um pouco mais se quer ter aquele aumento com o qual já sonha há algum tempo.<br><br><b>Carta do Dia:</b> Às de Copas, que significa Princípio do Amor, Grande Alegria.<br><b>Número da Sorte:</b> 8, 12, 19, 25, 33, 44<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> Irá sentir necessidade de se isolar para fazer uma análise dos seus sentimentos, de modo a acabar de vez com as dúvidas que teimam em pertubá-lo.<br><br><b>Saúde:</b> Tendência para se sentir um pouco febril e sem energia.<br><br><b>Dinheiro:</b> Evite ser tão apegado aos bens materiais.<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 ==16 && mes == 1)
document.write("<b>Amor:</b> Lute sempre pela sua felicidade, não se deixe vencer pelos obstáculos. Lute, lute sempre... Lute para ser feliz!<br><br><b>Saúde:</b> Procure fazer algum tipo de esporte.<br><br><b>Dinheiro:</b> Maré pouco favorável para investimentos.<br><br><b>Carta do Dia:</b> 5 de Ouros, que significa Perda/ Falha.<br><b>Número da Sorte:</b> 69")
if (num_dia ==17 && mes ==12)
document.write("<b>Amor:</b> Evite que situações mal resolvidas se arrastem. As coisas não se resolvem por si.<br><br><b>Saúde:</b> Evite que os problemas emotivos interfiram no seu bem-estar físico.<br><br><b>Dinheiro:</b> A sua astúcia e perspicácia vão permitir que consiga alcançar vantajosos frutos na área profissional.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==18 && mes == 12)
document.write("<b>Amor:</b> Não deixe que o seu orgulho fira a pessoa que tem a seu lado.<br><br><b>Saúde:</b> Estará em plena forma física.<br><br><b>Dinheiro:</b> Tenha cuidado com os falsos amigos, pois nem sempre as pessoas que nos mostram os dentes são as mais verdadeiras.<br><br><b>Carta do Dia:</b> 6 de Paus, que significa Ganho.<br><b>Número da Sorte:</b> 28<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> Poderá ser assaltado por dúvidas e indecisões completamente infundadas.<br><br><b>Saúde:</b> Cuide da sua saúde, vá ao médico e verifique se está tudo bem.<br><br><b>Dinheiro:</b> A sua postura vai ser notada e poderá ser recompensado por isso.<br><br><b>Carta do Dia:</b> O Dependurado, que significa Sacrifício.<br><b>Número da Sorte:</b> 12<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> Avizinham-se energias positivas, aproveite-as devidamente.<br><br><b>Saúde:</b> Tente descontrair saindo da rotina.<br><br><b>Dinheiro:</b> Procure demonstrar um pouco mais de interesse pelo seu trabalho, e poderá ser recompensado por isso.<br><br><b>Carta do Dia:</b> O Louco, que significa Excentricidade.<br><b>Número da Sorte:</b> 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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==21 && mes ==12)
document.write("<b>Amor:</b> O carinho dos que o rodeiam é tão vital para você como o ar que respira.<br><br><b>Saúde:</b> Sintomas de uma doença lembram-no que deve ter mais cuidado.<br><br><b>Dinheiro:</b> A estabilidade que tanto deseja aproxima-se.<br><br><b>Carta do Dia:</b> 7 de Espadas, que significa Novos Planos, Interferências.<br><b>Número da Sorte:</b> 57<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> Dia muito agitado a nível social. Vai se sentir bastante reconfortado pelo carinho dos seus amigos.<br><br><b>Saúde:</b> É possível que tenha alguns problemas de garganta.<br><br><b>Dinheiro:</b> Seja prestável e esforce-se por cumprir as suas obrigações.<br><br><b>Carta do Dia:</b> 7 de Paus, que significa Discussão, Negociação Difícil.<br><b>Número da Sorte:</b> 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 ==23 && mes ==12)
document.write("<b>Amor:</b> Uma pessoa que conhecia há muito tempo pode converter-se em alguém muito especial.<br><br><b>Saúde:</b> Procure relaxar, o sistema nervoso vai agradecer.<br><br><b>Dinheiro:</b> Período pouco favorável para gastos.<br><br><b>Carta do Dia:</b> Valete de Ouros, que significa Reflexão, Novidades.<br><b>Número da Sorte:</b> 75<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> Não deixe que as más-línguas o influenciem, tenha mais confiança na pessoa que está consigo.<br><br><b>Saúde:</b> Tenha cuidado com as correntes de ar.<br><br><b>Dinheiro:</b> Seja cauteloso com os seus gastos.<br><br><b>Carta do Dia:</b> 4 de Ouros, que significa Projetos.<br><b>Número da Sorte:</b> 68<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> Fará bons amigos. Olhe tudo com amor, assim a vida será uma festa!<br><br><b>Saúde:</b> Se tomar as devidas precauções conseguirá evitar sérios problemas.<br><br><b>Dinheiro:</b> Procure não influenciar as ideias dos outros.<br><br><b>Carta do Dia:</b> Carro, que significa Sucesso.<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 ==26 && mes == 12)
document.write("<b>Amor:</b> O seu coração baterá forte por alguém que você já não vê há muito tempo.<br><br><b>Saúde:</b> Vai se sentir em plena forma.<br><br><b>Dinheiro:</b> Evite a dispersão, os tempos não estão bons para gastos.<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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==27 && mes ==12)
document.write("<b>Amor:</b> A felicidade na sua casa depende da educação que der aos seus filhos, por isso, preste atenção à formação que lhes dá.<br><br><b>Saúde:</b> Atenções às mudanças de temperatura, estas podem ser prejudiciais para a sua saúde.<br><br><b>Dinheiro:</b> Reina a estabilidade neste campo.<br><br><b>Carta do Dia:</b> 9 de Paus, que significa Força na Adversidade.<br><b>Número da Sorte:</b> 31<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> Este é um bom período para conquistas, use e abuse do seu charme. Urgente é ser feliz, sorria!<br><br><b>Saúde:</b> Anda com o aparelho 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 Sol, que significa Glória, Honra.<br><b>Número da Sorte:</b> 19<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 perca tempo idealizando o seu amor, aceite-o tal como é. Contemple o esplendor das estrelas e seja sensível ao perfume das flores!<br><br><b>Saúde:</b> Momento muito favorável neste setor.<br><br><b>Dinheiro:</b> Momento pouco oportuno para gastos supérfluos.<br><br><b>Carta do Dia:</b> 7 de Espadas, que significa Novos Planos, Interferências.<br><b>Número da Sorte:</b> 57<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> Deixe um pouco o trabalho de lado e dê mais atenção à sua família. Dê sempre em primeiro lugar um bom exemplo de conduta!<br><br><b>Saúde:</b> Evite o desgaste físico.<br><br><b>Dinheiro:</b> Este não é um período favorável.<br><br><b>Carta do Dia:</b> 6 de Paus, que significa Ganho.<br><b>Número da Sorte:</b> 28<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> Controle os ciúmes para não perder aquilo que tem. Uma personalidade forte sabe ser suave e leve como uma pena.<br><br><b>Saúde:</b> Reflita profundamente sobre a sua vida interior e psíquica.<br><br><b>Dinheiro:</b> Período favorável ao pequeno e médio investimento.<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> 36")


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