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> Não entre em conversas propícias ao surgimento de conflitos entre você e a sua cara-metade. Seja mais tolerante e compreensivo. Que a sua alma seja bela e transparente.<br><br><b>Saúde:</b> Poderão surgir problemas digestivos.<br><br><b>Dinheiro:</b> Não efetue gastos supérfluos.<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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==2 && mes ==1)
document.write("<b>Amor:</b> Entrará numa fase mais sentimental e, por isso, mais intensa. Controle os ciúmes.<br><br><b>Saúde:</b> Não tenha preocupações, pois atravessa uma fase regular.<br><br><b>Dinheiro:</b> Fique atento às oportunidades que poderão surgir, mas evite ser precipitado nas suas decisões. Aprenda a escrever novas páginas no livro da sua vida.<br><br><b>Carta do Dia:</b> O Carro, que significa Sucesso.<br><b>Número da Sorte:</b> 10, 20, 36, 39, 44, 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 ==3 && mes == 1)
document.write("<b>Amor:</b> Dedique mais tempo aos familiares, vai sentir-se particularmente recompensado. Viva o presente com confiança.<br><br><b>Saúde:</b> A melhor forma de recarregar baterias é ir para junto da natureza.<br><br><b>Dinheiro:</b> Não queira ser perfeito aos olhos de todos. Mostre-se firme nas suas opiniões e seja sincero.<br><br><b>Carta do Dia:</b> O Papa, que significa Sabedoria.<br><b>Número da Sorte:</b> 3, 7, 11, 18, 22, 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 ==4 && mes ==1)
document.write("<b>Amor:</b> Poderá ficar um pouco desiludido com as críticas de alguns amigos menos sensíveis. Tente perceber se essas críticas têm algum fundamento.<br><br><b>Saúde:</b> O contato com a Natureza é a melhor forma de recarregar baterias.<br><br><b>Dinheiro:</b> Dia indicado para encher a sua dispensa. Não poupe dinheiro nem esforços.<br><br><b>Carta do Dia:</b> Valete de Copas, que significa Lealdade, Reflexã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 ==5 && mes == 1)
document.write("<b>Amor:</b> Dia marcado por muita harmonia familiar. Aceite os erros dos outros.<br><br><b>Saúde:</b> Atenção ao seu sistema circulatório.<br><br><b>Dinheiro:</b> Vida profissional favorecida.<br><br><b>Carta do Dia:</b> 5 de Ouros, que significa Perda/ Falha.<br><b>Número da Sorte:</b> 8, 9, 22, 31, 44, 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> Dedique-se ao seu amor.<br><br><b>Saúde:</b> Perturbações no sono, provocadas por algumas preocupações.<br><br><b>Dinheiro:</b> É necessário que ajuste as suas possibilidades com as necessidades da empresa onde trabalha, para que o seu trabalho possa sair beneficiado.<br><br><b>Carta do Dia:</b> 7 de Espadas, que significa Novos Planos, Interferências.<br><b>Número da Sorte:</b> 10, 20, 36, 39, 44, 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 ==7 && mes == 1)
document.write("<b>Amor:</b> Poderá ter de enfrentar uma discussão familiar, mas não fique preocupado, a situação ficará resolvida. Que o seu sorriso ilumine todos em seu redor!<br><br><b>Saúde:</b> Cuidado com o sistema nervoso.<br><br><b>Dinheiro:</b> Não se deixe abater por uma maré menos positiva nesta área da sua vida, pois nem tudo está perdido.<br><br><b>Carta do Dia:</b> Justiça, que significa Justiça.<br><b>Número da Sorte:</b> 8<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> O amor anda no ar. Que a compreensão viva no seu coração.<br><br><b>Saúde:</b> Carência vitamínica. Tome um suplemento e coma mais frutas.<br><br><b>Dinheiro:</b> Cuidado com as distrações, o seu setor profissional pode ressentir-se por isso.<br><br><b>Carta do Dia:</b> A Torre, que significa Convicções Erradas, Colapso.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==9 && mes == 1)
document.write("<b>Amor:</b> Aproveite os momentos livres que tiver para estar com a sua família.<br><br><b>Saúde:</b> Cuide mais da sua saúde espiritual.<br><br><b>Dinheiro:</b> Procure não dar muita importância ao que as pessoas pensam a seu respeito. Preocupe-se com aquilo que você pensa sobre si próprio, faça uma verdadeira limpeza interior e jogue fora tudo o que o prejudica e tudo o que está a mais dentro de você.<br><br><b>Carta do Dia:</b> 10 de Copas, que significa Felicidade.<br><b>Número da Sorte:</b> 46<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> Apesar de se sentir sozinho, a solidão apenas vai fazer com que se sinta ainda mais deprimido.<br><br><b>Saúde:</b> Dia sem grandes problemas físicos.<br><br><b>Dinheiro:</b> Bons índices economicos.<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 ==11 && mes == 1)
document.write("<b>Amor:</b> Seja mais realista. Desça um pouco das “nuvens” onde vive e encare a vida real.<br><br><b>Saúde:</b> Tendência para o excesso de álcool. Controle-se.<br><br><b>Dinheiro:</b> Não faça com que a sua vida ande para trás. Poupe dinheiro.<br><br><b>Carta do Dia:</b> 8 de Espadas, que significa Crueldade.<br><b>Número da Sorte:</b> 8, 9, 13, 17, 19, 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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==12 && mes == 1)
document.write("<b>Amor:</b> Procure não levar para casa assuntos de trabalho. Dedique-se ao amor. Que o seu tempo seja gasto a amar!<br><br><b>Saúde:</b> Evite exposições demasiado prolongadas em lugares frios, lembre-se dos riscos que corre.<br><br><b>Dinheiro:</b> Podem surgir oportunidades promissoras para a sua carreira.<br><br><b>Carta do Dia:</b> Valete de Paus, que significa Amigo, Notícias Inesperadas.<br><b>Número da Sorte:</b> 10<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> Dedique um pouco mais do seu tempo aos seus pais. Eles amam-no mais do que ninguém.<br><br><b>Saúde:</b> Poderá sentir algumas dificuldades respiratórias.<br><br><b>Dinheiro:</b> Os seus superiores andam sentindo menos dedicação ao trabalho da sua parte, seja cauteloso.<br><br><b>Carta do Dia:</b> 9 de Espadas, que significa Mau Pressentimento, Angústia.<br><b>Número da Sorte:</b> 10, 20, 36, 39, 44, 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 ==14 && mes == 1)
document.write("<b>Amor:</b> Vai sentir-se muito mais carente do que é normal.<br><br><b>Saúde:</b> O seu sistema digestivo anda necessitando de cuidados.<br><br><b>Dinheiro:</b> Não desperdice o seu dinheiro. A força do impulso está em você e só você pode criar as circunstâncias propícias à realização dos seus projetos. Tome a iniciativa, é você que cria as oportunidades.<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> 9, 17, 19, 25, 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 ==15 && mes ==1)
document.write("<b>Amor:</b> Exponha os seus sentimentos. Evite ser tão enigmático.<br><br><b>Saúde:</b> Evite frequentar ambientes movimentados e nos quais não se sente à vontade.<br><br><b>Dinheiro:</b> Concentre-se mais na sua atividade profissional.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==16 && mes == 1)
document.write("<b>Amor:</b> Dê mais atenção à pessoa que tem a seu lado. Que o seu tempo seja gasto a amar!<br><br><b>Saúde:</b> Faça exames médicos de rotina.<br><br><b>Dinheiro:</b> Pode fazer aquele negócio que tanto deseja.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==17 && mes ==12)
document.write("<b>Amor:</b> Poderão surgir alguns conflitos que serão facilmente resolvidos se optar pelo diálogo com a pessoa amada.<br><br><b>Saúde:</b> Embora esteja num período de equilíbrio, esteja sempre alerta.<br><br><b>Dinheiro:</b> Invista na consolidação dos seus negócios com prudência.<br><br><b>Carta do Dia:</b> 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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==18 && mes == 12)
document.write("<b>Amor:</b> Ouça e pondere a opinião de amigos próximos.<br><br><b>Saúde:</b> O seu equilíbrio vai andar um pouco abalado devido a perturbações de ordem emocional.<br><br><b>Dinheiro:</b> O seu poder de argumentação estará no auge o que permitirá defender o seu ponto de vista da melhor forma.<br><br><b>Carta do Dia:</b> 2 de Copas, que significa Amor.<br><b>Número da Sorte:</b> 38<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> O seu coração está um pouco dividido, pense bem qual o caminho que deve seguir, procure não ferir os sentimentos dos outros.<br><br><b>Saúde:</b> Probabilidade de ocorrência de pequenos acidentes domésticos.<br><br><b>Dinheiro:</b> Afaste-se de pessoas e de pensamentos negativos, eles podem influenciá-lo e acabar por prejudicá-lo. A melhor forma de fazer o Bem é praticar o Bem.<br><br><b>Carta do Dia:</b> O Eremita, que significa Procura, Solidão.<br><b>Número da Sorte:</b> 9<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> Antes de falar pense bem naquilo que vai dizer. Perdoe aos outros e a si próprio.<br><br><b>Saúde:</b> Faça exames com maior regularidade.<br><br><b>Dinheiro:</b> Poderá ter a oportunidade de aumentar a sua capacidade financeira.<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 ==21 && mes ==12)
document.write("<b>Amor:</b> Hoje uma situação colocará em causa o futuro da sua relação.<br><br><b>Saúde:</b> Alguma tensão muscular.<br><br><b>Dinheiro:</b> Faça um programa familiar, mas sem gastar muito dinheiro.<br><br><b>Carta do Dia:</b> 6 de Espadas, que significa Viagem  Inesperada.<br><b>Número da Sorte:</b> 56<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> Uma traição de um amigo vai apanhá-lo de surpresa e causar muito sofrimento.<br><br><b>Saúde:</b> Mudanças de temperatura vão provocar dores nos ouvidos, proteja-se e procure o seu médico o quanto antes.<br><br><b>Dinheiro:</b> Desta vez o trabalho será para você uma fonte de consolo.<br><br><b>Carta do Dia:</b> 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 ==23 && mes ==12)
document.write("<b>Amor:</b> Quantas vezes prometeu que seria uma pessoa mais paciente, mas uma ofensa, mesmo que leve, rapidamente o fez esquecer essa promessa? Traiu-se a si próprio e à intenção de melhorar.<br><br><b>Saúde:</b> Está neste momento a passar 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> 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 ==24 && mes == 12)
document.write("<b>Amor:</b> Esclareça com a pessoa amada a sua mudança de ideias relativa a projetos comuns. Não tome atitudes das quais poderá vir a arrepender-se mais tarde.<br><br><b>Saúde:</b> Afaste-se das situações de conflito e tensão.<br><br><b>Dinheiro:</b> Fase equilibrada neste campo.<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 ==25 && mes ==12)
document.write("<b>Amor:</b> Poderá ser surpreendido por duras recordações do passado. Fuja dos remorsos, não prepare para si um futuro doloroso!<br><br><b>Saúde:</b> A tendência é para a depressão.<br><br><b>Dinheiro:</b> Um convite inesperado vai fazer com que tenha que decidir se continua no seu acolhedor emprego ou se muda para uma empresa promissora e sofisticada.<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 ==26 && mes == 12)
document.write("<b>Amor:</b> Se tiverem desconfiança ou esconderem um do outro os seus sentimentos, será difícil encontrar a felicidade.<br><br><b>Saúde:</b> Pode sentir-se fora de forma.<br><br><b>Dinheiro:</b> Os negócios podem prosperar.<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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==27 && mes ==12)
document.write("<b>Amor:</b> Olhe à sua volta. É possível que repare em alguém que o acha muito especial.<br><br><b>Saúde:</b> Tendência para a hipertensão.<br><br><b>Dinheiro:</b> Dia indicado para se reunir com o seu sócios ou patrões.<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 ==28 && mes == 12)
document.write("<b>Amor:</b> Faça o possível para ser você mesmo e não ligue para opiniões de terceiros. Encare a vida de uma forma mais otimista e verá que tudo corre melhor!<br><br><b>Saúde:</b> Procure descontrair-se mais.<br><br><b>Dinheiro:</b> Bom dia para se reunir com o seus superiores e expor as suas ideias.<br><br><b>Carta do Dia:</b> Ás de Paus, que significa Energia, Iniciativa.<br><b>Número da Sorte:</b> 23<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> Exprima os seus sentimentos sem medo de ser apontado. Que a determinação e a Luz estejam sempre consigo!<br><br><b>Saúde:</b> Cuidado com o que come, esqueça o fast-food.<br><br><b>Dinheiro:</b> Momento favorável para investimentos.<br><br><b>Carta do Dia:</b> 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 ==30 && mes == 12)
document.write("<b>Amor:</b> Está muito confuso, não confunda sentimentos. Que tenha sempre a sabedoria necessária para manter a sua mente limpa!<br><br><b>Saúde:</b> Tenha mais atenção com a sua tensão arterial.<br><br><b>Dinheiro:</b> Poupe mais, pois terá um período com algumas dificuldades.<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 ==31 && mes ==12)
document.write("<b>Amor:</b> Reflita sobre a forma como se relaciona com os seus familiares.<br><br><b>Saúde:</b> Tenha atenção ao seu ritmo acelerado de trabalho. Aprenda a escrever novas páginas no livro da sua vida.<br><br><b>Dinheiro:</b> Um problema na sua conta bancária irá provocar grandes preocupaçõ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")


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