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> Contate alguns familiares seus que estão longe.<br><br><b>Saúde:</b> Previna-se contra otites.<br><br><b>Dinheiro:</b> Poderá receber dinheiro extra. No entanto, lembre-se que é preciso disciplina, pois só dessa forma transformará os seus sonhos em realidade.<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 ==2 && mes ==1)
document.write("<b>Amor:</b> Andará mais solícito e cooperativo no âmbito amoroso.<br><br><b>Saúde:</b> Possível quebra no seu bem-estar.<br><br><b>Dinheiro:</b> Espera-se um período não muito positivo, mas passageiro. A Vida espera por você. Viva-a.<br><br><b>Carta do Dia:</b> Cavaleiro de Espadas, que significa Guerreiro, Cuidado.<br><b>Número da Sorte:</b> 7, 18, 19, 26, 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 ==3 && mes == 1)
document.write("<b>Amor:</b> Pode ver-se confrontado com uma paixão súbita e avassaladora. Não tenha medo dos seus sentimentos e enfrente as situações.<br><br><b>Saúde:</b> Finalmente poderá perceber que aquele problema que há tanto tempo o preocupava não é tão grave nem preocupante.<br><br><b>Dinheiro:</b> Surpresas bastante agradáveis a nível profissional. Existe a possibilidade de promoção ou aumento salarial. Se trabalha por conta própria, este é um dia muito favorável à obtenção de lucros significativos.<br><br><b>Carta do Dia:</b> A Justiça, que significa Justiça.<br><b>Número da Sorte:</b> 1, 8, 17, 21, 39, 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> Sentirá necessidade de conhecer pessoas diferentes e contatar com novos ambientes. Parta à descoberta.<br><br><b>Saúde:</b> Tenha cuidado redobrado.<br><br><b>Dinheiro:</b> Hora de fazer contenção de despesas. O trabalho em equipe está favorecido.<br><br><b>Carta do Dia:</b> 8 de Paus, que significa Rapidez.<br><b>Número da Sorte:</b> 4, 9, 18, 22, 32, 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 ==5 && mes == 1)
document.write("<b>Amor:</b> Poderá ser surpreendido por alguém que conhece há pouco tempo. Seja paciente quando o comportamento dos outros não corresponder às suas expectativas.<br><br><b>Saúde:</b> Dê atenção à sua imagem.<br><br><b>Dinheiro:</b> Continue com a sua habitual tendência para a contenção.<br><br><b>Carta do Dia:</b> 2 de Paus, que significa Perda de Oportunidades.<br><b>Número da Sorte:</b> 2, 8, 11, 28, 40, 42<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> As relações a dois estão no auge. Que o seu olhar tenha o brilho do sol.<br><br><b>Saúde:</b> É aconselhável uma dieta alimentar, livre de gorduras e hidratos de carbono. O seu organismo agradecerá.<br><br><b>Dinheiro:</b> Evite gastos desnecessários, controle a sua tendência natural para o consumismo.<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, 18, 19, 26, 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 ==7 && mes == 1)
document.write("<b>Amor:</b> A seta do Cupido espera por você. Poderá ver agora realizado um projeto que muito desejou. Que a clareza de espírito esteja sempre consigo!<br><br><b>Saúde:</b> Tendência para dores de barriga.<br><br><b>Dinheiro:</b> Efetuará bons negócios no dia de hoje.<br><br><b>Carta do Dia:</b> A Imperatriz, que significa Realização.<br><b>Número da Sorte:</b> 3<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> Aproveite este dia para se dedicar de corpo e alma ao ser amado.<br><br><b>Saúde:</b> Este é um dia dedicado ao descanso e à descontração, depois de um período agitado e cheio de trabalho.<br><br><b>Dinheiro:</b> Recarregue as suas baterias e prepare-se física e emocionalmente, porque uma semana bastante exigente a nível profissional espera por você.<br><br><b>Carta do Dia:</b> 9 de Paus, que significa Força na Adversidade.<br><b>Número da Sorte:</b> 4, 9, 18, 22, 32, 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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==9 && mes == 1)
document.write("<b>Amor:</b> Dia favorável para jantares românticos.<br><br><b>Saúde:</b> O seu sistema imunitário está muito sensível, seja prudente.<br><br><b>Dinheiro:</b> Viva de uma forma sábia. A sabedoria não vive separada da vida cotidiana.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==10 && mes ==1)
document.write("<b>Amor:</b> Modere a sua má disposição. Os seus amigos poderão ressentir-se do seu súbito distanciamento.<br><br><b>Saúde:</b> Evite mudanças bruscas de temperatura. Uma constipação pode estar à espreita.<br><br><b>Dinheiro:</b> A sua capacidade de trabalho está mais favorecida do que nunca. Continue nesta maré, pois vai conseguir realizar tudo aquilo a que se propuser.<br><br><b>Carta do Dia:</b> 3 de Espadas, que significa Amizade, Equilíbrio.<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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==11 && mes == 1)
document.write("<b>Amor:</b> Deixe-se levar pelo sonho, por vezes sabe bem isolarmo-nos do mundo e das preocupações para mergulhar no nosso secreto país das maravilhas.<br><br><b>Saúde:</b> Propensão para a anemia. Reforce a sua alimentação.<br><br><b>Dinheiro:</b> Não fique demasiado ansioso com a sua atividade profissional, a seu tempo vai conseguir atingir os seus objetivos.<br><br><b>Carta do Dia:</b> Às de Paus, que significa Energia, Iniciativa.<br><b>Número da Sorte:</b> 15, 26, 31, 39, 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 ==12 && mes == 1)
document.write("<b>Amor:</b> Dedique algum tempo a uma pessoa de quem gosta muito e com quem não tem mantido contato.<br><br><b>Saúde:</b> Saia de casa, apanhe ar puro e passeie junto ao mar. Irá sentir-se restabelecido.<br><br><b>Dinheiro:</b> Se precisa de ajuda a nível financeiro, não tenha receio de pedir ajuda a um amigo muito chegado, ele não o vai desiludir.<br><br><b>Carta do Dia:</b> Cavaleiro de Paus, que significa Viagem longa.<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 ==13 && mes ==1)
document.write("<b>Amor:</b> Poderá ter de fazer uma viagem inesperada.<br><br><b>Saúde:</b> Vai estar mais cansado do que aquilo que é normal.<br><br><b>Dinheiro:</b> Poderá ser criticado por algum colega de trabalho, se tem a consciência tranquila não se incomode com isso. Seja caridoso e tenha compaixão pelos que sofrem, mas não sofra por eles.<br><br><b>Carta do Dia:</b> A Morte, que significa Renovação.<br><b>Número da Sorte:</b> 7, 18, 19, 26, 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 ==14 && mes == 1)
document.write("<b>Amor:</b> Não deixe para outro dia tudo o que poderá deixar esclarecido hoje. Viva a sua vida para que o seu exemplo possa servir de modelo aos outros.<br><br><b>Saúde:</b> Os seus ouvidos vão estar muito sensíveis.<br><br><b>Dinheiro:</b> Tudo estará equilibrado.<br><br><b>Carta do Dia:</b> O Mundo, que significa Fertilidade.<br><b>Número da Sorte:</b> 8, 11, 29, 36, 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> Sentirá necessidade de conhecer pessoas diferentes e contatar com novos ambientes. Parta à descoberta.<br><br><b>Saúde:</b> Cuidado com as suas pernas, pois andam um pouco frágeis.<br><br><b>Dinheiro:</b> Não deixe para amanhã aquilo que pode fazer hoje.<br><br><b>Carta do Dia:</b> A 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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==16 && mes == 1)
document.write("<b>Amor:</b> Não se deixe levar por pensamentos negativos, melhores tempos virão.<br><br><b>Saúde:</b> Cuide da sua imagem. Inicie uma dieta. Expulse a sua enfermidade, confiando na sua cura, você tem o poder dentro de si.<br><br><b>Dinheiro:</b> Poderá, em breve, ver os seus objetivos alcançados.<br><br><b>Carta do Dia:</b> 4 de Ouros, que significa Projetos.<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/horoscopo1_anual.htm' target='_blank'>Horóscopo para 2011</a>")
if (num_dia ==17 && mes ==12)
document.write("<b>Amor:</b> Surgirão ótimas oportunidades para o compromisso. Poderá encontrar um novo amor ou solidificar o atual.<br><br><b>Saúde:</b> Possíveis problemas no sistema nervoso poderão surgir.<br><br><b>Dinheiro:</b> Não confie demasiado nos outros ou poderá sofrer alguns enganos.<br><br><b>Carta do Dia:</b> Rainha de Paus, que significa Poder Material e que pode ser Amorosa ou Fria.<br><b>Número da Sorte:</b> 35<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> Andará muito sentimental e por isso o seu relacionamento amoroso estará colorido e cheio de ternura.<br><br><b>Saúde:</b> Espera-o um período isento de preocupações.<br><br><b>Dinheiro:</b> Fique atento e evite qualquer tipo de gasto supérfluo.<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 ==19 && mes ==12)
document.write("<b>Amor:</b> Sentirá necessidade de conhecer pessoas diferentes e contatar com novos ambientes. Parta à descoberta.<br><br><b>Saúde:</b> Cuidado com as suas pernas, pois andam um pouco frágeis.<br><br><b>Dinheiro:</b> Não deixe para amanhã aquilo que pode fazer hoje.<br><br><b>Carta do Dia:</b> A 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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==20 && mes == 12)
document.write("<b>Amor:</b> Antes de tomar qualquer decisão, tenha em consideração a opinião de uma pessoa muito importante na sua vida.<br><br><b>Saúde:</b> Tenha em atenção o nível de colesterol.<br><br><b>Dinheiro:</b> Com determinação e confiança atingirá as metas profissionais que tem traçadas.<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 ==21 && mes ==12)
document.write("<b>Amor:</b> Possivelmente, receberá o convite de um amigo para passar um dia muito divertido e agradável.<br><br><b>Saúde:</b> Sentirá necessidade de repousar um pouco para acalmar o stress.<br><br><b>Dinheiro:</b> Não desperdice uma oportunidade de mudança a nível profissional.<br><br><b>Carta do Dia:</b> Morte, que significa Renovação.<br><b>Número da Sorte:</b> 13<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> O coração tem razões que a razão desconhece e a verdade é que está se apaixonando por quem menos esperava.<br><br><b>Saúde:</b> Não se distraia da sua saúde, pois embora tudo pareça estar bem pode ter uma súbita quebra de energia que vai deixar você caido.<br><br><b>Dinheiro:</b> Novidades no terreno profissional.<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 ==23 && mes ==12)
document.write("<b>Amor:</b> Dar-se excessivamente pode ser um defeito e não uma qualidade. Não sofra as dores do outro. Já parou para pensar que ao sofrer a dor do outro se torna uma pessoa deprimida e incapaz de ajudar seja quem for?<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> A 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/previsoes.htm' target='_blank'>Tarô Online Grátis</a>")
if (num_dia ==24 && mes == 12)
document.write("<b>Amor:</b> Não se deixe levar por pensamentos negativos, melhores tempos virão.<br><br><b>Saúde:</b> Cuide da sua imagem. Inicie uma dieta.<br><br><b>Dinheiro:</b> Poderá, em breve, ver os seus objetivos alcançados.<br><br><b>Carta do Dia:</b> Carro, que significa Sucesso.<br><b>Número da Sorte:</b> 7<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 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> Tendência para dores de cabeça.<br><br><b>Dinheiro:</b> Período favorável, aproveite bem este momento.<br><br><b>Carta do Dia:</b> Ás de Copas, que significa Principio 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 ==26 && mes == 12)
document.write("<b>Amor:</b> Repense melhor o percurso afetivo que tem com o seu amor.<br><br><b>Saúde:</b> O nervosismo e a precipitação são fatores negativos.<br><br><b>Dinheiro:</b> Não exagere, as suas possibilidades de momento são fracas.<br><br><b>Carta do Dia:</b> Rei de Espadas, que significa Poder, Autoridade.<br><b>Número da Sorte:</b> 64<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 sua simpatia e sentido de humor vão conquistar as pessoas que estão à sua volta.<br><br><b>Saúde:</b> Tenha mais cuidado com a sua higiene oral, consulte o dentista.<br><br><b>Dinheiro:</b> A estabilidade reina nas suas economias.<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 ==28 && mes == 12)
document.write("<b>Amor:</b> Dê um pouco mais de liberdade à pessoa que tem a seu lado.<br><br><b>Saúde:</b> Tendência para dores de cabeça.<br><br><b>Dinheiro:</b> Possível promoção.<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 ==29 && mes ==12)
document.write("<b>Amor:</b> A sua relação está passando por um período um pouco conturbado, mas não se preocupe, pois é passageiro.<br><br><b>Saúde:</b> Poderá sofrer de um desequilíbrio intestinal.<br><br><b>Dinheiro:</b> Momento favorável neste setor.<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 ==30 && mes == 12)
document.write("<b>Amor:</b> Mostre-se mais entusiasmado, agora tem a oportunidade de consolidar a sua relação amorosa.<br><br><b>Saúde:</b> Hoje vai se sentir animado e cheio de energia.<br><br><b>Dinheiro:</b> Conseguirá controlar as controvérsias e dominar o clima agitado que tem vivido. Seja o seu melhor amigo.<br><br><b>Carta do Dia:</b> 8 de Copas, que significa Concretização, Felicidade.<br><b>Número da Sorte:</b> 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 ==31 && mes ==12)
document.write("<b>Amor:</b> Mais vale estar sozinho do que acompanhado por pessoas que não o compreendem. A Vida espera por você. Viva-a.<br><br><b>Saúde:</b> O dia de hoje ficará marcado de alguma maneira por uma forte sensação de bem-estar.<br><br><b>Dinheiro:</b> Rentabilize melhor o seu orçamento.<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")


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