Date année antérieur [Résolu]

Messages postés
351
Date d'inscription
samedi 7 février 2004
Statut
Membre
Dernière intervention
6 octobre 2010
- - Dernière réponse : cs_Sator
Messages postés
351
Date d'inscription
samedi 7 février 2004
Statut
Membre
Dernière intervention
6 octobre 2010
- 26 nov. 2007 à 23:46
Bonsoir tous le monde, est-ce que quelqu'un aurait une idée pour mon problème?
J'aimerai la liste des vendredi de mon choix :
exemple: tous les vendredis de l'année 2003 (ce qui représente 52 vendredi)

Bref je ne sais pas trop par où prendre le problème...

Merci à tous

:)Sator :)
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
1855
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
23
3
Merci
 Bonjour à tous,

Cet exemple, issu d'un topic partagé avec jmfmarques (bonsoir Jacques),
affichait à l'origine tous les vendredis d'un mois/année passé en variable.

MsgBox RechercheVendredis(2007)

Function RechercheVendredis(annee)
   mois = 1
   jour = 1
   Do While Year(DateSerial(annee, mois, jour)) = annee
      madate = DateSerial(annee, mois, jour)
      jour = jour + 1
      If WeekDay(madate) = vbFriday Then
         mesdates = mesdates &vbCr& madate
         jour = jour + 6
      End If
   Loop
RechercheVendredis = mesdates
End Function

jean-marc

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 118 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_JMO
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
18
0
Merci
Bonnsoir,

Prends-le par le début (1er vendredi de l'année) et incrémente ensuite de 7 en 7

VB t'offre pour celà beaucoup de petites choses, parmi lesquelle la fonction Weekday.


 


Bonne lecture
Commenter la réponse de jmfmarques
Messages postés
351
Date d'inscription
samedi 7 février 2004
Statut
Membre
Dernière intervention
6 octobre 2010
0
Merci
Je vous remercies infiniment à tous 2, d'avoir pris le temps de répondre à ma demande... ma gratitude est grande, je vous souhaite une bonne semaine.

@+

:)Sator :)
Commenter la réponse de cs_Sator