les 11 mois qui précédent un mois donné

Salut,
J'ai besoins d'une fonction qui retourne les 11 mois ainsi que leur année qui précédent un mois donné.
par exemple 10/2009 doit retourner :11/2008,12/2008, ... ,10/2009

merci d'avance.

Voilà j'ai développé cette fonction ,ça a l’air OK!

Code:

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
 
function getmois(mois, annee)
	nbr_mois_reste = 12-mois
	'c'est un conteur  pour déterminer les mois de l'année précédente
	conteur_mois_prec = 12-nbr_mois_reste + 1
	string_mois = ""
	int_annee = ""
	if nbr_mois_reste >0 then
		annee_prec = annee-1
		string_moi_1 =""
		for i=1 to mois 
			string_mois_1 = string_mois_1 & i&"|"& annee &"#"
		next
		string_mois_0 =""
		for j=conteur_mois_prec to 12 
			string_mois_0 = string_mois_0 & j&"|"& annee_prec &"#"
		next
		string_mois = string_mois_0&""&string_mois_1
	else
		for i=1 to 12 
			string_mois = string_mois & i&"|"& annee &"#"
		next
	end if
	getmois = string_mois
end function

Par exemple pour getmois(8,2009) elle retourne ce résultat :

Citation:

9|2008#10|2008#11|2008#12|2008#1|2009#2|2009#3|2009#4|2009#5|2009#6|2009#7|2009#8|2009#

Je ne voudrais pas dire de bêtise, mais il existe des fonctions de manipulation de date en VBscript...

:mrgreen:

Merci Poumtschak, pour l'information.