Problème de date avec vb et access

Problème de date avec vb et access - VB/VBA/VBS - Programmation

Marsh Posté le 26-08-2005 à 11:15:51    

Bonjour à tous,
 
Pour une gestion de personnel en entreprise sur access, je cherche à récupérer à partir d'un numéro de semaine du calendrier, la date correspondant au lundi de cette semaine.
Comment puis-je procéder ? je me creuse la tête mais là je ne vois vraiment pas.
Pouvez-vous m'aider ?
 
Exemple : je donne le numéro 34 (celui de cette semaine) et il me renvoie la date du lundi 22/08/2005.
 
Merci infiniment.
 
Seb.

Reply

Marsh Posté le 26-08-2005 à 11:15:51   

Reply

Marsh Posté le 26-08-2005 à 11:25:13    

une petite recherche dans google et voila :
http://www.cpearson.com/excel/DateTimeVBA.htm
 
Monday Of A Given Week Number (WeekStart)
 
This function returns the date of the Monday in a given week number, e.g., the Monday of the 15th week of 1998.  It requires the YearStart function, given above.
 
Public Function WeekStart(WhichWeek As Integer, WhichYear As _
                    Integer) As Date
 
WeekStart = YearStart(WhichYear) + ((WhichWeek - 1) * 7)
 
End Function
 
   
 
First Monday Of The Year (YearStart)
 
The following function was provided by John Green, an Excel MVP from Australia.   It returns the first Monday of the specified year.  This function is used by other functions on this page.
 
Public Function YearStart(WhichYear As Integer) As Date
 
Dim WeekDay As Integer
Dim NewYear As Date
 
NewYear = DateSerial(WhichYear, 1, 1)
WeekDay = (NewYear - 2) Mod 7 'Generate weekday index where Monday = 0
 
If WeekDay < 4 Then
    YearStart = NewYear - WeekDay
Else
    YearStart = NewYear - WeekDay + 7
End If
 
End Function


Message édité par friday_13 le 26-08-2005 à 11:26:06
Reply

Marsh Posté le 26-08-2005 à 11:38:15    

Merci beaucoup !! :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed