L'auteur
eric leissler
 France
Membre Simple
# 0000002784
enregistré le 06/03/2010
http://www.aumeric.fr
68 ans
LEISSLER Eric
85290 MORTAGNE SUR SEVRE
de la société AUMERIC LOGICIELS
 Fiche personnelle
 Note des membres
pas de note
|
Contributions > 01 - PRG : Programmation > Calculs de clefs et Checksums (rib, iban, ...)
calcul d'ancienneté en lettres
# 0000000736
ajouté le 20/01/2010 12:32:50 et modifié le 20/01/2010
consulté 9222 fois
Niveau
débutant
 Le téléchargement des pièces jointes est limité aux membres
Veuillez vous identifier ou vous inscrire si vous n'avez pas encore de compte ...
|
| Description |
|---|
bonjour à toutes et à tous
voici une petite fonction permettant de retourner le nombre d'années de de mois entre deux dates, et le tout en lettres
Bonne programmation à tous
= anciennete(ctod("01/01/2000") , ctod(18/02/2010)) renverra 10 ans et un mois
= anciennete(date_debut,date()) vous renverra l'ancienneté depuis à la date de début à ce jour
Aumeric
|
| Code source : |
|---|
FUNCTION anciennete(datedeb,cejour)
* auteur : Aumeric logiciels 18/01/2010
*= anciennete(ctod("01/01/2000") , ctod(18/02/2010)) renverra 10 ans et un mois
*
*= anciennete(date_debut,date()) vous renverra l'ancienneté depuis à la date de début à ce jour
LOCAL nbjour as Integer ,nbmois as Integer
m.nbjour= m.cejour - m.datedeb
m.nban=INT(m.nbjour/365)
m.nbmois =(YEAR(m.cejour)-YEAR(m.datedeb))*12+MONTH(m.cejour)-MONTH(m.datedeb) - (m.nban*12)
m.retour=el_callet(m.nban," an")+" "+ IIF(m.nbmois>0," et " +el_callet(m.nbmois,IIF(nbmois>1," moi"," Mois")),"")
RETURN retour
Function el_callet(chiffre,monai)
Local i as Integer ,T as Integer
Local cChif as string
Local tChif as string
Local aniveau,texte,arangs,amil,aexcep,avcex
If Vartype(monai)="L"
monai="€uros"
Endif
chiffre=Iif(Vartype(chiffre)=="C",Val(chiffre),chiffre)
chiffre=Iif(Vartype(chiffre)=="N".And.chiffre<0,chiffre*-1,chiffre)
cChif=Ltrim(Transform(Round(Iif(Vartype(chiffre)=="C",Val(chiffre),chiffre),2),"999999999999999.99"))
tChif=Left(cChif,Len(cChif)-3)
Dimension aniveau[1,2],amil[5]
Dimension arangs[9,3],aexcep[12,2],avcex[2,2]
texte=""
arangs[1,1]="cent "
arangs[1,2]="dix "
arangs[1,3]="un "
arangs[2,1]="deux cents "
arangs[2,2]="vingt "
arangs[2,3]="deux "
arangs[3,1]="trois cents "
arangs[3,2]="trente "
arangs[3,3]="trois "
arangs[4,1]="quatre cents "
arangs[4,2]="quarante "
arangs[4,3]="quatre "
arangs[5,1]="cinq cents "
arangs[5,2]="cinquante "
arangs[5,3]="cinq "
arangs[6,1]="six cents "
arangs[6,2]="soixante "
arangs[6,3]="six "
arangs[7,1]="sept cents "
arangs[7,2]="soixante dix "
arangs[7,3]="sept "
arangs[8,1]="huit cents "
arangs[8,2]="quatre vingts "
arangs[8,3]="huit "
arangs[9,1]="neuf cents "
arangs[9,2]="quatre vingt dix "
arangs[9,3]="neuf "
amil[1]=monai
amil[2]="mille"
amil[3]="million"
amil[4]="milliard"
amil[5]="billion"
aexcep[1,1]="dix un"
aexcep[1,2]="onze"
aexcep[2,1]="dix deux"
aexcep[2,2]="douze"
aexcep[3,1]="dix trois"
aexcep[3,2]="treize"
aexcep[4,1]="dix quatre"
aexcep[4,2]="quatorze"
aexcep[5,1]="dix cinq"
aexcep[5,2]="quinze"
aexcep[6,1]="dix six"
aexcep[6,2]="seize"
aexcep[7,1]="vingt un"
aexcep[7,2]="vingt et un"
aexcep[8,1]="trente un"
aexcep[8,2]="trente et un"
aexcep[9,1]="quarante un"
aexcep[9,2]="quarante et un"
aexcep[10,1]="cinquante un"
aexcep[10,2]="cinquante et un"
aexcep[11,1]="soixante un"
aexcep[11,2]="soixante et un"
aexcep[12,1]="soixante onze"
aexcep[12,2]="soixante et onze"
avcex[1,1]="vingts"
avcex[1,2]="vingt"
avcex[2,1]="cents"
avcex[2,2]="cent"
i=1
Do .T.
If i=1
aniveau[1,1]=Right(tChif,Iif(Len(tChif)>2,3,Len(tChif)))
aniveau[1,2]=""
Else
Dimension aniveau[i,2]
aniveau[i,1]=Right(tChif,Iif(Len(tChif)>2,3,Len(tChif)))
aniveau[i,2]=""
Endif
*mi_add2(@aniveau,"",2)
i=i+1
tChif=Left(tChif,Len(tChif)-3)
If Len(tChif)==0
Exit
Endif
Enddo
For i=1 To Alen(aniveau,1)
aniveau[i,1]=Iif(Len(aniveau[i,1])<3,Padl(aniveau[i,1],3,"0"),aniveau[i,1])
For T=1 To Len(aniveau[i,1])
If Substr(aniveau[i,1],T,1)<>"0"
aniveau[i,2]=aniveau[i,2]+arangs[val(substr(aniveau[i,1],T,1)),T]
Endif
Next
If i>1
aniveau[i,2]=aniveau[i,2]+amil[i]+Iif(Val(aniveau[i,1])>1.And.i>2,"s "," ")
Endif
Next
For i=Alen(aniveau,1) To 1 Step -1
texte=texte+aniveau[i,2]
Next
* traite les exceptions
For i=1 To 12
texte=Strtran(texte,aexcep[i,1],aexcep[i,2])
Next i
* aeval(aexcep,{|a|texte:=strtran(texte,a[1],a[2])})
*// enlŠve un mille
texte=Iif(Left(texte,8)="un mille",Right(texte,Len(texte)-3),texte)
*// vingt et cent
For i=1 To 2
texte=Strtran(Left(texte,Len(texte)-4),avcex[i,1],avcex[i,2])+Right(texte,4)
Next
* aeval(avcex,{|a|texte:=strtran(left(texte,len(texte)-4),a[1],a[2])+right(texte,4)})
texte=texte+Iif(Len(Alltrim(texte))>2,;
amil[1]+"s ",;
iif(!Empty(texte),;
amil[1]+" ","zéro "+amil[1]+" "))
texte=texte+Iif(Val(Right(cChif,2))>0,Iif(Val(Right(cChif,2))>1,Right(cChif,2)+" centimes",Right(cChif,2)+" centime"),"")
Return texte
|
| Commentaires |
|---|
|
|
|
|
Retour à la liste
le 21/01/2010,
Bonjour Jean
Je ne sais pas si une classe dans le cas présent est rentable.
la fonction s'execute très vite, même dans un scan. Mais pour une vision scolaire des classes pourquoi pas !
Bonne journée