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> Irá sentir uma energia sensual muito positiva. Viaje dentro do seu ser. Você pode ser um estranho para os outros, mas nunca seja um estranho para si mesmo.<br><br><b>Saúde:</b> Vá a academia com os amigos.<br><br><b>Dinheiro:</b> Os seus talentos ocultos trarão benefícios economicos.<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 ==2 && mes ==1)
document.write("<b>Amor:</b> Afaste-se da rotina com a pessoa amada. Opte por fazer aquela viagem há muito planejada.<br><br><b>Saúde:</b> Fase de fadiga excessiva. Descanse mais.<br><br><b>Dinheiro:</b> Não se esforce demasiado na sua atividade profissional, será recompensado na devida altura. A força e a humildade caminham de mãos dadas.<br><br><b>Carta do Dia:</b> 9 de Espadas, que significa Mau Pressentimento, Angústia.<br><b>Número da Sorte:</b> 4, 9, 11, 22, 34, 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> Não seja tão dependente da pessoa amada. Aprenda a resolver os seus próprios problemas.<br><br><b>Saúde:</b> Pode ser afetado por dores de garganta e ouvidos.<br><br><b>Dinheiro:</b> Vai aperceber-se da importância do seu trabalho, pois o seu chefe vai tecer elogios. Que a leveza de espírito seja uma constante na sua vida.<br><br><b>Carta do Dia:</b> A Imperatriz, que significa Realização.<br><b>Número da Sorte:</b> 4, 6, 7, 18, 19, 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 ==4 && mes ==1)
document.write("<b>Amor:</b> A longo prazo vai conseguir perceber que as escolhas que fez no passado foram as mais acertadas.<br><br><b>Saúde:</b> Tendência para a obesidade.<br><br><b>Dinheiro:</b> Poderão surgir alguns contratempos que atrasarão a concretização dos seus projetos. Não desista e trace planos para ultrapassar os momentos de crise.<br><br><b>Carta do Dia:</b> 7 de Ouros, que significa Trabalho.<br><b>Número da Sorte:</b> 1, 3, 7, 18, 22, 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 ==5 && mes == 1)
document.write("<b>Amor:</b> Pode ter de escolher entre dois caminhos, o que é conhecido e o que ainda está por descobrir.<br><br><b>Saúde:</b> Tendência para distúrbios renais.<br><br><b>Dinheiro:</b> Empenhe-se mais no seu trabalho. Só tem a ganhar com isso.<br><br><b>Carta do Dia:</b> O Dependurado, que significa Sacrifício.<br><b>Número da Sorte:</b> 2, 4, 22, 36, 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 ==6 && mes ==1)
document.write("<b>Amor:</b> Dedique-se mais à sua família, pois ela necessitará bastante da sua atenção.<br><br><b>Saúde:</b> Dia marcado por alguma sonolência, procure relaxar e descansar mais.<br><br><b>Dinheiro:</b> Tenha atenção às suas obrigações e não deixe nenhuma tarefa por cumprir.<br><br><b>Carta do Dia:</b> Rainha de Copas, que significa Amiga Sincera.<br><b>Número da Sorte:</b> 4, 9, 11, 22, 34, 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 seja envergonhado e demonstre todos os seus sentimentos. Seja alegre, procure fazer todo o bem que puder durante a sua vida!<br><br><b>Saúde:</b> Andará um pouco fora de forma.<br><br><b>Dinheiro:</b> Não gaste dinheiro com 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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==8 && mes ==1)
document.write("<b>Amor:</b> Dia marcado por acontecimentos inesperados que poderão surpreendê-lo profundamente. Esteja atento.<br><br><b>Saúde:</b> A sua força anímica estará um pouco debilitada.<br><br><b>Dinheiro:</b> A sua vontade de conseguir atingir os seus objetivos pode impedi-lo de virar a sua atenção para as coisas boas da vida.<br><br><b>Carta do Dia:</b> O Diabo, que significa Energias Negativas.<br><b>Número da Sorte:</b> 1, 3, 7, 18, 22, 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 ==9 && mes == 1)
document.write("<b>Amor:</b> Não seja injusto com as pessoas que mais ama.<br><br><b>Saúde:</b> Devido à excitação, poderá andar um pouco indisposto, é aconselhável procurar o seu médico.<br><br><b>Dinheiro:</b> Anda mais responsável nos seus gastos, continue assim que não se arrependerá.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==10 && mes ==1)
document.write("<b>Amor:</b> Se agir de um modo excessivamente orgulhoso ou arrogante pode perder a pessoa amada.<br><br><b>Saúde:</b> Poderá ter algumas dores musculares.<br><br><b>Dinheiro:</b> É através do exercício diário da bondade que se pode tornar uma pessoa verdadeiramente realizada.<br><br><b>Carta do Dia:</b> 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 ==11 && mes == 1)
document.write("<b>Amor:</b> Se estiver envolvido numa relação recente seja prudente e não se envolva demasiado. Perdoe aos outros e a si próprio.<br><br><b>Saúde:</b> Risco de infecções urinárias. Seja prudente.<br><br><b>Dinheiro:</b> Atenção, a sua diplomacia vai estar favorecida. Aproveite para fazer alguns pedidos que anseia há muito tempo.<br><br><b>Carta do Dia:</b> O Carro, que significa Sucesso.<br><b>Número da Sorte:</b> 4, 8, 17, 28, 39, 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 ==12 && mes == 1)
document.write("<b>Amor:</b> Não seja mal humorado com os seus familiares, eles não merecem. Reúna a sua família com o propósito de falarem sobre os problemas que vos preocupam.<br><br><b>Saúde:</b> Não seja tão passivo com a atividade física, faça mais por si próprio.<br><br><b>Dinheiro:</b> Não deixe para amanhã aquilo que pode fazer hoje.<br><br><b>Carta do Dia:</b> 5 de Espadas, que significa Avareza.<br><b>Número da Sorte:</b> 55<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 exija demasiado dos outros sem exigir de si mesmo em primeiro lugar. As emoções saudáveis vivem dentro de quem as sabe liderar. Seja um verdadeiro líder, aprendendo a controlar as suas emoções.<br><br><b>Saúde:</b> Tenha cuidado com as mudanças de temperatura repentinas.<br><br><b>Dinheiro:</b> Período favorável.<br><br><b>Carta do Dia:</b> O Papa, que significa Sabedoria.<br><b>Número da Sorte:</b> 4, 9, 11, 22, 34, 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> Não seja tão impulsivo, pois isso pode magoar verdadeiramente a pessoa que tem a seu lado. Com os nossos pensamentos e palavras criamos o mundo em que vivemos.<br><br><b>Saúde:</b> Os seus ossos andam um pouco frágeis.<br><br><b>Dinheiro:</b> Poderá ser presenteado com um aumento inesperado.<br><br><b>Carta do Dia:</b> Sol, que significa Glória, Honra.<br><b>Número da Sorte:</b> 2, 11, 19, 26, 29, 34<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> Seja prudente na forma como fala com a sua cara-metade.<br><br><b>Saúde:</b> Período propício a quedas.<br><br><b>Dinheiro:</b> Seja honesto consigo próprio, não tenha receio de reconhecer os seus erros e traçar novas rotas de vida, só assim encontrará a si próprio e poderá alcançar a felicidade que tanto deseja e merece.<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 ==16 && mes == 1)
document.write("<b>Amor:</b> Vai se sentir irresistível e sentimental. Seja alegre, procure fazer todo o bem que puder durante a sua vida!<br><br><b>Saúde:</b> Poderão surgir bloqueios de ordem psicológica.<br><br><b>Dinheiro:</b> Oportunidade para transacionar ou executar aquele projeto com êxito.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==17 && mes ==12)
document.write("<b>Amor:</b> É necessário tomar algumas decisões no campo sentimental devido ao surgimento de uma terceira pessoa que poderá fomentar o ciúme na sua atual relação.<br><br><b>Saúde:</b> Sentirá algum mal-estar que será facilmente superado se não cometer excessos.<br><br><b>Dinheiro:</b> Não cometa excessos a este nível, seja prudente.<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 ==18 && mes == 12)
document.write("<b>Amor:</b> É provável o envolvimento em disputas amorosas.<br><br><b>Saúde:</b> Dores de cabeça e outros sintomas de mal-estar.<br><br><b>Dinheiro:</b> A sabedoria é a mais bela das árvores e a que dá os melhores frutos. O tolo diz o que sabe. O sábio sabe aquilo que diz.<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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==19 && mes ==12)
document.write("<b>Amor:</b> Poderá sentir-se desiludido com o comportamento da pessoa amada.<br><br><b>Saúde:</b> Melhore o seu humor.<br><br><b>Dinheiro:</b> Os bons resultados profissionais irão recompensá-lo pelas dificuldades que está sentindo nas outras áreas da sua vida.<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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==20 && mes == 12)
document.write("<b>Amor:</b> Um período de paixão muito elevado. A confiança é a base para solidificar a sua relação.<br><br><b>Saúde:</b> Tenha cuidado com a sua alimentação. É urgente que altere a sua dieta alimentar.<br><br><b>Dinheiro:</b> Poderá ter tendência para gastar mais do que habitualmente. Por mais que custe, esforce-se ao máximo para não mexer nas suas economias.<br><br><b>Carta do Dia:</b> Rainha de Ouros, que significa Ambição, Poder.<br><b>Número da Sorte:</b> 77<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> Está passando por uma fase menos positiva na sua vida, mas será ultrapassada.<br><br><b>Saúde:</b> Tenha atenção aos resfriados.<br><br><b>Dinheiro:</b> Este é um momento de altos e baixos, tente controlar os gastos.<br><br><b>Carta do Dia:</b> Cavaleiro de Copas, que significa Proposta Vantajosa.<br><b>Número da Sorte:</b> 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 ==22 && mes == 12)
document.write("<b>Amor:</b> Deixe de lado as dúvidas e hesitações e avance sem medo rumo ao que quer.<br><br><b>Saúde:</b> Não brinque com o fogo, e não abuse da sua saúde, pois apesar de ter uma boa resistência física não é invencível.<br><br><b>Dinheiro:</b> Como é uma pessoa poupada pode presentear-se com um pequeno luxo.<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 ==23 && mes ==12)
document.write("<b>Amor:</b> Seja carinhoso com os seus familiares.<br><br><b>Saúde:</b> Tenha atenção aos sinais dados pelo seu organismo, pois a sua saúde pode não estar tão bem como parece.<br><br><b>Dinheiro:</b> Faça todo o possível para ser o melhor do seu departamento. A sua competência não vai passar despercebida.<br><br><b>Carta do Dia:</b> Cavaleiro de Copas, que significa Proposta Vantajosa.<br><b>Número da Sorte:</b> 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 ==24 && mes == 12)
document.write("<b>Amor:</b> Aprenda a conhecer melhor as pessoas com quem se relaciona.<br><br><b>Saúde:</b> Cuidado com as irritações cutâneas.<br><br><b>Dinheiro:</b> Mantenha-se atento, pois é possível que lhe peçam um relatório das tarefas desempenhadas.<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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==25 && mes ==12)
document.write("<b>Amor:</b> Possibilidade de novas propostas. Abra o seu coração. Nem tudo o que parece mal na verdade o é!<br><br><b>Saúde:</b> Poderá sentir-se um pouco febril.<br><br><b>Dinheiro:</b> Evite acumular trabalho. Esforce-se por resolver todos os assuntos que estão pendentes.<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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==26 && mes == 12)
document.write("<b>Amor:</b> É provável o envolvimento em disputas amorosas.<br><br><b>Saúde:</b> Dores de cabeça e outros sintomas de mal-estar.<br><br><b>Dinheiro:</b> Cuidado com os gastos.<br><br><b>Carta do Dia:</b> Rainha de Copas, que significa Amiga Sincera.<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 ==27 && mes ==12)
document.write("<b>Amor:</b> A longo prazo vai conseguir perceber que as escolhas que fez no passado foram as mais acertadas.<br><br><b>Saúde:</b> Tendência para a obesidade.<br><br><b>Dinheiro:</b> Poderão surgir alguns contratempos que atrasarão a concretização dos seus planos.<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 ==28 && mes == 12)
document.write("<b>Amor:</b> Vá atrás daquilo que quer e não tenha medo de amar. Dê asas à sua imaginação e revolucione a sua vida afetiva.<br><br><b>Saúde:</b> Pense mais em si e procure descansar mais.<br><br><b>Dinheiro:</b> Poderão ocorrer grandes modificações profissionais.<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 ==29 && mes ==12)
document.write("<b>Amor:</b> Poderá encontrar um amigo com o qual já não estabelecia contato há muito tempo. Procure intensamente sentimentos sólidos e duradouros, espalhando em seu redor alegria e bem-estar!<br><br><b>Saúde:</b> Possíveis dores de rins.<br><br><b>Dinheiro:</b> Pondere os seus gastos.<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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==30 && mes == 12)
document.write("<b>Amor:</b> O seu sentido de curiosidade está neste momento muito apurado, deve conhecer novos valores e costumes, o que torna esta fase na mais propícia para viajar.<br><br><b>Saúde:</b> Tendência para alguns problemas digestivos.<br><br><b>Dinheiro:</b> Não desperdice as boas propostas que vão chegar perto de você.<br><br><b>Carta do Dia:</b> Rainha de Ouros, que significa Ambição, Poder.<br><b>Número da Sorte:</b> 78<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> Não fique preso a um amor do passado. Perdoe a si próprio.<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 com o seu gerente ou superior.<br><br><b>Carta do Dia:</b> 3 de Copas, que significa Conclusão.<br><b>Número da Sorte:</b> 39")


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