comparer des dates?

[alex]

bonjour a tous/toutes,

j'ai une librairie en vba qui me permet de generer un calendrier d'evenements en fonction de differents inputs.

je souhaiteraispour optimiser la gestion de ce calendrier

jusqu'a present je n'utilisais cette librairie que pour realiser un calendrier en fonction des jours ouvres d'un seul pays (donc 1 seule convention)

desormais je souhaiterais pouvoir prendre en compte jusqu'a 4 conventions.
il ne faudrait pas que le pc tourne non plus pendant 20 minutes car il y a enciron 2000 cellules a calculer deja pour 1 seul calendrier.

pourriez vous m'eclairer sur le chemin a suivre pour realsier ce calendrierr toue en conservant une vitesse raisonnable svp?

merci de votre coup de main et joyeux noel! )

 

[alex]

en fait je pense qu'il faut que je precise une petite chose:

si une date n'est pas un jour ouvre dans un pays, alors on utilise une convention qui decale au prochain ou au precedent jour ouvre et on affiche le resultat.

je pense que tout le monde aura compris mais vu mon niveau de vba je precise tout de meme ;o)

joyeux noel encore! )

 

[alex]

je pense avoir un debut de solution mais je ne sais pas trop comment faire...

mes calendriers sotn codes comme suit:

Case Is = "HK"
Select Case ActualDate
Case 34701, 34730, 34731, _
34732, 34794, 34803, 34806, 34852, 34869, 34939, 35004, 35058, 35059, _
35065, 35114, 35115, 35116, 35159, 35160, 35163, 35233, 35236, 35303, _
35424, 35425, 35431, 35468, 35471, 35517, 35520, 35590, 35597, 35667, _
35690, 35704, 35713, 35789, 35790, 35796, 35823, 35824, 35825, 35895
FD_IsBusinessDay = 0
Case 35898, 36038, 36069, 36074, 36096, 36154, 36161, 36207, 36208, 36209, _
36252, 36255, 36256, 36329, 36402, 36434, 36521, 36563, 36564, 36621, _
36637, 36640, 36683, 36766, 36782, 36805, 36885, 36886, 36892, 36915, _
36916, 36917, 36986, 36994, 36997, 37067, 37130, 37165, 37166, 37189, _
37250, 37251, 37257, 37299, 37300, 37301, 37344, 37347, 37351, 37494, _
37530, 37543, 37615, 37616, 37622, 37655, 37656, 37729, 37732, 37776, _
37858, 37895, 37980, 37981, 37987, 38008, 38009, 38082, 38086, 38089, _
38160, 38229, 38259, 38261, 38281, 38348, 38392, 38393, 38394, 38436, _
38439, 38447, 38593, 38635, 38712, 38713, 38719, 38747, 38748, 38812, _
38821, 38824, 38868, 38957, 39076, 39077, 39083, 39132, 39133, 39177
FD_IsBusinessDay = 0
Case 39178, 39181, 39252, 39321, 39351, 39356, 39373, 39441, 39442, 39448, _
39485, 39486, 39528, 39531, 39685, 39706, 39722, 39807, 39808, 39814, _
39839, 39840, 39841, 39913, 39916, 39990, 40056, 40087, 40112, 40172, _
40179, 40224, 40225, 40270, 40273, 40274, 40345, 40420, 40444, 40452, _
40466, 40539
FD_IsBusinessDay = 0
End Select


ce qui serait pas mal de faire serait de pouvoir cumuler les 4 calendriers en 1 seul et puis de parcourir les dates
par contre je ne sais pas comment, a partir de mes 4 calendriers (ou 3 ou 2 d'ailleurs) n'en faire qu'un seul. sachant que le code que j'afifche ici est insere dans la librairie...

d'ailleurs sauriez vous me dire pourquoi les "case" dont decoupe (comme dans le'xmple que je donne plus haut) svp ?

 

[alex]

hello,

personne n'a de reponse ou tout le monde prepare la dinde au marrons? ;o)