Data por extenso

Publicado por Carlos Henrique (última atualização em 02/10/2009)

[ Hits: 6.711 ]

Homepage: www.azimutesistemas.com.br

Download dataporextenso.php




Não sei se ajuda muito, mas eu tive que criar esse script para gerar notas promissórias onde a data deveria ser por extenso e não com os valores numéricos para dia e ano. Espero que ajude.

  



Esconder código-fonte

<?
   //Escreve a data por extenso
        $u=array("UM", "DOIS", "TRÊS", "QUATRO", "CINCO", "SEIS", "SETE", "OITO", "NOVE");
        $meses=array("JANEIRO", "FEVEREIRO", "MARÇO", "ABRIL", "MAIO", "JUNHO", "JULHO", "AGOSTO", "SETEMBRO", "OUTUBRO", "NOVEMBRO", "DEZEMBRO");
        $d20=array("VINTE", "TRINTA");
        $d=array("DEZ", "ONZE", "DOZE", "TREZE", "QUATORZE", "QUINZE", "DEZESSEIS", "DEZESSETE", "DEZOITO", "DEZENOVE");
   $m="MIL";
   
   echo $_GET['data']."<br>";
   $r="Ao(s) ";
   if(isset($_GET['data'])){
      //Escreve o dia
      $dt=split("/",$_GET['data']);
      if($dt[0]<10){
         $r.=$u[($dt[0]-1)];
      }elseif($dt[0]>=10 && $dt[0]<20){
         $r.=$d[substr($dt[0],1,1)];
      }else{
         if($dt[0]>=20 && $dt[0]<30){
            $r.=$d20[0];
         }else{
            $r.=$d20[1];
         }
         if(substr($dt[0],1,1)>0)
            $r.=" e ".$u[(substr($dt[0],1,1))-1];
      }
      
      //Escreve o mes
      $r.=" dia(s) de ".$meses[($dt[1]-1)]." de ".$u[(substr($dt[2],0,1))-1]." ".$m." e ";
      
      //Escreve o ano
      if(substr($dt[2],1,3)<10){
         $r.=$u[(substr($dt[2],1,3))-1];
      }elseif(substr($dt[2],1,3)>=10 && substr($dt[2],1,3)<20){
         $r.=$d[(substr($dt[2],3,1))];
      }else{
         if(substr($dt[2],1,3)>=20 && substr($dt[2],1,3)<30){
            $r.=$d20[0];
         }else{
            $r.=$d20[1];
         }
         if(substr($dt[2],3,1)>0)
            $r.=" e ".$u[(substr($dt[2],3,1))-1];
      }
      echo $r;
   }
?>

Scripts recomendados

Cálculo do INSS

Cálculo de diferença entre uma data e a outra

Guestbook LivroLivre versão 2.0

TFtp

Validação de E-mail


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts