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 discussão poderá abalar o seu estado de espírito. Aprenda a ser tolerante e solidário, pois a tolerância é a arma dos inteligentes e a solidariedade é a arma dos sábios.<br><br><b>Saúde:</b> Cuidado com mudanças de temperatura e com problemas de garganta.<br><br><b>Dinheiro:</b> Poderá atravessar um período de crise, previna-se.<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 ==2 && mes ==1)
document.write("<b>Amor:</b> Clima de grande harmonia familiar e amorosa, mas seja mais compreensivo.<br><br><b>Saúde:</b> Mantenha a calma. Perdoe a si próprio.<br><br><b>Dinheiro:</b> Terá de controlar esse seu instinto materialista.<br><br><b>Carta do Dia:</b> 7 de Espadas, que significa Novos Planos, Interferências.<br><b>Número da Sorte:</b> 1, 2, 8, 16, 22, 39<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> Vai sentir-se um pouco mais agressivo do que o habitual. Evite entrar em discussões sem sentido e que não o vão levar a lado nenhum.<br><br><b>Saúde:</b> Não se esforce demasiado e aproveite o dia de calma para descansar.<br><br><b>Dinheiro:</b> Não culpe os seus colegas por um erro que cometeu. Assuma as suas responsabilidades.<br><br><b>Carta do Dia:</b> Rei de Copas, que significa Poder de Concretização, Respeito.<br><b>Número da Sorte:</b> 1, 8, 42, 46, 47, 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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==4 && mes ==1)
document.write("<b>Amor:</b> Vai sentir necessidade de se sentir amado e acarinhado pelos seus familiares.<br><br><b>Saúde:</b> Não permita que a preguiça e o desânimo se instalem.<br><br><b>Dinheiro:</b> Encarregue-se dos seus próprios assuntos. Não delegue para outras pessoas as suas responsabilidades, pois pode prejudicar-se se o fizer.<br><br><b>Carta do Dia:</b> Carro, que significa Sucesso.<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 ==5 && mes ==1)
document.write("<b>Amor:</b> O seu poder de sedução estará no auge. Aproveite-o para arrebatar o coração de alguém.<br><br><b>Saúde:</b> Dia sem problemas nesta área.<br><br><b>Dinheiro:</b> Poderá surgir a notícia de algum pagamento inesperado.<br><br><b>Carta do Dia:</b> 10 de Paus, que significa Sucessos Temporários, Ilusão.<br><b>Número da Sorte:</b> 3, 24, 29, 33, 38, 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 ==6 && mes ==1)
document.write("<b>Amor:</b> Controle os seus ciúmes e a sua possessividade. Que a luz da sua alma ilumine todos os que você ama.<br><br><b>Saúde:</b> Tenha em atenção possíveis disfunções hormonais.<br><br><b>Dinheiro:</b> Parta à conquista do seu lugar ao sol.<br><br><b>Carta do Dia:</b> Cavaleiro de Ouros, que significa Pessoa Útil, Maturidade.<br><b>Número da Sorte:</b> 1, 2, 8, 16, 22, 39<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 se desespere porque quando menos se espera surge o romance. É tempo de um novo recomeço.<br><br><b>Saúde:</b> Está neste momento passando um período de bem-estar físico e espiritual.<br><br><b>Dinheiro:</b> Nem sempre a vida nos corre bem, esteja atento.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==8 && mes ==1)
document.write("<b>Amor:</b> Não seja tão radical na sua maneira de julgar as pessoas.<br><br><b>Saúde:</b> Tenha atenção àquilo que come, pois pode vir a ter problemas ao nível da vesícula.<br><br><b>Dinheiro:</b> Não seja tão crítico nem espere dos outros aquilo que espera de si mesmo.<br><br><b>Carta do Dia:</b> 6 de Paus, que significa Ganho.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==9 && mes == 1)
document.write("<b>Amor:</b> O amor reserva algumas surpresas agradáveis.<br><br><b>Saúde:</b> Siga o lema, mente sã, corpo são.<br><br><b>Dinheiro:</b> Não dê demasiada importância a um possível conflito profissional. Tudo na vida tem solução.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==10 && mes ==1)
document.write("<b>Amor:</b> Vai se sentir muito dinâmico e com vontade de amar.<br><br><b>Saúde:</b> Estão previstos alguns problemas digestivos.<br><br><b>Dinheiro:</b> Excelente dia para fazer compras.<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 ==11 && mes == 1)
document.write("<b>Amor:</b> Aposte na boa disposição. Ela é a solução para todos os males.<br><br><b>Saúde:</b> Dê mais atenção à sua saúde. Lembre-se que o excesso de trabalho pode provocar distúrbios a nível físico e emocional.<br><br><b>Dinheiro:</b> O seu esforço vai ser recompensado e pode por fim ter o merecido descanso.<br><br><b>Carta do Dia:</b> 10 de Ouros, que significa Prosperidade, Riqueza e Segurança.<br><b>Número da Sorte:</b> 4, 8, 11, 19, 23, 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 ==12 && mes == 1)
document.write("<b>Amor:</b> Em vez de ficar aborrecido com o seu parceiro, mantenha uma conversa calma com ele. Não perca o contato com as coisas mais simples da vida.<br><br><b>Saúde:</b> Relaxe mais e cuide dos seus pés.<br><br><b>Dinheiro:</b> Dê mais valor ao seu trabalho, e só terá a ganhar com isso.<br><br><b>Carta do Dia:</b> 8 de Paus, que significa Rapidez.<br><b>Número da Sorte:</b> 30<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> Dê mais atenção aos desejos da pessoa que tem a seu lado. Que a serenidade e a paz de espírito sejam uma constante na sua vida.<br><br><b>Saúde:</b> Cuide da sua pele.<br><br><b>Dinheiro:</b> Poderá sentir-se um pouco desmotivado na sua carreira profissional.<br><br><b>Carta do Dia:</b> 2 de Copas, que significa Amor.<br><b>Número da Sorte:</b> 1, 2, 8, 16, 22, 39<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> Dê mais asas à sua imaginação ao nível da sua vida sexual.<br><br><b>Saúde:</b> Vai se sentir com as energias um pouco em baixo.<br><br><b>Dinheiro:</b> Não deixe que ninguém denigra a sua imagem profissional sem ter razões para isso. Plante hoje sementes de otimismo, amor e paz. Verá que com esta atitude irá colher mais tarde os frutos da alegria. Tudo na vida tem um retorno.<br><br><b>Carta do Dia:</b> Às de Espadas, que significa Sucesso.<br><b>Número da Sorte:</b> 4, 10, 15, 22, 29, 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 ==15 && mes ==1)
document.write("<b>Amor:</b> Ótimo ambiente familiar e sentimental. Entregue-se à pessoa amada de alma e coração.<br><br><b>Saúde:</b> Deixe as preocupações de lado. Aproveite o dia e descontraia. Faça algum exercício físico.<br><br><b>Dinheiro:</b> Possível aumento no âmbito profissional. Invista naquilo que sempre quis ter e nunca teve coragem de adquirir.<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 ==16 && mes == 1)
document.write("<b>Amor:</b> Poderá reconciliar-se com uma pessoa com a qual já não fala há algum tempo. Agora é hora para paciência e vontade de partilhar.<br><br><b>Saúde:</b> Sistema nervoso alterado.<br><br><b>Dinheiro:</b> Tudo correrá dentro da normalidade, mas previna-se contra qualquer eventualidade.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==17 && mes ==12)
document.write("<b>Amor:</b> Vai se sentir especialmente emocional nesta época. Controle a sua hipersensibilidade.<br><br><b>Saúde:</b> Atravessa um momento de bem-estar.<br><br><b>Dinheiro:</b> Invista em projetos a longo prazo.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==18 && mes == 12)
document.write("<b>Amor:</b> Existem questões que deveria ponderar com mais serenidade e clareza. Se quer ser sábio ouça todos com igual atenção, nunca desdenhe das lições que receber. Será devido a todos os que o ensinam que se tornará sábio.<br><br><b>Saúde:</b> Tudo deverá permanecer estável.<br><br><b>Dinheiro:</b> Tenha muito cuidado antes de se comprometer com qualquer tipo de compra.<br><br><b>Carta do Dia:</b> 7 de Ouros, que significa Trabalho.<br><b>Número da Sorte:</b> 71<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> Procure a companhia de pessoas jovens e bem-dispostas. Ouça-as e aprenda com elas. Feliz daquele que, sendo mais velho, sabe escutar os mais novos.<br><br><b>Saúde:</b> Cuidado com os seus pulmões, pois estes andam um pouco frágeis.<br><br><b>Dinheiro:</b> Poderá planejar uma viagem ao estrangeiro, pois as suas economias já permitem.<br><br><b>Carta do Dia:</b> 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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==20 && mes == 12)
document.write("<b>Amor:</b> Evite dar demasiada atenção a uma questão sem importância.<br><br><b>Saúde:</b> Tome uma atitude mais positiva perante a vida e isso vai se refletir na sua saúde.<br><br><b>Dinheiro:</b> Aproveite o seu dia para pôr em ordem o trabalho que tem em atraso.<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 ==21 && mes ==12)
document.write("<b>Amor:</b> Seja mais ousado e inovador. Não caia na rotina.<br><br><b>Saúde:</b> Dia muito tranquilo e calmo a este nível.<br><br><b>Dinheiro:</b> Alcançará a estabilidade profissional desejada.<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 ==22 && mes == 12)
document.write("<b>Amor:</b> Você sabe que ilumina todos os lugares onde vai com a sua alegria, use essa qualidade para se rodear de todos os que ama.<br><br><b>Saúde:</b> Está satisfeito com o seu corpo, mas é importante não se descuidar. Faça exercício físico.<br><br><b>Dinheiro:</b> Controle os gastos, pois mais tarde poderá precisar do que conseguir poupar agora. No local de trabalho não se deixe manipular, obedeça aos seus superiores sem deixar que o pisem.<br><br><b>Carta do Dia:</b> Rei de Copas, que significa Poder de Concretização, Respeito.<br><b>Número da Sorte:</b> 50<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> jogue os receios para trás. Lembre-se que o casamento também tem o seu lado positivo.<br><br><b>Saúde:</b> Dê mais atenção à sua imagem.<br><br><b>Dinheiro:</b> Não alimente discussões por motivos profissionais.<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 ==24 && mes == 12)
document.write("<b>Amor:</b> A sua capacidade argumentativa e de comunicação conquistará todos os que o rodeiam.<br><br><b>Saúde:</b> Momento de equilíbrio neste campo.<br><br><b>Dinheiro:</b> Utilize as suas capacidades para tentar obter o que deseja neste domínio.<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 ==25 && mes ==12)
document.write("<b>Amor:</b> Situação de alguma tensão entre o casal. Nada torna uma pessoa mais infeliz do que sentir que não se confia nela!<br><br><b>Saúde:</b> Vá com maior regularidade ao médico.<br><br><b>Dinheiro:</b> Contará com o apoio dos amigos para prosseguir com os seus projetos e iniciar um novo negócio.<br><br><b>Carta do Dia:</b> 5 de Copas, que significa Derrota.<br><b>Número da Sorte:</b> 41<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> Há questões que deveria ponderar com mais serenidade e clareza.<br><br><b>Saúde:</b> Tudo deverá permanecer estável.<br><br><b>Dinheiro:</b> Tenha muito cuidado antes de se comprometer com qualquer tipo de compra.<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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==27 && mes ==12)
document.write("<b>Amor:</b> A paciência não é um dos seus fortes, por isso é normal que fique inquieto com as atitudes que um amigo adotou.<br><br><b>Saúde:</b> Previna-se contra as dores nas costas.<br><br><b>Dinheiro:</b> A polivalência é uma das principais características do seu signo, mas tenha cuidado, pois por vezes é complicado fazer várias coisas ao mesmo tempo.<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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==28 && mes == 12)
document.write("<b>Amor:</b> Aposte numa nova relação amorosa. Os astros estão a seu favor. Viva o presente com confiança!<br><br><b>Saúde:</b> Consulte o seu médico e faça exames de rotina para saber se está tudo bem com o seu organismo.<br><br><b>Dinheiro:</b> É essencial que dê mostras da sua inteligência e competência profissional.<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<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> Poderá ter uma forte discussão com um amigo de longa data. Resolva de imediato os problemas e siga em frente. Aprenda a escrever novas páginas no livro da sua vida!<br><br><b>Saúde:</b> Procure não cometer excessos na sua alimentação.<br><br><b>Dinheiro:</b> Um familiar ou amigo poderá precisar da sua ajuda financeira, seja prudente.<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 ==30 && mes == 12)
document.write("<b>Amor:</b> Sentirá uma necessidade profunda de estar com os seus amigos. Procure intensamente sentimentos sólidos e duradouros, espalhando em seu redor alegria e bem-estar!<br><br><b>Saúde:</b> Sentirá um pouco de fadiga, tente descansar mais.<br><br><b>Dinheiro:</b> Não sonhe com aquilo que à partida sabe que não pode obter.<br><br><b>Carta do Dia:</b> Ás de Espadas, que significa Sucesso.<br><b>Número da Sorte:</b> 51<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> Distraia-se com os seus amigos.<br><br><b>Saúde:</b> Saúde estabilizada.<br><br><b>Dinheiro:</b> Trabalhe pacientemente para alcançar os seus objetivos. A força e a humildade caminham de mãos dadas.<br><br><b>Carta do Dia:</b> Rei de Copas, que significa Poder de Concretização, Respeito.<br><b>Número da Sorte:</b> 50")


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