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é 9287 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 |
|
|
|
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