Data por extenso
Publicado por Carlos Henrique (última atualização em 02/10/2009)
[ Hits: 7.053 ]
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
Trabalhando com PHP + Interbase(Firebird)
Nenhum comentário foi encontrado.
Jogando Daikatana (Steam) com Patch 1.3 via Luxtorpeda no Linux
LazyDocker – Interface de Usuário em Tempo Real para o Docker
Instalando COSMIC no Linux Mint
Turbinando o Linux Mint: o poder das Nemo Actions
Inteligência Artificial no desenvolvimento de software: quando começar a usar?
O widget do Plasma 6 Área de Notificação
[Resolvido] Algo deu errado ao abrir seu perfil
Instalar Dual Boot, Linux+Windows. (12)
Problemas com o "startx&... no Slackware (10)
Conselho distribuiçao brasileira (8)
Atalho no Linux Mint não aparece menu de troca de monitores (0)









