1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68
|
Mois est une structure
Periode est un entier
MtApp1 est un numérique
MtApp2 est un numérique
MtApp3 est un numérique
MtApp4 est un numérique
MtApp5 est un numérique
MtApp6 est un numérique
MtApp7 est un numérique
MtApp8 est un numérique
MtApp9 est un numérique
MtApp10 est un numérique
MtAppAutre est un numérique
MtRec1 est un numérique
MtRec2 est un numérique
MtRec3 est un numérique
MtRec4 est un numérique
MtRec5 est un numérique
MtRec6 est un numérique
MtRec7 est un numérique
MtRec8 est un numérique
MtRec9 est un numérique
MtRec10 est un numérique
MtRecHP est un numérique
MtRecDette est un numérique
tabMonTabMois est un tableau de Mois
//Calcul combien de periodes sont à calculer (une période est un mois (du 1er au dernier jour)) fourchette de dates fixée par l'utilisateur
MonNbPeriode est un entier
MonNbPeriode = DateDifférence(SAI_DatDeb,SAI_DatFin) / 30
////Recup annee et mois de la date debut
nMaperiodeAAAA est un entier = dDatDeb .. Année
nMaperiodeMM est un entier = dDatDeb .. Mois
nPeriodeAAjout est un entier
POUR I = 1 A MonNbPeriode
nPeriodeAAjout = nMaperiodeAAAA * 100 + nMaperiodeMM
// Ajoute un nouvel élément à votre tableau
TableauAjouteLigne(tabMonTabMois,[nPeriodeAAjout])
//+ un sur periode pour rubrique suivante
// Attention si changement d'année faire un + sur l'annee et non sur le mois
SI nMaperiodeMM < 12 ALORS nMaperiodeMM = nMaperiodeMM + 1
SI nMaperiodeMM = 12 ALORS
nMaperiodeMM = 01
nMaperiodeAAAA = nMaperiodeAAAA + 1
FIN
FIN
FIN |
Partager