Calcule d'une date en VB
sandra
-
teebo Messages postés 33570 Date d'inscription Statut Modérateur Dernière intervention -
teebo Messages postés 33570 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
je suis une jeune analyste-programmeur (-se, -atrice, enfin vous voyez quoi), et je me demandais s'il était possible de trouver la date du premier jour d'une semaine à partir du numéro de cette semaine, le tout en VB.
S'il vous plait, aidez une jeune fille en détresse!
je suis une jeune analyste-programmeur (-se, -atrice, enfin vous voyez quoi), et je me demandais s'il était possible de trouver la date du premier jour d'une semaine à partir du numéro de cette semaine, le tout en VB.
S'il vous plait, aidez une jeune fille en détresse!
A voir également:
- Calcule d'une date en VB
- Jm date avis - Forum Consommation & Internet
- Publipostage date en anglais ✓ - Forum Excel
- Jm date - Forum Consommation & Internet
- Comment calculer une moyenne - Guide
- Jm date désabonnement ✓ - Forum Consommation & Internet
2 réponses
Salut, essaye un truc comme ca en faisant bien gaffe aux histoire de premier jour de la semaine, premiere semaine de l annee et pense aussi que ton programme est plus propres si il marche comme tu veux sur TOUS les reglages de ces parametres (defaut systeme? ou au contraire decider par toi meme pour etre sur...)
Function DateOfFirstDay(MyWeekNumber as integer, MyYear as integer) as date
Dim NewYear as Date
Dim FirstDay as integer
Dim DateFirstDay as Date
NewYear=CDate("01/01/" & MyYear)
FirstDay=DatePart("w",NewYear,vbMonday,vbFirstJan1) 'Par exemple pour les 2 derniers parametres
DateFirstDay=DateAdd("ww",MyWeekNumber,NewYear )
DateOfFirstDay=DateAdd("d",-FirstDay+1,DateFirstDay)
End function
Bon j ai pas tester mais ca devrait vraiment pas etre loin de ca...
ö,ö
\_/
Function DateOfFirstDay(MyWeekNumber as integer, MyYear as integer) as date
Dim NewYear as Date
Dim FirstDay as integer
Dim DateFirstDay as Date
NewYear=CDate("01/01/" & MyYear)
FirstDay=DatePart("w",NewYear,vbMonday,vbFirstJan1) 'Par exemple pour les 2 derniers parametres
DateFirstDay=DateAdd("ww",MyWeekNumber,NewYear )
DateOfFirstDay=DateAdd("d",-FirstDay+1,DateFirstDay)
End function
Bon j ai pas tester mais ca devrait vraiment pas etre loin de ca...
ö,ö
\_/
sandra
Après des heures de recherche (au moins quelques minutes), j'en était arrivé à une réponse similaire. Mais merci beaucoup quand meme.
