Data Extenso
Publicado por Douglas Vigliazzi 16/12/2002
[ Hits: 7.158 ]
Script que escreve a data por extenso.
function DIAEXTENSO($data) {
// Autor: Vilson Cristiano Gärtner - vgartner@univates.br
if($data) {
$Dia = substr($data, 0, 2);
$Mes = substr($data, 3, 2);
$Ano = substr($data, 6, 4);
switch($Dia) {
case "01":
$Extenso = "PRIMEIRO ";
break;
case "02":
$Extenso = "DOIS ";
break;
case "03":
$Extenso = "TRÊS ";
break;
case "04":
$Extenso = "QUATRO ";
break;
case "05":
$Extenso = "CINCO ";
break;
case "06":
$Extenso = "SEIS ";
break;
case "07":
$Extenso = "SETE ";
break;
case "08":
$Extenso = "OITO ";
break;
case "09":
$Extenso = "NOVE ";
break;
case "10":
$Extenso = "DEZ ";
break;
case "11":
$Extenso = "ONZE ";
break;
case "12":
$Extenso = "DOZE ";
break;
case "13":
$Extenso = "TREZE ";
break;
case "14":
$Extenso = "QUATORZE ";
break;
case "15":
$Extenso = "QUINZE ";
break;
case "16":
$Extenso = "DEZESSEIS ";
break;
case "17":
$Extenso = "DEZESSETE ";
break;
case "18":
$Extenso = "DEZOITO ";
break;
case "19":
$Extenso = "DEZENOVE ";
break;
case "20":
$Extenso = "VINTE ";
break;
case "21":
$Extenso = "VINTE E UM ";
break;
case "22":
$Extenso = "VINTE E DOIS ";
break;
case "23":
$Extenso = "VINTE E TRÊS ";
break;
case "24":
$Extenso = "VINTE E QUATRO ";
break;
case "25":
$Extenso = "VINTE E CINCO ";
break;
case "26":
$Extenso = "VINTE E SEIS ";
break;
case "27":
$Extenso = "VINTE E SETE ";
break;
case "28":
$Extenso = "VINTE E OITO ";
break;
case "29":
$Extenso = "VINTE E NOVE ";
break;
case "30":
$Extenso = "TRINTA ";
break;
case "31":
$Extenso = "TRINTA E UM ";
break;
default:
$Extenso = "DIA INVÁLIDO. INFORME DD/MM/AAAA ";
break;
}
switch($Mes) {
case "01":
$Extenso = $Extenso . "DE JANEIRO DE ";
break;
case "02":
$Extenso = $Extenso . "DE FEVEREIRO DE ";
break;
case "03":
$Extenso = $Extenso . "DE MARÇO DE ";
break;
case "04":
$Extenso = $Extenso . "DE ABRIL DE ";
break;
case "05":
$Extenso = $Extenso . "DE MAIO DE ";
break;
case "06":
$Extenso = $Extenso . "DE JUNHO DE ";
break;
case "07":
$Extenso = $Extenso . "DE JULHO DE ";
break;
case "08":
$Extenso = $Extenso . "DE AGOSTO DE ";
break;
case "09":
$Extenso = $Extenso . "DE SETEMBRO DE ";
break;
case "10":
$Extenso = $Extenso . "DE OUTUBRO DE ";
break;
case "11":
$Extenso = $Extenso . "DE NOVEMBRO DE ";
break;
case "12":
$Extenso = $Extenso . "DE DEZEMBRO DE ";
break;
default:
$Extenso = $Extenso . "MÊS INVÁLIDO. INFORME DD/MM/AAAA ";
break;
}
switch($Ano) {
case "1998":
$Extenso = $Extenso . "UM MIL NOVECENTOS E NOVENTA E OITO";
break;
case "1999":
$Extenso = $Extenso . "UM MIL NOVECENTOS E NOVENTA E NOVE";
break;
case "2000":
$Extenso = $Extenso . "DOIS MIL";
break;
case "2001":
$Extenso = $Extenso . "DOIS MIL E UM";
break;
case "2002":
$Extenso = $Extenso . "DOIS MIL E DOIS";
break;
case "2003":
$Extenso = $Extenso . "DOIS MIL E TRÊS";
break;
case "2004":
$Extenso = $Extenso . "DOIS MIL E QUATRO";
break;
default:
$Extenso = $Extenso . "ANO INVÁLIDO OU NÃO SUPORTADO. INFORME DD/MM/AAAA ";
break;
}
return $Extenso;
}
else
return $data;
}
Cotação do Dólar (segunda edição)
Squid - Bloqueio e liberação de páginas em PHP
Cinnamon seria a aposta acertada frente às outras interfaces gráficas mais populares?
KDE Plasma - porque pode ser a melhor opção de interface gráfica
Gentoo: detectando impressoras de rede e como fixar uma impressora por IP
Como o GNOME conseguiu o feito de ser preterido por outras interfaces gráficas
Por que sua empresa precisa de uma PKI (e como automatizar EMISSÕES de certificados via Web API)
Instalando NoMachine no Gentoo com Systemd (acesso Remoto em LAN)
Vou destruir sua infância:) (8)
Interface gráfica com problema (2)
Instalar Linux em notebook Sony Vaio VPCEG13EB (13)









