Discussion :

[seankeane]

Bonjour,
Je souhaite, entre 2 dates afficher chaque trimestre.
merci.

[Invité]

Bonjour,
Je souhaite, entre 2 dates afficher chaque trimestre.
merci.

Bonjour, je ne comprends pas votre demande, pourriez vous nous donner un exemple concret sur ce que vous voulez faire et ce que vous voulez obtenir

[seankeane]

En effet, j'aimerai pouvoir compter les trimestres entre 2 dates
par exemple:
date de départ: 01/01/2016
01/03/2016
01/06/2016
date de fin: 01/09/2016

[tbc92]

C'est quand même symptomatique. tu poses une question... normalement, tu as un peu réfléchi à la question, et tu nous parles du 1er mars comme début de trimestre ???
Le 2ème trimestre ne commence pas le 1er mars, mais le 1er avril.

[Narwe]

Je part du principe que les trimestre ne sont pas forcément ceux d'une année civile.
Si c'est une application scolaire, on peut imaginer que l'année n'est découpé qu'en 3 trimestres par exemple.
Je part du principe que tous les jours d'un même mois sont sur le même trimestre (ce qui est peut-être faux dans le cas de trimestre scolaire).
Je part du principe que l'application possède déjà une fonction <Trimestre> = DateVersTrimestre(<Date>)

Ma procédure parcourera donc tous les mois entre ces 2 dates (grâce à une variable de type date et en utilisant la propriété ..Mois de ce type de variable).
Pour chacune de ces dates, je recherche le trimestre. Si je n'ai pas déjà noté ce trimetre, je l'ajoute à ma valeur de retour.

[seankeane]

Bonjour,
Voilà mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
gtabDate est une Dates = Table_Paiement
nbMois est un entier = FEN_INT_placement.Durée_Nb_Mois
ddateDep est une Date = FEN_INT_placement.Date_placement
ddatefin est une Date = FEN_INT_placement.Date_fin_echeance

		SI FEN_INT_placement.Combo_echéance = "Unique" ALORS	
		TableAjouteLigne(Table_Paiement,N_placement,Date_echeance,Montant_a_payer,Motif_paiement)
		N_placement = FEN_INT_placement.SAI_N_placement
		Date_echeance = FEN_INT_placement.Date_fin_echeance
		Montant_a_payer = FEN_INT_placement.SAI_Montant_place+FEN_INT_placement.SAI_Benefice_Total
		SI Montant_a_payer = FEN_INT_placement.SAI_Montant_place+FEN_INT_placement.SAI_Benefice_Total ALORS
			Motif_paiement = "Capital + Bénéfice"
		FIN
		
SINON SI FEN_INT_placement.Combo_echéance = "Trimestriel" ALORS	
	POUR i=1 _A_ nbMois		
		TableAjouteLigne(Table_Paiement,N_placement,Date_echeance,Montant_a_payer,Motif_paiement)
                ???????????????????????????????????????????????????????????????????????????????????????????
                 ??????????????????????????????????????????????????????????????
SINON SI FEN_INT_placement.Combo_echéance = "Mensuel" ALORS
		POUR i=1 _A_ nbMois				
			TableAjouteLigne(Table_Paiement,N_placement,Date_echeance,Montant_a_payer,Motif_paiement)
			ddateDep..Mois++
			Date_echeance = ddateDep
			N_placement = FEN_INT_placement.SAI_N_placement	
			Montant_a_payer = (Val(FEN_INT_placement.SAI_Benefices))
			Table_Paiement.N_placement = (Val(FEN_INT_placement.SAI_N_placement))
			
			
			SI ddatefin = Date_echeance ALORS
			Montant_a_payer= (Val(FEN_INT_placement.SAI_Montant_place+FEN_INT_placement.SAI_Benefices))
			Motif_paiement = "Capital + Bénéfices"
			SINON
				Motif_paiement = "Bénéfice"
			FIN
		FIN
	FIN

Donc calculer les échéances trimestrielles là je suis bloqué.