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> A harmonia e a diversão estão presentes na sua relação afetiva. Que o seu sorriso ilumine todos em seu redor!<br><br><b>Saúde:</b> Procure com maior regularidade o seu médico.<br><br><b>Dinheiro:</b> Poderão surgir algumas despesas inesperadas.<br><br><b>Carta do Dia:</b> 2 de Espadas, que significa Afeição, Falsidade.<br><b>Número da Sorte:</b> 52<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> Não confunda aquilo que sente, a atração por um amigo pode não ser mais do que uma grande cumplicidade.<br><br><b>Saúde:</b> O seu sistema imunitário não está na melhor forma.<br><br><b>Dinheiro:</b> Procure um projeto mais credível para que não saia prejudicado. Descubra a imensa força e coragem que traz dentro de você.<br><br><b>Carta do Dia:</b> 4 de Copas, que significa Desgosto.<br><b>Números da Sorte:</b> 1, 3, 24, 29, 33, 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 ==3 && mes == 1)
document.write("<b>Amor:</b> Aproveite bem todos os momentos que tem para estar com a sua cara-metade. Uma personalidade forte sabe ser suave e leve como uma pena.<br><br><b>Saúde:</b> Poderá sentir alguma fadiga física.<br><br><b>Dinheiro:</b> Conserve todos os seus bens materiais.<br><br><b>Carta do Dia:</b> A Temperança, que significa Equilíbrio.<br><b>Número da Sorte:</b> 1, 18, 22, 40, 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 ==4 && mes ==1)
document.write("<b>Amor:</b> Afaste-se de certas pessoas que apenas estão perto de você por interesse.<br><br><b>Saúde:</b> Sentirá necessidade de se isolar para conseguir colocar as suas ideias no lugar.<br><br><b>Dinheiro:</b> Um amigo poderá solicitar a sua ajuda profissional, não se negue a ajudá-lo.<br><br><b>Carta do Dia:</b> 9 de Ouros, que significa Prudência.<br><b>Número da Sorte:</b> 9, 11, 17, 22, 28, 29<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> Um amigo pode solicitar a sua ajuda para aconselhá-lo num assunto delicado. Não o deixe ficar mal.<br><br><b>Saúde:</b> Sentirá necessidade de reforçar as suas energias.<br><br><b>Dinheiro:</b> Os nativos que ainda estão estudando serão recompensados pelos esforços que fizeram nos últimos tempos.<br><br><b>Carta do Dia:</b> 2 de Espadas, que significa Afeição, Falsidade.<br><b>Número da Sorte:</b> 1, 18, 22, 40, 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> Revele os seus verdadeiros sentimentos.<br><br><b>Saúde:</b> Tendência para a depressão, combata-a distraindo-se mais e saindo com os seus amigos.<br><br><b>Dinheiro:</b> Poderá ser elogiado pelo seu desempenho a nível profissional.<br><br><b>Carta do Dia:</b> 7 de Copas, que significa Sonhos Premonitórios.<br><b>Número da Sorte:</b> 1, 3, 24, 29, 33, 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 ==7 && mes == 1)
document.write("<b>Amor:</b> A harmonia reina na sua relação afetiva. Esta é a hora ideal para exteriorizar as suas ideias àqueles que o rodeiam.<br><br><b>Saúde:</b> Poderá sofrer de algum distúrbio ao nível do aparelho urinário.<br><br><b>Dinheiro:</b> Os seus negócios estão passando por um momento bastante favorável, aproveite-o.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==8 && mes ==1)
document.write("<b>Amor:</b> A sua família vai solicitar a sua atenção.<br><br><b>Saúde:</b> Não seja tão emotivo. Que a verdadeira sabedoria entre no seu coração.<br><br><b>Dinheiro:</b> Invista no seu amor, compre flores, presentes, bombons. Enfim, mime a sua cara-metade.<br><br><b>Carta do Dia:</b> A Justiça, que significa Justiça.<br><b>Número da Sorte:</b> 9, 11, 17, 22, 28, 29<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> Faça uma introspecção e procure saber o que é melhor para si neste momento. Quem sabe proteger-se das emoções negativas aprende a construir um futuro risonho.<br><br><b>Saúde:</b> A fadiga apodera-se de você. Descanse mais.<br><br><b>Dinheiro:</b> Não entre em negócios duvidosos.<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 ==10 && mes ==1)
document.write("<b>Amor:</b> Tome uma atitude de maior confiança para com a pessoa amada e demonstre aquilo que sente.<br><br><b>Saúde:</b> Acalme os seus nervos, pois essa agitação pode ser prejudicial.<br><br><b>Dinheiro:</b> Atenção ao modo como gere as suas finanças.<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 ==11 && mes == 1)
document.write("<b>Amor:</b> Não exija dos outros aquilo que também não consegue fazer. Seja menos dependente e entenda o ponto de vista das outras pessoas.<br><br><b>Saúde:</b> Dia propício ao esporte e à vida saudável.<br><br><b>Dinheiro:</b> Os seus superiores poderão exigir de você tarefas que terá muita dificuldade em executar. Esforce-se ao máximo, pois disso pode depender o sucesso profissional.<br><br><b>Carta do Dia:</b> Cavaleiro de Paus, que significa Viagem longa.<br><b>Número da Sorte:</b> 2, 3, 5, 8, 19, 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 ==12 && mes == 1)
document.write("<b>Amor:</b> Procure ver o que realmente as pessoas são por dentro. Que a beleza da Aurora invada a sua vida!<br><br><b>Saúde:</b> Poderá sofrer de alguma retenção de líquidos.<br><br><b>Dinheiro:</b> Não seja irresponsável e pense bem no seu futuro.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==13 && mes ==1)
document.write("<b>Amor:</b> O amor está no ar, por isso aproveite ao máximo este momento. Esteja aberto aos desafios que a vida lhe coloca, aceite-os e enfrente-os com coragem.<br><br><b>Saúde:</b> Cuide da sua coluna.<br><br><b>Dinheiro:</b> Tudo estará dentro da normalidade.<br><br><b>Carta do Dia:</b> 3 de Copas, que significa Conclusão.<br><b>Número da Sorte:</b> 1, 3, 24, 29, 33, 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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==14 && mes == 1)
document.write("<b>Amor:</b> Não tenha medo de dizer aquilo que pensa. Que a determinação e a Luz estejam sempre consigo.<br><br><b>Saúde:</b> Cuidado com as correntes de ar.<br><br><b>Dinheiro:</b> Época pouco favorável para o começo de novos projetos.<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> 11, 25, 26, 38, 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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==15 && mes ==1)
document.write("<b>Amor:</b> Tem que ter mais confiança na pessoa que está ao seu lado, deixe o ciúme de lado. Seja verdadeiro, a verdade é eterna e a mentira dura apenas algum tempo.<br><br><b>Saúde:</b> Prováveis enxaquecas.<br><br><b>Dinheiro:</b> Possível promoção profissional, o que será bastante vantajoso.<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 ==16 && mes == 1)
document.write("<b>Amor:</b> As brincadeiras na sua relação afetiva serão uma constante. Exercitar a arte de ser feliz é muito divertido!<br><br><b>Saúde:</b> Não deixe que a irresponsabilidade afete a sua saúde e procure com maior regularidade o seu médico.<br><br><b>Dinheiro:</b> Cuidado com os gastos inesperados.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==17 && mes ==12)
document.write("<b>Amor:</b> Não seja impulsivo. As novas iniciativas estarão favoráveis.<br><br><b>Saúde:</b> Cuide do seu aparelho digestivo.<br><br><b>Dinheiro:</b> Aproveite as novas oportunidades e a sua situação poderá começar a mudar. Que os seus mais belos sonhos se tornem realidade.<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 ==18 && mes == 12)
document.write("<b>Amor:</b> O seu habitual equilíbrio vai ser bastante útil na resolução de problemas familiares.<br><br><b>Saúde:</b> Poderá apanhar uma forte gripe se insistir em não se proteger.<br><br><b>Dinheiro:</b> Seja firme e tenha confiança em si e no seu trabalho.<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 ==19 && mes ==12)
document.write("<b>Amor:</b> Uma antiga paixão pode reaparecer na sua vida.<br><br><b>Saúde:</b> Vai sentir-se cheio de energia e vitalidade.<br><br><b>Dinheiro:</b> Evite compensar a sua carência afetiva com gastos supérfluos.<br><br><b>Carta do Dia:</b> Cavaleiro de Espadas, que significa Guerreiro, Cuidado.<br><b>Número da Sorte:</b> 62<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> Poderá passar por uma aventura de grande importância para você.<br><br><b>Saúde:</b> Cuide mais da sua saúde.<br><br><b>Dinheiro:</b> Seja caridoso, a caridade é um bem incalculável que o fará sentir-se em paz consigo e com o Mundo que o rodeia.<br><br><b>Carta do Dia:</b> 5 de Paus, que significa Fracasso.<br><b>Número da Sorte:</b> 27<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 harmonia familiar marcará fortemente este dia.<br><br><b>Saúde:</b> Cuide mais de si, não fique indiferente a uma possível dor de cabeça.<br><br><b>Dinheiro:</b> A sua determinação será importante para uma conquista profissional.<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<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> Terá vontade de avançar para uma conquista amorosa, mas tenha cuidado porque talvez não esteja sendo tão correspondido como pensa.<br><br><b>Saúde:</b> Uma consulta ao oftalmologista poderá ser necessária.<br><br><b>Dinheiro:</b> Está perdendo uma boa oportunidade de progredir na carreira, abra os olhos pois ninguém se lava duas vezes nas águas do mesmo rio.<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 ==23 && mes ==12)
document.write("<b>Amor:</b> Notará um afastamento da pessoa amada, mas não é nada alarmante.<br><br><b>Saúde:</b> Muito favorável, aproveite e pratique exercício físico.<br><br><b>Dinheiro:</b> Se deseja verdadeiramente contribuir para um Mundo melhor, tenha consciência de que a vida é uma grande escola, mas pouco ou nada se ensina a quem não está disposto a ser um bom aluno.<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 ==24 && mes == 12)
document.write("<b>Amor:</b> Faça um balanço da sua relação afetiva para poder operar mudanças favoráveis.<br><br><b>Saúde:</b> Mantenha-se atento, pois atravessa um período desfavorável.<br><br><b>Dinheiro:</b> Não arrisque neste momento.<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 ==25 && mes ==12)
document.write("<b>Amor:</b> Aproveite os momentos de bem-estar emocional com a família. Que o futuro lhe seja risonho!<br><br><b>Saúde:</b> Faça um retiro que proporcione bem-estar físico e emocional.<br><br><b>Dinheiro:</b> Tenha presente a situação de crise em que vive.<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 ==26 && 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 em depressão.<br><br><b>Dinheiro:</b> A sua falta de vitalidade poderá prejudicar o seu desempenho profissional.<br><br><b>Carta do Dia:</b> O Mundo, que significa Fertilidade.<br><b>Número da Sorte:</b> 21<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> Notará um afastamento da pessoa amada, mas não é nada alarmante.<br><br><b>Saúde:</b> O mundo dos pensamentos pode tornar-se, para você, uma fonte de prazer ou um filme de terror. Procure ter pensamentos positivos e não deixe invadir-se por sentimentos ou pensamentos negativos.<br><br><b>Dinheiro:</b> Nem sempre a vida nos corre bem, esteja atento.<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 ==28 && mes == 12)
document.write("<b>Amor:</b> Não deixe que terceiros se intrometam na sua relação. A sua felicidade depende de você!<br><br><b>Saúde:</b> Poderá andar um pouco indisposto, é aconselhável procurar o seu médico.<br><br><b>Dinheiro:</b> Época pouco positiva neste setor.<br><br><b>Carta do Dia:</b> Rei de Ouros, que significa Inteligente, Prático.<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 ==29 && mes ==12)
document.write("<b>Amor:</b> Brevemente a sua vida amorosa dará uma grande volta. Seja humilde e aprenda a conhecer a si próprio, então conhecerá o mundo.<br><br><b>Saúde:</b> Faça exames médicos com frequencia.<br><br><b>Dinheiro:</b> Evite 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 ==30 && mes == 12)
document.write("<b>Amor:</b> Não tenha medo de se apaixonar. Dê asas à sua imaginação e revolucione a sua vida afetiva.<br><br><b>Saúde:</b> Estará em plena forma.<br><br><b>Dinheiro:</b> Tenha mais atenção com os seus gastos.<br><br><b>Carta do Dia:</b> 5 de Ouros, que significa Perda/ Falha.<br><b>Número da Sorte:</b> 69<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> Esforce-se para ser mais autocrítico. Descubra a imensa força e coragem que traz dentro de você.<br><br><b>Saúde:</b> Poderão surgir alguns problemas de saúde.<br><br><b>Dinheiro:</b> Boas influências financeiras.<br><br><b>Carta do Dia:</b> 8 de Paus, que significa Rapidez.<br><b>Número da Sorte:</b> 30")


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