Data por extenso
Publicado por Carlos Henrique (última atualização em 02/10/2009)
[ Hits: 6.711 ]
Homepage: www.azimutesistemas.com.br
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.
<? //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; } ?>
Cálculo de diferença entre uma data e a outra
Guestbook LivroLivre versão 2.0
Nenhum comentário foi encontrado.
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Como renomear arquivos de letras maiúsculas para minúsculas
Imprimindo no formato livreto no Linux
Vim - incrementando números em substituição
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
SysAdmin ou DevOps: Qual curso inicial pra essa área? (0)
Melhores Práticas de Nomenclatura: Pastas, Arquivos e Código (3)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta