OBTENIR
olilefou
-
16 août 2001 à 09:49
malhivertman1 Messages postés 489 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 22 novembre 2007 - 19 déc. 2005 à 09:21
malhivertman1 Messages postés 489 Date d'inscription mardi 16 novembre 2004 Statut Membre Dernière intervention 22 novembre 2007 - 19 déc. 2005 à 09:21
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/1787-obtenir
https://codes-sources.commentcamarche.net/source/1787-obtenir
19 déc. 2005 à 09:21
b = dateadd.......
mais si je prend ta fonction complete non
19 déc. 2005 à 09:11
12 juil. 2005 à 15:25
Public Function DebutSemaine(Dte As Date) As Date
DebutSemaine = DateAdd("d", -(Weekday(Dte, vbMonday) - 1), Dte)
End Function
Public Function FinSemaine(Dte As Date) As Date
FinSemaine = DateAdd("d", -1, DebutSemaine(Dte))
End Function
16 août 2001 à 09:53
Function TestPerDate(Period As Date)
MonDate = Period - Weekday(Period, 2) + 1
SunDate = MonDate + 6
End Function
16 août 2001 à 09:49
2: essaille ça
Function TestPerDate(Period As Date)
MonDate = Date - Weekday(Date, 2) + 1
SunDate = MonDate + 6
End Function