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> Enquanto não tiver a certeza dos seus sentimentos não ande para a frente com nenhuma relação.<br><br><b>Saúde:</b> Momento propício a quedas, cuidado.<br><br><b>Dinheiro:</b> As suas economias estão sofrendo um aumento significativo, não as deixe descer, pois está indo por um ótimo caminho.<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 ==2 && mes ==1)
document.write("<b>Amor:</b> Área sentimental favorecida. Faça projetos para um futuro a dois.<br><br><b>Saúde:</b> Gozará de boa forma.<br><br><b>Dinheiro:</b> Seja mais contido nos seus gastos. Que o sucesso esteja sempre consigo.<br><br><b>Carta do Dia:</b> A Morte, que significa Renovaçã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 ==3 && mes == 1)
document.write("<b>Amor:</b> Não seja tão duro nos conselhos que dá aos seus amigos.<br><br><b>Saúde:</b>  Está levando os seus problemas demasiado a sério e isso pode prejudicar o seu setor emocional. Sonhar é o maior tesouro.<br><br><b>Dinheiro:</b> Aproveite para resolver alguns assuntos burocráticos pendentes.<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> 7, 22, 29, 33, 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> A sua cara-metade vai ficar agradavelmente surpreendida com a sua paixão e impetuosidade.<br><br><b>Saúde:</b> Dia em que se sentirá capaz de dominar o mundo.<br><br><b>Dinheiro:</b> Como em todas as outras vertentes da sua vida, o campo profissional também vai estar favorecido. Vai sentir-se capaz de realizar todo o tipo de atividades, sem se sentir cansado.<br><br><b>Carta do Dia:</b> Cavaleiro de Paus, que significa Viagem Longa, Partida Inesperada.<br><b>Número da Sorte:</b> 2, 9, 17, 28, 29, 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 ==5 && mes == 1)
document.write("<b>Amor:</b> Evite os acessos de cólera. É através do exercício diário da bondade que se pode tornar uma pessoa verdadeiramente realizada.<br><br><b>Saúde:</b> Cuidado com as correntes de ar.<br><br><b>Dinheiro:</b> Evite os gastos excessivos.<br><br><b>Carta do Dia:</b> Os Enamorados, que significa Escolha.<br><b>Número da Sorte:</b> 19, 26, 30, 32, 36, 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 ==6 && mes ==1)
document.write("<b>Amor:</b> Deixe de pensar tanto em si e dê atenção às necessidades da pessoa amada. Amar é dar e receber.<br><br><b>Saúde:</b> Dia marcado pela calma e pela harmonia.<br><br><b>Dinheiro:</b> Não se deixe levar por comentários menos próprios, provenientes de alguns colegas de trabalho.<br><br><b>Carta do Dia:</b> 8 de Ouros, que significa Esforço Pessoal.<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 ==7 && mes == 1)
document.write("<b>Amor:</b> Aproveite esta época para visitar aqueles familiares que já não vê há algum tempo. A força do Bem transforma a vida!<br><br><b>Saúde:</b> Algumas dores de cabeça poderão incomodá-lo, procure o seu oftalmologista.<br><br><b>Dinheiro:</b> Tenha cautela, pois poderão surgir alguns gastos extras.<br><br><b>Carta do Dia:</b> 3 de Copas, que significa Conclusão.<br><b>Número da Sorte:</b> 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 ==8 && mes ==1)
document.write("<b>Amor:</b> Dedique o seu tempo livre às pessoas que mais ama.<br><br><b>Saúde:</b> Não abuse da sua resistência física.<br><br><b>Dinheiro:</b> Tendência para se deixar levar por desejos consumistas excessivos. Procure sempre o que é bom e belo dentro de si mesmo.<br><br><b>Carta do Dia:</b> O Papa, que significa Sabedoria.<br><b>Número da Sorte:</b> 2, 9, 17, 28, 29, 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 ==9 && mes == 1)
document.write("<b>Amor:</b> Ensine as pessoas a proteger as suas emoções, pois tudo o que as atinge ajuda a construir a personalidade.<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 hora.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==10 && mes ==1)
document.write("<b>Amor:</b> De vez em quando faz bem deixar-se seduzir.<br><br><b>Saúde:</b> Cuidado com o excesso de açúcar. É possível que no futuro venha a ter problemas de diabetes.<br><br><b>Dinheiro:</b> Seja consciencioso. Não prejudique o trabalho de um colega.<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 ==11 && mes == 1)
document.write("<b>Amor:</b> Não se deixe iludir por falsas aparências. Os seus sentidos devem estar bem despertos.<br><br><b>Saúde:</b> Dia equilibrado e sem grandes dificuldades.<br><br><b>Dinheiro:</b> Pode sentir-se um pouco desanimado e desiludido, pois os planos que tinha não foram levados a sério.<br><br><b>Carta do Dia:</b> 8 de Paus, que significa Rapidez.<br><b>Número da Sorte:</b> 8, 10, 36, 39, 41, 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 ==12 && mes == 1)
document.write("<b>Amor:</b> Se está só, prepare-se, pois é provável que o Cupido invada o seu coração. Procure ter pensamentos positivos e não se deixe invadir por sentimentos ou pensamentos negativos.<br><br><b>Saúde:</b> Evite exposições prolongadas a ambientes frios.<br><br><b>Dinheiro:</b> Seja prudente nos seus investimentos.<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 ==13 && mes ==1)
document.write("<b>Amor:</b> Quantas vezes prometeu que amaria mais e que sorriria mais, mas não o fez?, agora é a hora.<br><br><b>Saúde:</b> Quando julgamos estar bem nem sempre o estamos.<br><br><b>Dinheiro:</b> Período favorável.<br><br><b>Carta do Dia:</b> 5 de Paus, que significa Fracasso.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==14 && mes == 1)
document.write("<b>Amor:</b> Poderá sentir que a sua cara-metade anda um pouco distante.<br><br><b>Saúde:</b> Cuide um pouco mais da sua saúde oral.<br><br><b>Dinheiro:</b> NNão seja tão individualista no seu trabalho, pois só tem a perder com isso. Seja o primeiro a dar o exemplo.<br><br><b>Carta do Dia:</b> A Temperança, que significa Equilíbrio.<br><b>Número da Sorte:</b> 9, 11, 22, 36, 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 ==15 && mes ==1)
document.write("<b>Amor:</b> Notícias de pessoas com as quais já não estabelece contato há algum tempo vão deixá-lo muito feliz.<br><br><b>Saúde:</b> Tenha algum cuidado com a sua alimentação, não cometa excessos, pois isso só o prejudicará.<br><br><b>Dinheiro:</b> Preste mais atenção às contas que tem para pagar.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==16 && mes == 1)
document.write("<b>Amor:</b> Aproveite bem todos os momentos que tem para estar com a sua cara-metade. A Realização vem do balanço entre o dar e o receber.<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> 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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==17 && mes ==12)
document.write("<b>Amor:</b> Guarde o seu sarcasmo e fique atento às queixas do seu companheiro.<br><br><b>Saúde:</b> Espere um período regular.<br><br><b>Dinheiro:</b> Poderá investir em novos projetos, mas com prudência.<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 ==18 && mes == 12)
document.write("<b>Amor:</b> Se existir desconfiança entre o casal será difícil a harmonia. Modere a sua má disposição.<br><br><b>Saúde:</b> Consulte o seu médico, provável falta de vitalidade.<br><br><b>Dinheiro:</b> Uma pessoa amiga vai precisar da sua ajuda monetária.<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 ==19 && mes ==12)
document.write("<b>Amor:</b> Evite ter atitudes impulsivas. Pense duas vezes antes de agir, pois as suas atitudes precipitadas podem pôr em risco a sua relação.<br><br><b>Saúde:</b> Evite abusar 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> 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 ==20 && mes == 12)
document.write("<b>Amor:</b> Momento propício para resolver um assunto pendente com a sua cara-metade.<br><br><b>Saúde:</b> Controle o seu nervosismo, pode colocar tudo a perder.<br><br><b>Dinheiro:</b> No seu ambiente de trabalho, procure manter a harmonia e o bom ambiente entre todos os colegas.<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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==21 && mes ==12)
document.write("<b>Amor:</b> Não se deixe influenciar por terceiros.<br><br><b>Saúde:</b> Possíveis dores de cabeça.<br><br><b>Dinheiro:</b> Um verdadeiro vencedor deve ter a consciência de que quem vence sem correr riscos triunfa sem glória. Esteja aberto aos desafios que a vida lhe coloca, aceite-os e enfrente-os com bravura.<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 ==22 && mes == 12)
document.write("<b>Amor:</b> Sentimentos de frustração espreitam, sente que o seu amor não é tão correspondido como você merece.<br><br><b>Saúde:</b> Aprenda a dominar a sua impulsividade, descubra as maravilhas das terapias orientais.<br><br><b>Dinheiro:</b> Cuidado com os gastos excessivos, tende a mimar-se com presentes para compensar carências afetivas.<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 ==23 && mes ==12)
document.write("<b>Amor:</b> A sua cara-metade poderá fazer uma surpresa inesquecível.<br><br><b>Saúde:</b> Tente manter a calma, pois o seu sistema nervoso anda um pouco frágil.<br><br><b>Dinheiro:</b> Este é um momento favorável, aproveite para fazer o que já tinha planejado.<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 ==24 && mes == 12)
document.write("<b>Amor:</b> Estará mais receptivo às necessidades da pessoa amada. Enfrente as dificuldades, lutando por aquilo que quer.<br><br><b>Saúde:</b> Aconselha-se que quebre a rotina para afastar o cansaço.<br><br><b>Dinheiro:</b> Atravessa uma fase sem surpresas neste campo.<br><br><b>Carta do Dia:</b> Cavaleiro de Paus, que significa Viagem longa, Partida Inesperada.<br><b>Número da Sorte:</b> 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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==25 && mes ==12)
document.write("<b>Amor:</b> As suas conversas serão animadas, muito proveitosas e poderão melhorar o seu relacionamento amoroso. Procure dizer coisas boas, a palavra tem muita força!<br><br><b>Saúde:</b> Cuidado com os pulmões, aparelho respiratório frágil.<br><br><b>Dinheiro:</b> Procure usar a sua capacidade de conciliação para resolver alguns problemas profissionais.<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 ==26 && mes == 12)
document.write("<b>Amor:</b> Resolva de uma vez todos os assuntos amorosos que tem evitado enfrentar.<br><br><b>Saúde:</b> Possíveis dores de cabeça irão incomodá-lo ao longo do dia de hoje.<br><br><b>Dinheiro:</b> Um dia de grande trabalho espera por você.<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 ==27 && mes ==12)
document.write("<b>Amor:</b> Esteja alerta, pois o amor poderá aparecer sem avisar. Que a determinação e a Luz estejam sempre consigo.<br><br><b>Saúde:</b> Beba bastante água e outros líquidos.<br><br><b>Dinheiro:</b> Compre só o que precisa, pois poderá vir a precisar desse dinheiro.<br><br><b>Carta do Dia:</b> 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 ==28 && mes == 12)
document.write("<b>Amor:</b> Tenha algum cuidado com a forma como fala com os seus familiares, pois pode magoá-los sem querer. Olhe tudo com amor, assim a vida será uma festa!<br><br><b>Saúde:</b> Tudo estará dentro da normalidade.<br><br><b>Dinheiro:</b> Momento propício a investimentos um pouco mais alargados.<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 ==29 && mes ==12)
document.write("<b>Amor:</b> Demonstre com maior ardor o quanto ama a pessoa que tem a seu lado. Aprenda a amar-se e então saberá amar tudo e todos!<br><br><b>Saúde:</b> Deve cuidar mais da sua mente e do seu espírito.<br><br><b>Dinheiro:</b> Não deixe que os outros tomem decisões ou falem por você, imponha o respeito no local de trabalho.<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 ==30 && mes == 12)
document.write("<b>Amor:</b> Não seja injusto com as pessoas que mais ama. Que a compreensão viva no seu coração!<br><br><b>Saúde:</b> Olhe mais para a sua saúde. Procure fugir ao consumo de gorduras porque o seu colesterol tem tendência para subir.<br><br><b>Dinheiro:</b> Tenha mais atenção às datas de cobrança de empréstimos.<br><br><b>Carta do Dia:</b> Estrela, que significa Proteçã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 ==31 && mes ==12)
document.write("<b>Amor:</b> Surgimento de uma paixão repentina.<br><br><b>Saúde:</b> Andará mais enervado que o habitual.<br><br><b>Dinheiro:</b> Possibilidade de algumas alterações profissionais. Que o sucesso esteja sempre consigo.<br><br><b>Carta do Dia:</b> 4 de Paus, que significa Ocasião Inesperada.<br><b>Número da Sorte:</b> 26")


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