Datas por extenso

Já precisou escrever datas por extenso? A pequena função fDatExt(), abaixo pode resolver o problema. O resultado pode ser visto nas imagens abaixo:






















No fonte abaixo, substitua dDatabase, por sua variável (do tipo data):

 #include "protheus.ch"  
 user function fDataExt()  
   msgalert(u_fDatExt(dDataBase, .t.))  
   msgalert(u_fDatExt(dDataBase, .f.))  
 return  
 user function fDatExt(dParDat, lParAbr)  
   local cRetDat := ""  
   if lParAbr  
     cRetDat += cValToChar(day(dParDat))  
     cRetDat += " de "  
     cRetDat += mesextenso(dParDat)  
     cRetDat += " de "  
     cRetDat += cValToChar(year(dParDat))  
   else  
     cRetDat += capital(extenso(day(dParDat), .t.))  
     cRetDat += " de "  
     cRetDat += mesextenso(dParDat)  
     cRetDat += " de "  
     cRetDat += capital(extenso(year(dParDat), .t.))  
   endif  
 return cRetDat  

Veja também: Extenso e Funções de Data