Obtenir date de lundi dernier :)

Résolu
EvilGost Messages postés 235 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 mai 2011 - 21 sept. 2004 à 13:12
juvamine Messages postés 468 Date d'inscription vendredi 21 février 2003 Statut Membre Dernière intervention 30 août 2007 - 21 sept. 2004 à 16:35
Bonjour,

J'ai besoin d'une fonction, et je sais qu'elle existe car je l'ai déjà utilisé mais impossible de la retrouver.

Ca permet d'obtenir la date du jour précédent.
Ex, nous sommes jeudi 23, je lui dis que je souhaite obtenir la date du dernier lundi et il me donne le "20 janvier 2004", si nous sommes le lundi 27, il me donnera aussi "20 janvier 2004".

En gros, j'ai besoin de cette fonction pour obtenir la date du dernier lundi a chaque fois que je lance mon prog.

je vous remercie infiniment :)

EvilGost ;)

4 réponses

crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 28
21 sept. 2004 à 13:37
Function GetLastMonday(D As Date) As Date
    If Weekday(D) = vbMonday Then
        GetLastMonday = DateAdd("d", -7, D)
    Else
        GetLastMonday = DateAdd("d", -Weekday(D, vbMonday) + 1, D)
    End If
End Function

Un truc du genre devrait être OK

Christophe R.
3
juvamine Messages postés 468 Date d'inscription vendredi 21 février 2003 Statut Membre Dernière intervention 30 août 2007 2
21 sept. 2004 à 14:47
DernierLundi = Date - Weekday(Date, vbMonday) - 6

ossi
a+
juva

Retrouvez une équipe de développeurs confirmés sur le tchate:
serveur : bastia.zefunChat.net
port : 6667
chan : #programmation
0
EvilGost Messages postés 235 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 16 mai 2011 2
21 sept. 2004 à 15:05
Non, juvamine, ca ne fonctionne pas car si l'on est le mardi 21, cela nous donne le lundi 13 au lieu du 20...ca revient une semaine en arriere.
Par contre, merci beaucoup crenaud76, ta fonction fonctionne impeccablement ;)

Mille mercis :)

EvilGost ;)
0
juvamine Messages postés 468 Date d'inscription vendredi 21 février 2003 Statut Membre Dernière intervention 30 août 2007 2
21 sept. 2004 à 16:35
dsl :/
c un truc ke jutilisais c en effet pour avoir la date du lundi de la semaine précédente, otan pour moi!!

++
juva

Retrouvez une équipe de développeurs confirmés sur le tchate:
serveur : bastia.zefunChat.net
port : 6667
chan : #programmation
0
Rejoignez-nous