URGENT Expert demandé ( Date, trouver le début de la semaine )Résolu

Question

Voici mon probl&#232;me,
 
Je veux savoir d'Apres une date X quand &#233;tait le d&#233;but de cette semaine.

Ex :

On est le 27 janvier 2005 et je veux imprimer le rapport de la semaine ... Comment trouver le Lundi ?



LundiDay = Day(Now) - Weekday(Now, vbMonday) + 1

J'ai trouv&#233; le 24 lundi good. Sauf que si Ex: vendredi le 2 octobre XXX .. la ca fonctionne plus il me retourne une valeur n&#233;gative.

Avez vous une id&#233;e de comment coder cela sans tous faire a la main ? merci

Nightcourrier

cs_CanisLupus · Accepted Answer

Essaie &#231;a, chez moi &#231;a marche :

MsgBox DateAdd("w", 1 - DatePart("w", "02/10/2005", vbUseSystemDayOfWeek), "02/10/2005")

Cordialement, CanisLupus

AdilELHASSOUNI · Answer

voila une fonction qui peut faire l'affaire !!
Public Function DebutSemaine(valDate As String) As Date
Dim da As Long
Dim nbrj As Long
Dim varDate As Date
If IsDate(valDate) Then
    varDate = CDate(valDate)
    da = Weekday(varDate)
    If da = 1 Then
        nbrj = 1
    ElseIf da > 4 Then
        nbrj = 9 - da
    Else
        nbrj = 2 - da
    End If
    DebutSemaine = varDate + nbrj
Else
    Err.Raise 12345, , "Valeur n'est pas de type Date"
End If
End Function

bonne chance

Gobillot · Answer

Dim j        As Integer
    Dim dt       As Date
    Dim LundiDay As Date


    dt = "02/10/2004"


    j = 2 - Weekday(dt)    If j 1 Then j -6
    LundiDay = dt + j

Daniel

Nightcourrier · Answer

CanisLupus hummm... G&#201;NIAL !!! :) :)

rien d'autre a dire ...

P.S Merci au autre, mais j'ai utilis&#233; la plus courte.

Nightcourrier

Gobillot · Answer

LundiDay = dt - Weekday(dt, vbMonday) + 1

Daniel

Gobillot · Answer

encore plus court
LundiDay = dt - Weekday(dt, 0) + 1
toujours plus court

LundiDay = dt - (dt + 5) Mod 7

Daniel

URGENT Expert demandé ( Date, trouver le début de la semaine )

6 réponses

Discussions similaires