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> Pense com calma qual será a melhor atitude a tomar para resolver os seus problemas amorosos.<br><br><b>Saúde:</b> Cuidado com os esforços físicos ou mentais.<br><br><b>Dinheiro:</b> Período favorável para associações de caráter economico. Liberte toda a criatividade que existe dentro de si e aprenda a contemplar o Belo.<br><br><b>Carta do Dia:</b> A Estrela, que significa Protecçã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 ==2 && mes ==1)
document.write("<b>Amor:</b> Dê mais de si aos outros e deixe de se preocupar com as pequenas atribulações diárias. A força do Bem transforma a vida.<br><br><b>Saúde:</b> Pratique exercício físico para relaxar.<br><br><b>Dinheiro:</b> Deixe os seus investimentos darem frutos.<br><br><b>Carta do Dia:</b> Rainha de Copas, que significa Amiga Sincera.<br><b>Número da Sorte:</b> 7, 11, 19, 24, 25, 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 ==3 && mes == 1)
document.write("<b>Amor:</b> Não protele situações. Ponha um ponto final àquela relação que há tanto tempo o impedia de ser feliz.<br><br><b>Saúde:</b> Siga os conselhos de um familiar mais experiente.<br><br><b>Dinheiro:</b> Dia favorável à resolução de um negócio que há muito tempo está pendente.<br><br><b>Carta do Dia:</b> 2 de Copas, que significa Amor.<br><b>Número da Sorte:</b> 5, 25, 36, 44, 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> O ciúme pode ser responsável por alguns problemas na vida a dois. Jogue fora tudo o que o prejudica e tudo o que está a mais dentro de si.<br><br><b>Saúde:</b> Problemas nos rins e vias urinárias.<br><br><b>Dinheiro:</b> Um amigo pode solicitar a sua ajuda a nível monetário. Analise bem a situação e pondere os prós e os contras desse empréstimo.<br><br><b>Carta do Dia:</b> Às de Ouros, que significa Harmonia e Prosperidade.<br><b>Número da Sorte:</b> 2, 17, 19, 36, 38, 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 ==5 && mes == 1)
document.write("<b>Amor:</b> Não seja tão distante. Entregue-se à paixão e ao romantismo.<br><br><b>Saúde:</b> Alguns problemas a nível ósseo.<br><br><b>Dinheiro:</b> Aceite as críticas que lhe são feitas e tente usá-las para melhorar o seu desempenho profissional.<br><br><b>Carta do Dia:</b> 6 de Espadas, que significa Viagem Inesperada.<br><b>Número da Sorte:</b> 5, 17, 22, 33, 45, 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 ==6 && mes ==1)
document.write("<b>Amor:</b> A sua família pode requisitar o seu auxílio. Não perca o contato com as coisas mais simples da vida.<br><br><b>Saúde:</b> Predisposição para o problemas ósseos.<br><br><b>Dinheiro:</b> Seja menos preocupado com os seus gastos.<br><br><b>Carta do Dia:</b> 3 de Copas, que significa Conclusão.<br><b>Número da Sorte:</b> 7, 11, 19, 24, 25, 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 ==7 && mes == 1)
document.write("<b>Amor:</b> Encontra-se num período difícil, mas não se desespere que é passageiro. A Vida espera por você. Viva-a!<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> O 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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==8 && mes ==1)
document.write("<b>Amor:</b> Ouça os conselhos que alguns amigos têm para lhe dar.<br><br><b>Saúde:</b> Irá sentir-se cheio de energia e vitalidade, contudo não as desperdice em atividades que não valem a pena.<br><br><b>Dinheiro:</b> A sua poupança têm tendência a aumentar.<br><br><b>Carta do Dia:</b> Rei de Ouros, que significa Inteligente, Prático.<br><b>Número da Sorte:</b> 2, 17, 19, 36, 38, 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 ==9 && mes == 1)
document.write("<b>Amor:</b> É provável que venha a rever um antigo amor que já não via à algum tempo.<br><br><b>Saúde:</b> O cansaço psíquico poderá invadi-lo.<br><br><b>Dinheiro:</b> De que serve a sabedoria se não permitir contribuir para um mundo melhor?<br><br><b>Carta do Dia:</b> Temperança, que significa Equilíbrio.<br><b>Número da Sorte:</b> 14<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> Aprenda a ouvir o que o seu amor diz.<br><br><b>Saúde:</b> É natural que sinta as suas energias redobradas.<br><br><b>Dinheiro:</b> Poderá começar a pensar em expandir os seus conhecimentos.<br><br><b>Carta do Dia:</b> 8 de Ouros, que significa Esforço Pessoal.<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 ==11 && mes == 1)
document.write("<b>Amor:</b> Poderá sentir-se um pouco nostálgico e melancólico. Não se deixe abater. Que o poder Divino esteja sempre consigo.<br><br><b>Saúde:</b> Pense mais em si e no seu bem-estar.<br><br><b>Dinheiro:</b> Cuidado com o excesso de zelo profissional, alguns colegas podem encarar isso como falta de respeito ao trabalho deles.<br><br><b>Carta do Dia:</b> 9 de Copas, que significa Vitória.<br><b>Número da Sorte:</b> 25, 33, 39, 41, 42, 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 ==12 && mes == 1)
document.write("<b>Amor:</b> Não deixe que a saudade tome conta do seu coração e vá em busca da pessoa que ama. A felicidade é de tal forma importante que deve esforçar-se para a alcançar.<br><br><b>Saúde:</b> Cuidado com as constipações.<br><br><b>Dinheiro:</b> Este não é o momento ideal para fazer grandes investimentos.<br><br><b>Carta do Dia:</b> Papisa, que significa Estabilidade, Estudo e Mistério.<br><b>Número da Sorte:</b> 2<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> Aproveite o tempo que tem livre para estar com as pessoas que lhe são mais queridas. Você merece ser feliz.<br><br><b>Saúde:</b> Passeie mais ao ar livre.<br><br><b>Dinheiro:</b> Tenha mais cuidado com as suas despesas.<br><br><b>Carta do Dia:</b> Valete de Ouros, que significa Reflexão, Novidades.<br><b>Número da Sorte:</b> 7, 11, 19, 24, 25, 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 ==14 && mes == 1)
document.write("<b>Amor:</b> Controle o seu orgulho e verá como a sua relação afetiva se tornará mais harmoniosa.<br><br><b>Saúde:</b> Cuidado com os seus ossos, pois mudanças de temperatura fazem com que estes andem mais frágeis do que o habitual.<br><br><b>Dinheiro:</b> Será recompensado pelo esforço e dedicação que tem demonstrado no seu local de trabalho.<br><br><b>Carta do Dia:</b> 2 de Paus, que significa Perda de Oportunidades.<br><b>Número da Sorte:</b> 9, 26, 28, 31, 39, 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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==15 && mes ==1)
document.write("<b>Amor:</b> Poderá sentir que neste momento o seu amor não é correspondido, mas não se preocupe, pois é só uma fase passageira.<br><br><b>Saúde:</b> Tenha algum cuidado com os seus olhos.<br><br><b>Dinheiro:</b> Poderá receber um aumento inesperado no seu rendimento mensal.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==16 && mes == 1)
document.write("<b>Amor:</b> Poderá encontrar um amigo com o qual já não estabelecia contato há muito tempo. É tempo de um novo recomeço!<br><br><b>Saúde:</b> Período tranquilo, não se preocupe.<br><br><b>Dinheiro:</b> Poderá ter alguns gastos extra, previna-se.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==17 && mes ==12)
document.write("<b>Amor:</b> Quando estiver triste ou atravessando um momento de aflição e não encontrar ninguém para o reconfortar, lembre-se dos momentos em que outros necessitaram do seu sorriso e não o tiveram. Aí sim, saberá valorizar uma palavra amiga e o dom da compreensão.<br><br><b>Saúde:</b> Procure mais vezes o seu dentista.<br><br><b>Dinheiro:</b> Pense bem antes de se endividar.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==18 && mes == 12)
document.write("<b>Amor:</b> Por um lado dê mais espaço ao seu companheiro, por outro procure estar mais tempo com ele.<br><br><b>Saúde:</b> Seja prudente, não abuse.<br><br><b>Dinheiro:</b> Não se disperse, concentre-se num assunto de cada vez ou poderá ter problemas.<br><br><b>Carta do Dia:</b> A Torre, que significa Convicções Erradas, Colapso.<br><b>Número da Sorte:</b> 16<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 surpreendido com um inesperado pedido de namoro ou casamento.<br><br><b>Saúde:</b> Cuide um pouco mais da sua aparência.<br><br><b>Dinheiro:</b> Afaste-se de intrigas, pois pode pôr em risco a sua carreira profissional.<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 ==20 && mes == 12)
document.write("<b>Amor:</b> Sentirá firmeza nas suas decisões a nível afetivo.<br><br><b>Saúde:</b> Vá para casa cedo e durma o máximo possível.<br><br><b>Dinheiro:</b> Poderá receber o retorno de um investimento.<br><br><b>Carta do Dia:</b> Valete de Paus, que significa Amigo, Notícias Inesperadas.<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 ==21 && mes ==12)
document.write("<b>Amor:</b> Haverá conflitos em casa que não vai conseguir resolver sozinho.<br><br><b>Saúde:</b> Uma gripe ou constipação aproxima-se muito rapidamente, não se deixe apanhar desprevenido.<br><br><b>Dinheiro:</b> Um inimigo espreita no local de trabalho, reserve a sua tendência natural para dar nas vista.<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<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> Poderá zangar-se com um familiar, mas se der o braço a torcer sairá vitorioso.<br><br><b>Saúde:</b> Pode vir a ter uma dor ligeira de dentes.<br><br><b>Dinheiro:</b> Tenha cuidado, poderá vir a ter gastos extras.<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 ==23 && mes ==12)
document.write("<b>Amor:</b> O amor ideal nunca será o adequado à sua realidade. Enfrente as suas dúvidas.<br><br><b>Saúde:</b> Faça exercício físico e cuide da sua alimentação.<br><br><b>Dinheiro:</b> Poderão surgir alguns problemas devido à sua necessidade de se dar bem com todos.<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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==24 && mes == 12)
document.write("<b>Amor:</b> Evite ficar preso a um amor do passado.<br><br><b>Saúde:</b> Aposte na vida saudável.<br><br><b>Dinheiro:</b> É possível que venha a ter um pequeno desentendimento.<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 ==25 && mes ==12)
document.write("<b>Amor:</b> Está indeciso e confuso, mas este período é passageiro. Viva o presente com confiança!<br><br><b>Saúde:</b> Melhore a sua auto-estima, descanse mais.<br><br><b>Dinheiro:</b> A sua economia irá manter-se equilibrada.<br><br><b>Carta do Dia:</b> O 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 ==26 && mes == 12)
document.write("<b>Amor:</b> Por um lado dê mais espaço ao seu companheiro, por outro procure estar mais tempo com ele.<br><br><b>Saúde:</b> Seja prudente, não abuse.<br><br><b>Dinheiro:</b> Não se disperse, concentre-se num assunto de cada vez ou poderá ter problemas.<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 ==27 && mes ==12)
document.write("<b>Amor:</b> Não tenha medo de se apaixonar, deixe o amor vir até você.<br><br><b>Saúde:</b> Faça exercício físico ao ar livre.<br><br><b>Dinheiro:</b> A impulsividade poderá prejudicar o seu estado financeiro.<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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==28 && mes == 12)
document.write("<b>Amor:</b> Não seja tão exigente. Deve procurar aproveitar diariamente todas as coisas boas que a vida tem para lhe oferecer.<br><br><b>Saúde:</b> Possibilidade de fortes dores de cabeça.<br><br><b>Dinheiro:</b> Invista em si, inscreva-se numa atividade que lhe dê prazer.<br><br><b>Carta do Dia:</b> A Papisa, que significa Estabilidade, Estudo e Mistério.<br><b>Número da Sorte:</b> 2<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 envergonhado e demonstre todos os seus sentimentos, pois os sentimentos que tanto tentou esconder, vão aparecer à luz do dia.<br><br><b>Saúde:</b> Andará um pouco fora de forma.<br><br><b>Dinheiro:</b> Não gaste em coisas supérfluas.<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 ==30 && mes == 12)
document.write("<b>Amor:</b> Não discuta por tudo, controle a sua impulsividade. Não julgue o seu próximo, procure não pensar mal das pessoas!<br><br><b>Saúde:</b> Estará cheio de energia física e psíquica neste período.<br><br><b>Dinheiro:</b> Dê mais atenção à sua vida financeira, tenha cuidado.<br><br><b>Carta do Dia:</b> 4 de Copas, que significa Desgosto.<br><b>Número da Sorte:</b> 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 ==31 && mes ==12)
document.write("<b>Amor:</b> A sua família anda se ressentindo da sua falta de paciência.<br><br><b>Saúde:</b> Cuide da sua alimentação. Quem sabe proteger-se das emoções negativas aprende a construir um futuro risonho.<br><br><b>Dinheiro:</b> Possível perda de dinheiro.<br><br><b>Carta do Dia:</b> 9 de Paus, que significa Força na Adversidade.<br><b>Número da Sorte:</b> 31")


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