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> O ciúme desenfreado não fará bem à sua relação.<br><br><b>Saúde:</b> Procure fazer exames de rotina com maior frequência.<br><br><b>Dinheiro:</b> Não se deixe abalar por marés menos positivas neste campo da sua vida. O desafio para você é encontrar as ferramentas certas dentro de si próprio.<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 ==2 && mes ==1)
document.write("<b>Amor:</b> Clima romântico e sentimental na relação afetiva.<br><br><b>Saúde:</b> Atravessa uma fase de nervosismo e stress.<br><br><b>Dinheiro:</b> Não arrisque em negócios que não lhe ofereçam garantias. Seja prudente.<br><br><b>Carta do Dia:</b> A Imperatriz, que significa Realização.<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 ==3 && mes == 1)
document.write("<b>Amor:</b> Chegou a hora de reconhecer os seus erros junto da pessoa amada. Só assim vai conseguir superar alguns problemas existentes na sua vida amorosa. Aprenda a perdoar a si próprio.<br><br><b>Saúde:</b> Consulte o seu médico e marque alguns exames de rotina.<br><br><b>Dinheiro:</b> Surpresas agradáveis a nível financeiro. Aposte nos seus projetos.<br><br><b>Carta do Dia:</b> Julgamento, que significa Novo Ciclo de Vida.<br><b>Número da Sorte:</b> 7, 11, 18, 25, 47, 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 ==4 && mes ==1)
document.write("<b>Amor:</b> Pequenos desentendimentos ao nível familiar. Redobre a calma e a paciência e opte por resolver os problemas através do diálogo e da compreensão.<br><br><b>Saúde:</b> Desacelere o seu ritmo de vida.<br><br><b>Dinheiro:</b> Tendência para o descontrole. Tente organizar o seu trabalho e organize um plano de tarefas.<br><br><b>Carta do Dia:</b> Valete de Copas, que significa Lealdade, Reflexão.<br><b>Número da Sorte:</b> 7, 22, 29, 33, 45, 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> Solte-se mais. Deixe o passado para trás. Nunca perca a esperança nas pessoas, invista nelas.<br><br><b>Saúde:</b> Depois dos excessos tenha atenção ao colesterol. Evite comer de mais em festas com os amigos.<br><br><b>Dinheiro:</b> Arrisque mais na sua vida profissional.<br><br><b>Carta do Dia:</b> Às de Espadas, que significa Sucesso.<br><b>Número da Sorte:</b> 7, 19, 23, 42, 43, 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 ==6 && mes ==1)
document.write("<b>Amor:</b> Deixe essa tristeza de lado e abra as portas do seu coração. Aprenda a aceitar-se na sua globalidade, afinal você não tem que ser um Super-Homem.<br><br><b>Saúde:</b> Atenção ao sistema gastrointestinal.<br><br><b>Dinheiro:</b> O seu lado racional estará mais desperto do que nunca.<br><br><b>Carta do Dia:</b> 5 de Copas, que significa Derrota.<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 ==7 && mes == 1)
document.write("<b>Amor:</b> Evite as discussões com o seu parceiro. Os problemas e dificuldades do dia-a-dia podem ser resolvidos através do diálogo, mas podem se agravar através da violência!<br><br><b>Saúde:</b> Será uma época com tendência para enxaquecas.<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 ==8 && mes ==1)
document.write("<b>Amor:</b> Não seja tão possessivo.<br><br><b>Saúde:</b> Pode sentir-se um pouco mais frágil do que o habitual.<br><br><b>Dinheiro:</b> A sua inteligência vai estar ao máximo, por isso deve aproveitá-la para ganhar vantagem em relação a certos aspectos da sua vida profissional. Que a sabedoria infinita esteja sempre consigo.<br><br><b>Carta do Dia:</b> 3 de Copas, que significa Conclusão.<br><b>Número da Sorte:</b> 7, 22, 29, 33, 45, 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> Período de grandes mudanças a nível afetivo.<br><br><b>Saúde:</b> Tendência para cansaço, um pouco de descanso fará bem.<br><br><b>Dinheiro:</b> Termine aquele projeto que tem pendente.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==10 && mes ==1)
document.write("<b>Amor:</b> Mostre quem é e o que vale procurando causar nos outros uma impressão positiva.<br><br><b>Saúde:</b> Faça natação.<br><br><b>Dinheiro:</b> Aplique-se mais no seu trabalho e só terá a ganhar com isso.<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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==11 && mes == 1)
document.write("<b>Amor:</b> Deixe o seu lado mais louco sair para fora e divirta-se. Trave conhecimentos, conheça novos locais, enfim, solte-se e seja feliz.<br><br><b>Saúde:</b> vai se sentir rejuvenescido e com um novo fôlego.<br><br><b>Dinheiro:</b> Ótimo dia para poupar dinheiro. Mantenha esse excelente sentido de organização, porque pode dar jeito no futuro.<br><br><b>Carta do Dia:</b> A Roda da Fortuna, que significa que a sua sorte está em movimento.<br><b>Número da Sorte:</b> 8, 10, 23, 26, 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 ==12 && mes == 1)
document.write("<b>Amor:</b> Poderá ver-se tentado a iniciar uma nova relação. Tenha cuidado e pense duas vezes para não magoar quem lhe quer bem.<br><br><b>Saúde:</b> Chegou a hora de começar a preocupar-se com uma dor insistente que não o tenha deixado sossegado.<br><br><b>Dinheiro:</b> Vai se sentir bastante motivado para melhorar a sua performance profissional.<br><br><b>Carta do Dia:</b> 9 de Ouros, que significa Prudência.<br><b>Número da Sorte:</b> 73<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> Não se entregue a uma pessoa que mal conhece. Dê tempo ao tempo e aprenda a esperar.<br><br><b>Saúde:</b> Dê mais importância a todas as dores que sentir, mesmo que pense que estas são insignificantes.<br><br><b>Dinheiro:</b> Momento regular no aspecto profissional e financeiro.<br><br><b>Carta do Dia:</b> 4 de Paus, que significa Ocasião Inesperada, Amizade.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==14 && mes == 1)
document.write("<b>Amor:</b> Poderá ter uma grande surpresa. Descubra a estrada que deve percorrer na vida, só você pode saber qual é. Apesar das contingências, supere as dificuldades, vença os obstáculos e construa o seu caminho.<br><br><b>Saúde:</b> Não deixe de lado a hipótese de passar um fim de semana junto a natureza, pois isso seria muito importante para todo o stress que tem acumulado.<br><br><b>Dinheiro:</b> Não se sinta demasiado confiante no seu futuro financeiro, pois este não parece vir a ter grandes alterações.<br><br><b>Carta do Dia:</b> 6 de Espadas, que significa Viagem Inesperada.<br><b>Número da Sorte:</b> 3, 6, 19, 35, 47, 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 ==15 && mes ==1)
document.write("<b>Amor:</b> A sua dedicação e sentido de entrega vão estar ainda mais favorecidos neste dia.<br><br><b>Saúde:</b> Tome cuidado com as constipações. Previna-se ingerindo alimentos ricos em vitamina C.<br><br><b>Dinheiro:</b> Dia favorável ao consumismo.<br><br><b>Carta do Dia:</b> Morte, que significa Renovação.<br><b>Número da Sorte:</b> 13<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> Evite as discussões com o seu parceiro. O exemplo de um lar harmonioso é a maior felicidade que pode dar aos seus filhos!<br><br><b>Saúde:</b> Será uma época com tendência para enxaquecas.<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 ==17 && mes ==12)
document.write("<b>Amor:</b> Viverá momentos de grande intensidade devido à sua tendência para radicalizar as situações. Seja mais tolerante e compreensivo.<br><br><b>Saúde:</b> Modere a alimentação ou terá que fazer uma dieta rigorosa.<br><br><b>Dinheiro:</b> Terá de se render à evidência da crise que está passando. Os tempos não permitem gastos supérfluos.<br><br><b>Carta do Dia:</b> A Imperatriz, que significa Realização.<br><b>Número da Sorte:</b> 3<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> Seja mais espontâneo, pois a sua tendência irá no sentido de racionalizar as suas emoções.<br><br><b>Saúde:</b> O stress acumulado poderá traduzir-se em cansaço.<br><br><b>Dinheiro:</b> Evite excessos e procure manter o sentido de equilíbrio.<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 ==19 && mes ==12)
document.write("<b>Amor:</b> A sua cara-metade vai ficar agradavelmente surpreendida com a paixão que demonstrar.<br><br><b>Saúde:</b> Vai se sentir bem, física e psicologicamente, nada nem ninguém vai conseguir abalá-lo.<br><br><b>Dinheiro:</b> Como em todas as outras vertentes da sua vida, o campo profissional também vai estar favorecido.<br><b>Número da Sorte:</b> 72<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> Procure junto do seu melhor amigo o estímulo que necessita para se sentir melhor.<br><br><b>Saúde:</b> Tenha cuidado para não entrar num esgotamento nervoso.<br><br><b>Dinheiro:</b> A sua falta de vitalidade poderá prejudicar o seu desempenho profissional.<br><br><b>Carta do Dia:</b> 3 de Ouros, que significa Poder.<br><b>Número da Sorte:</b> 67<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> Dia marcado por alguma instabilidade emocional.<br><br><b>Saúde:</b> Sentirá fortes dores de cabeça no final deste dia.<br><br><b>Dinheiro:</b> Seja mais determinado na resolução dos seus problemas economicos.<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 ==22 && mes == 12)
document.write("<b>Amor:</b> O convívio com os amigos está favorecido.<br><br><b>Saúde:</b> Já sabe que é muito sensível a dores musculares, mas deve procurar fortalecer o seu corpo.<br><br><b>Dinheiro:</b> O seu charme natural traz importantes aliados no local de trabalho.<br><br><b>Carta do Dia:</b> 4 de Paus, que significa Ocasião Inesperada, Amizade.<br><b>Número da Sorte:</b> 26<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> Tenha mais confiança em si próprio e cuide da sua aparência.<br><br><b>Saúde:</b> Tente aliviar de qualquer forma o stress que traz acumulado.<br><br><b>Dinheiro:</b> Não se esqueça que ainda tem dívidas, pague-as primeiro, antes de investir no que quer que seja.<br><br><b>Carta do Dia:</b> 6 de Ouros, que significa Generosidade.<br><b>Número da Sorte:</b> 70<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> Deixe que a sua cara-metade lhe explique os motivos da sua posição.<br><br><b>Saúde:</b> Tendência para se sentir angustiado e mal disposto ao longo do dia de hoje.<br><br><b>Dinheiro:</b> Seja prudente, a quebra da sua produtividade poderá ser notória.<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 ==25 && mes ==12)
document.write("<b>Amor:</b> Deixe o passado para trás e volte-se para o presente. Enfrente a vida tal como ela é, com as suas alegrias e tristezas!<br><br><b>Saúde:</b> Evite comer gorduras.<br><br><b>Dinheiro:</b> Mostre-se sempre disponível. A sua boa vontade será apreciada.<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 ==26 && mes == 12)
document.write("<b>Amor:</b> Seja mais espontâneo, pois a sua tendência irá no sentido de racionalizar as suas emoções.<br><br><b>Saúde:</b> O stress acumulado poderá traduzir-se em cansaço.<br><br><b>Dinheiro:</b> Evite excessos e procure manter o sentido de equilíbrio.<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 ==27 && mes ==12)
document.write("<b>Amor:</b> Dia marcado pelo amor e pela cumplicidade conjugal.<br><br><b>Saúde:</b> A falta de cálcio no organismo poderá provocar-lhe algumas dores nos dentes.<br><br><b>Dinheiro:</b> Reúna os seus colaboradores e distribua as tarefas.<br><br><b>Carta do Dia:</b> A 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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==28 && mes == 12)
document.write("<b>Amor:</b> É possível que a sua relação amorosa o esteja oprimindo. Procure passar mais tempo sozinho e faça uma avaliação dos seus sentimentos. Desenvolva a sua clareza mental, emocional e espiritual.<br><br><b>Saúde:</b> Pela manhã opte por fazer exercícios que preparem o seu corpo para a rotina diária.<br><br><b>Dinheiro:</b> Poderá receber um dinheiro inesperado, aproveite para investir na sua formação.<br><br><b>Carta do Dia:</b> 3 de Copas, que significa Conclusão.<br><b>Número da Sorte:</b> 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 ==29 && mes ==12)
document.write("<b>Amor:</b> Encontra-se num período difícil, mas não se desespere que é passageiro. Não se esqueça que a sua felicidade depende de você!<br><br><b>Saúde:</b> A sua auto-estima anda muito em baixo, anime-se.<br><br><b>Dinheiro:</b> Boa hora para gastar no que mais gosta, mas com cuidado que a vida está difícil.<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 ==30 && mes == 12)
document.write("<b>Amor:</b> Não deixe que o passado tome conta do seu presente. Ao aceitar o passado todas as mágoas se dissiparão e você viverá em paz!<br><br><b>Saúde:</b> Descanse e relaxe.<br><br><b>Dinheiro:</b> A impulsividade poderá prejudicar o seu estado financeiro.<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 ==31 && mes ==12)
document.write("<b>Amor:</b> O amor surgirá de forma quase imperceptível.<br><br><b>Saúde:</b> Não se deixe abater por uma pequena constipação.<br><br><b>Dinheiro:</b> Confie nas suas potencialidades. Seja um bom professor, eduque para que os mais jovens tenham uma profissão, mas, sobretudo, eduque-os para a vida.<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> 37")


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