*****************************************************
*
*  FR_DATES
*
*  Utilitaire de françisation des  dates
*
*  fonctions dates qui retournent des caractères
*  
*  FR_JOUR()
*  Obtenir le nom du jour de la semaine
*
*  FR_MOIS()
*  Obtenir le nom du mois
*
*  Utilisation :
*  set procedure to "C:\Program Files\dBASE\PLUS\Samples\fr_dates.prg" addi
*  ? fr_jour(date())
*
*  Debuté le 22 fevrier 2010

*


function FR_JOUR
parameters dDate
local nNumJour, cNomJour

nNumJour = dow(dDate)  //  recherche du jour
 Do case               // conversion en toutes lettres
   case nNumJour = 1
        cNomJour = "Dimanche "
   case nNumJour = 2
        cNomJour = "Lundi "              
   case nNumJour = 3
        cNomJour = "Mardi "
   case nNumJour = 4
        cNomJour = "Mercredi "
   case nNumJour = 5
        cNomJour = "Jeudi "              
   case nNumJour = 6
        cNomJour = "Vendredi "
   case nNumJour = 7
        cNomJour = "Samedi "
   case nNumJour = 0    // date vide
        cNomJour = "Date vide"
 Endcase

return cNomJour


function FR_MOIS
parameters dDate
local nMois, cMois

nMois = MONTH(dDate)    // mois
Do case
   case nMois =  1
        cMois = "Janvier"
   case nMois =  2
        cMois = "Février"              
   case nMois =  3
        cMois = "Mars"
   case nMois =  4
        cMois = "Avril"
   case nMois =  5
        cMois = "Mai"              
   case nMois =  6
        cMois = "Juin"
   case nMois =  7
        cMois = "Juillet"
   case nMois =  8
        cMois = "Août"              
   case nMois =  9
        cMois = "Septembre"
   case nMois = 10
        cMois = "Octobre"
   case nMois = 11
        cMois = "Novembre"              
   case nMois = 12
        cMois = "Décembre"
Endcase

return cMois