Data por extenso

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

[ Hits: 6.713 ]

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

Função Anti MySQL Injection - Proteja sua aplicação!

Gravando conteudo de uma caixa de texto no banco de dados

Envio


  

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