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> Tente controlar um pouco as recordações menos positivas que tem do seu passado afetivo.<br><br><b>Saúde:</b> Não tenha medo de ir ao médico. Aprenda a sorrir e sorria sempre.<br><br><b>Dinheiro:</b> Estabilidade financeira.<br><br><b>Carta do Dia:</b> O Imperador, que significa Concretização.<br><b>Número da Sorte:</b> 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 ==2 && mes ==11)
document.write("<b>Amor:</b> A sua habitual disponibilidade para fazer aquilo que os outros querem pode sair cara.<br><br><b>Saúde:</b> Faça massagens ou um passeio pelo campo.<br><br><b>Dinheiro:</b> Invista em novos projetos. Tenha a ousadia de sonhar.<br><br><b>Carta do Dia:</b> A Torre, que significa Convicções Erradas, Colapso.<br><b>Números 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 ==3 && mes == 1)
document.write("<b>Amor:</b> Ignore comentários maldosos e invejosos provenientes de familiares afastados.<br><br><b>Saúde:</b> Vai sentir-se debilitado e febril, mas não se preocupe, pois esta vai ser uma resposta do seu organismo a uma pequena infecção interna.<br><br><b>Dinheiro:</b> Não desista dos seus objetivos, ainda que para concretizar os seus planos tenha de ultrapassar alguns obstáculos. Arrisque! O sucesso espera por você.<br><br><b>Carta do Dia:</b> A Morte, que significa Renovação.<br><b>Número da Sorte:</b> 6, 14, 36, 41, 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 ==4 && mes ==1)
document.write("<b>Amor:</b> Não seja tão impulsivo. Pense duas vezes antes de agir, pois as suas atitudes precipitadas podem pôr em risco uma relação.<br><br><b>Saúde:</b> Não abuse do álcool e do tabaco.<br><br><b>Dinheiro:</b> A sua criatividade estará em alta. Dia favorável a propostas ousadas.<br><br><b>Carta do Dia:</b> Temperança, que significa Equilíbrio.<br><b>Número da Sorte:</b> 1, 5, 7, 11, 33, 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 ==5 && mes == 1)
document.write("<b>Amor:</b> A sua capacidade de comunicação está favorecida.<br><br><b>Saúde:</b> Tente controlar o nervosismo e a ansiedade.<br><br><b>Dinheiro:</b> Dia favorável no setor profissional. Viva de uma forma sábia.<br><br><b>Carta do Dia:</b> 8 de Espadas, que significa Crueldade.<br><b>Número da Sorte:</b> 3, 11, 19, 25, 29, 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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==6 && mes ==1)
document.write("<b>Amor:</b> Passe mais tempo com a sua família. Reúna-a com o propósito de falarem sobre os problemas que vos preocupam.<br><br><b>Saúde:</b> Cuidado com as alergias. Previna-se antecipadamente.<br><br><b>Dinheiro:</b> Não seja tão gastador. Aprenda a moderar os seus impulsos consumistas.<br><br><b>Carta do Dia:</b> 9 de Copas, que significa Vitória.<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 ==7 && mes == 1)
document.write("<b>Amor:</b> A seta do Cupido espera por você. Poderá ver agora realizado um projeto que muito desejou. Que a clareza de espírito esteja sempre consigo!<br><br><b>Saúde:</b> Tendência para dores de barriga.<br><br><b>Dinheiro:</b> Efetuará bons negócios no dia de hoje.<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 ==8 && 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 assaltá-lo.<br><br><b>Saúde:</b> Tendência para se sentir um pouco febril e sem energia.<br><br><b>Dinheiro:</b> Não seja tão apegado aos bens materiais, o dinheiro não é tudo.<br><br><b>Carta do Dia:</b> 2 de Ouros, que significa Dificuldade/ Indolência.<br><b>Número da Sorte:</b> 1, 5, 7, 11, 33, 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 ==9 && mes == 1)
document.write("<b>Amor:</b> Pequenos desentendimentos poderão deixá-lo muito magoado.<br><br><b>Saúde:</b> Tome cuidado com a sua forma física.<br><br><b>Dinheiro:</b> Arrisque! O sucesso espera por você.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==10 && mes ==1)
document.write("<b>Amor:</b> Seja cauteloso, não entregue os seus sentimentos a qualquer pessoa.<br><br><b>Saúde:</b> Evite as depressões. Mantenha o otimismo.<br><br><b>Dinheiro:</b> Esforce-se para cumprir as tarefas que lhe destinaram.<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 ==11 && mes == 1)
document.write("<b>Amor:</b> O dia de hoje promete ser animado. Combine uma saída com amigos.<br><br><b>Saúde:</b> Coma bastante alimento rico em vitaminas, assim a sua energia vai ficar em alta.<br><br><b>Dinheiro:</b> Surpreenda um amigo com um presente inesperado. Ele vai adorar.<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, 6, 9, 41, 42, 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 ==12 && mes == 1)
document.write("<b>Amor:</b> Meça as suas palavras. A tendência para dizer tudo o que pensa pode magoar a sua cara-metade.<br><br><b>Saúde:</b> Anime-se. Com calma conseguirá resolver todos os seus problemas.<br><br><b>Dinheiro:</b> Os seus superiores podem exigir mais de você do que o normal. Dê mostras da sua competência e esteja à altura das exigências.<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 ==13 && mes ==1)
document.write("<b>Amor:</b> Anda um pouco distante de tudo e de todos, seja prudente, pois isso pode prejudicá-lo.<br><br><b>Saúde:</b> Cuide mais dos seus dentes.<br><br><b>Dinheiro:</b> Período pouco favorável a grandes investimentos. Seja humilde e aprenda a conhecer-se a si próprio. Então conhecerá o Mundo.<br><br><b>Carta do Dia:</b> Às de Espadas, que significa Sucesso.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==14 && mes == 1)
document.write("<b>Amor:</b> Não pense sempre que terá a ajuda daqueles que o rodeiam, pois nem sempre isso acontece. Aprenda a ser o seu melhor amigo.<br><br><b>Saúde:</b> Estará mais cansado do que é normal.<br><br><b>Dinheiro:</b> A sua capacidade de aprender está agora muito mais vincada do que é normal.<br><br><b>Carta do Dia:</b> Às de Ouros, que significa Harmonia e Prosperidade.<br><b>Número da Sorte:</b> 1, 5, 17, 22, 36, 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 ==15 && mes ==1)
document.write("<b>Amor:</b> Lembre-se que é através do diálogo que por vezes conseguimos resolver os nossos problemas, não tenha medo de abrir o seu coração à pessoa amada.<br><br><b>Saúde:</b> Época bastante favorável do ponto de vista do bem-estar físico e psicológico.<br><br><b>Dinheiro:</b> Momento pouco favorável a gastos supérfluos.<br><br><b>Carta do Dia:</b> Rainha de Copas, que significa Amiga Sincera.<br><b>Número da Sorte:</b> 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 ==16 && mes == 1)
document.write("<b>Amor:</b> As pessoas mais da sua família sentem a falta do seu carinho e atenção, não se esqueça deles. Que o Amor seja uma constante na sua vida!<br><br><b>Saúde:</b> Cuidado com os acidentes domésticos.<br><br><b>Dinheiro:</b> Com trabalho e esforço conseguirá atingir os seus objetivos.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==17 && mes ==12)
document.write("<b>Amor:</b> Controle o seu otimismo excessivo. Não dê o seu amor como um dado adquirido, pois poderá enfrentar conflitos.<br><br><b>Saúde:</b> Não são esperadas grandes preocupações neste campo.<br><br><b>Dinheiro:</b> Atravessa uma fase equilibrada a este nível.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==18 && mes == 12)
document.write("<b>Amor:</b> Dê ouvidos à razão, por vezes o coração ilude-nos e leva-nos a cometer erros.<br><br><b>Saúde:</b> Evite frequentar ambientes poluídos e saturados, para que não intoxique o seu sistema respiratório.<br><br><b>Dinheiro:</b> Este é um dia em que pode dar asas ao seu lado mais consumista. Aproveite.<br><br><b>Carta do Dia:</b> Os 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 ==19 && mes ==12)
document.write("<b>Amor:</b> Vai se sentir muito romântico e apaixonado.<br><br><b>Saúde:</b> Sua saúde estará regular no dia de hoje.<br><br><b>Dinheiro:</b> Chegou o momento de demonstrar as suas qualidades profissionais.<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 ==20 && mes == 12)
document.write("<b>Amor:</b> É possível que se sinta desmotivado e triste com algumas atitudes adotadas pela pessoa amada.<br><br><b>Saúde:</b> Cuidado com mudanças de temperatura.<br><br><b>Dinheiro:</b> Dedique-se com muito empenho ao seu 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> 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 ==21 && mes ==12)
document.write("<b>Amor:</b> A melhor maneira de viver bem consigo e não sentir ódio de ninguém é não se permitir ter pensamentos negativos acerca das outras pessoas e do Mundo que o rodeia.<br><br><b>Saúde:</b> Faça mais exercício físico.<br><br><b>Dinheiro:</b> O seu rendimento mensal poderá sofrer um acréscimo inesperado.<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 ==22 && mes == 12)
document.write("<b>Amor:</b> Um colega de trabalho vai confessar um amor platonico.<br><br><b>Saúde:</b> Contrarie o pessimismo.<br><br><b>Dinheiro:</b> Os negócios não são o seu forte, mas este dia o seu potencial criativo estará tão desenvolvido que irá embarcar num projeto novo que lhe trará bons frutos no futuro.<br><br><b>Carta do Dia:</b> Valete de Copas, que significa Lealdade, Reflexão.<br><b>Número da Sorte:</b> 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 ==23 && mes ==12)
document.write("<b>Amor:</b> Se deseja cultivar o amor precisa de ter a coragem necessária para ser honesto consigo próprio e para com a pessoa que ama, pois a Verdade vai unir vocês eternamente.<br><br><b>Saúde:</b> Cuidado com as infecções, está muito sensível.<br><br><b>Dinheiro:</b> Seja mais comunicativo no seu local de trabalho.<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 ==24 && mes == 12)
document.write("<b>Amor:</b> Atravessará um período em que sentirá a necessidade de aprofundar o seu relacionamento. Partilhe os seus sentimentos com a pessoa amada e invista em si, mudando de visual.<br><br><b>Saúde:</b> Espere um período tranquilo.<br><br><b>Dinheiro:</b> Fique atento às suas amizades, pois poderão trazer projetos lucrativos.<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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==25 && mes ==12)
document.write("<b>Amor:</b> Poderá conhecer alguém muito especial. A felicidade espera por você, aproveite-a!<br><br><b>Saúde:</b> Seja cuidadoso com a sua saúde.<br><br><b>Dinheiro:</b> Poderá ter alguns problemas ao nível da sua vida profissional.<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 ==26 && mes == 12)
document.write("<b>Amor:</b> Dia favorável para mostrar os seus verdadeiros sentimentos à pessoa amada.<br><br><b>Saúde:</b> Evite noitadas, neste momento o seu corpo necessita de descanso.<br><br><b>Dinheiro:</b> Esteja mais atento à forma como gere a sua vida financeira.<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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==27 && mes ==12)
document.write("<b>Amor:</b> Energias positivas avizinham-se, aproveite-as devidamente.<br><br><b>Saúde:</b> Este será um período de paz, aproveite para descansar.<br><br><b>Dinheiro:</b> 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> 8 de Copas, que significa Concretização, Felicidade.<br><b>Número da Sorte:</b> 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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==28 && mes == 12)
document.write("<b>Amor:</b> Aposte no diálogo e na compreensão para melhorar a sua vida afetiva. Que o seu tempo seja gasto a amar.<br><br><b>Saúde:</b> Consulte o seu médico e faça um check-up.<br><br><b>Dinheiro:</b> Tente avaliar as hipóteses de sucesso de um negócio arriscado.<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 ==29 && mes ==12)
document.write("<b>Amor:</b> Seja mais ousado neste campo da sua vida. Rejeite pensamentos pessimistas e derrotistas.<br><br><b>Saúde:</b> O excesso de ansiedade não é favorável para a sua saúde.<br><br><b>Dinheiro:</b> Seja mais equilibrado nos seus gastos<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 ==30 && mes == 12)
document.write("<b>Amor:</b> Fugir e não enfrentar os problemas não é a solução. Seja honesto consigo próprio, não tenha receio de reconhecer os seus erros e traçar novas rotas de vida, só assim poderá alcançar a felicidade que tanto deseja e merece!<br><br><b>Saúde:</b> Tente fazer passeios no campo para melhorar a sua respiração.<br><br><b>Dinheiro:</b> Um amigo vai precisar do seu apoio economico.<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 ==31 && mes ==12)
document.write("<b>Amor:</b> Reflita acerca das pessoas e das situações a que dá valor.<br><br><b>Saúde:</b> Alivie as suas tensões. Tenha a ousadia de sonhar.<br><br><b>Dinheiro:</b> Limite os gastos supérfluos.<br><br><b>Carta do Dia:</b> O Sol, que significa Proteção e Germinação.<br><b>Número da Sorte:</b> 19")


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