le nombre de fois ou un jour apparait dans une périodeRésolu

Question

je veux avoir le nombre de fois ou un jour apparait dans une p&#233;riode, j'ai un petit programme qui me donne le resultat exacte mais pas quand ce jour que j'ai selectionn&#233; est le d&#233;but du mois de la date de d&#233;but.
**************************************
'dated est la date de d&#233;but 
'datef est la date fin

Sub cal()
Call Convert
k = 1
nb = 0
While (DateAdd("d", k, Dated)) <= Datef
If (Weekday(DateAdd("d", k, Dated)) = CInt(jour)) Then
nb = nb + 1
End If
k = k + 1
Wend
Txtresult = nb
End Sub
*****************************************
Sub Convert()
Select Case jour
Case "Lundi"
jour = 1
Case "Mardi"
jour = 2
Case "Mercredi"
jour = 3
Case "Jeudi"
jour = 4
Case "Vendredi"
jour = 5
Case "Samedi"
jour = 6
End Select
End sub

alors si qlq1 a une suggestion qu'il me la propose ce code doit obligatoirement march&#233; pour mon programme il constitue a peu pr&#233;s 70% de mon travail.

Merci d'avance

Renfield · Accepted Answer

Public Function NbWeekdayInPeriod(ByVal vStartDate As Date, ByVal vEndDate As Date, ByVal vWeekDay As VbDayOfWeek) As Integer
Dim CurrentDate As Date
    If vStartDate <= vEndDate Then
        CurrentDate = vStartDate
        Do
            If WeekDay(CurrentDate) = vWeekDay Then
                NbWeekdayInPeriod = NbWeekdayInPeriod + 1
            End If
            CurrentDate = DateAdd("d", 1, CurrentDate)
        Loop While CurrentDate < vEndDate
    End If
End Function

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

gwoui2 · Answer

J'ai vu 2 erreurs dans ton programme : 
- par d&#233;faut , la fonction Weekday commence au dimanche. Donc en fait tu comptes ici les dimanches au lieu des lundis, les  lundis au lieu des mardis...
Pour corriger le probl&#232;me, il suffit d'indiquer que Lundi est le premier jour de la semaine :
Weekday(DateAdd("d", k, Dated), vbMonday)
- tu initialises le programme avec k 1, donc le premier jour de la plage n'est pas test&#233; ! Il faut donc k 0

Ces 2 points devraient r&#233;soudre ton probl&#232;me.
Par contre, pour &#233;viter des erreurs et rendre le programme plus propre, il serait bien de d&#233;clarer les variables, et d'&#233;viter d'utiliser la m&#234;me variable (jour) successivement pour 2 notions diff&#233;rentes (jour en lettres puis num&#233;ro).

cs_hassen · Answer

commence par k=0

Hassen TUNISIE

PCPT · Answer

salut, tiens, çà me semble OK : Option Explicit ' ' Dim DateD As Date Dim DateF As Date ' ' Private Sub Form_Load() DateD = #4/10/2005# '10 avril DateF = #9/15/2005# '15 sept ' DateD = #10/3/2005# ' DateF = #10/10/2005# Dim sJour As String: sJour = "lundi" Dim Ret As Long Ret = FindNbDay(DateD, DateF, ConvDayInNumber(sJour)) If Ret = -1 Then MsgBox "Jour non-valide!", 32 ElseIf Ret = -2 Then MsgBox "Dates non-valides!", 32 Else MsgBox "Il y a " & Ret & " " & sJour & " dans votre période.", 32 End If Unload Me End Sub ' ' Private Function FindNbDay(dDateDebut As Date, dDateFin As Date, iDay As Integer) As Long If iDay 0 Then FindNbDay -1: Exit Function If dDateFin Coloration syntaxique automatique [AFCK] ++ ps : 70% du boulot? vous être plusieurs? PCPT

gwoui2 · Answer

Re salut

Ah &#231;a fait plaisir de voir du plus beau code ! J'avais pas eu le courage...

Par contre, ton test premier jour est inutile et incorrect :
    'permier jour    If (Format(dDateDebut, "DDDD") iDay) Then lCpt 1
en effet, le test sur le premier jour est fait dans le while, et ton if ne risque pas d'&#234;tre vrai puisque tu compares un string ("lundi") &#224; un integer (iDay=2).
Donc on peut supprimer cette ligne, et tout fonctionnera toujours bien.

PCPT · Answer

re,
en effet, il aurait fallut lireIf (ConvDayInNumber(Format(dDateDebut, "DDDD")) iDay) Then lCpt 1
et qui a &#233;t&#233; ajout&#233; parce que plusieurs tests.....
ligne en effet inutile. merci de ta rectification

PCPT

kokise · Answer

Bonjour les amis d&#233;sol&#233; pour mon retard la cause c'est que j'ai pas internet a la maison c'est pourquoi j'attend l'heure du travail je tiens &#224; vous remerci&#233; tous pour votre aide et maintenant je suis entrain de faire des tests sur ton programme pcpt, je t'en donnerai des nouvelles lorsque je terminerai de torturer ton prog avec mes tests  merci encore.

kokise · Answer

resalut, j'ai pu le test&#233; malheureusement le probl&#232;me c'est que par exemple quand je prend le jour samedi il est le premier jour du mois d'octobre alors du 01/10/2005 au 31/10/2005 y'en a 5 samedi ton programme indique 6, apr&#233;s d'autre essai quand je selectionne un jour et que ce jour l&#224; soit le premier jour du mois sa en rajoute 1, si c'est possible de me rectifier ce petit bug et merci d'avance.

PCPT · Answer

re, j'ai juste enlevé la ligne remarquée par Gwoui2, le code est correct. 5 samedi... tu t'es peut-être trompée en écrivant la date (#mm/dd/yyyy#) Option Explicit ' ' Dim DateD As Date Dim DateF As Date ' ' Private Sub Form_Load() DateD = #10/1/2005# ' 1 oct DateF = #10/31/2005# '31 oct Dim sJour As String: sJour = "samedi" Dim Ret As Long Ret = FindNbDay(DateD, DateF, ConvDayInNumber(sJour)) If Ret = -1 Then MsgBox "Jour non-valide!", 32 ElseIf Ret = -2 Then MsgBox "Dates non-valides!", 32 Else MsgBox "Il y a " & Ret & " " & sJour & " dans votre période.", 32 End If Unload Me End Sub ' ' Private Function FindNbDay(dDateDebut As Date, dDateFin As Date, iDay As Integer) As Long If iDay 0 Then FindNbDay -1: Exit Function If dDateFin Coloration syntaxique automatique [AFCK] PCPT

PCPT · Answer

salut RenFied
MsgBox NbWeekdayInPeriod(DateD, DateF, vbSaturday) retourne 0 pour 1 au 31 oct 2005
PCPT

kokise · Answer

Merci bien pour votre aide c'est bien rassurant de voir qu'il y a des amis qui nous soutiennent lorsqu'on a besoin d'eux Merci encore.

Renfield · Answer

J'ai bien 5... en faisant :

NbWeekdayInPeriod(#10/1/2005#, #10/31/2005#, vbSaturday)

Amusez-vous ! 
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS - MVP Visual Basic

PCPT · Answer

re,
en effet, c'est quand je remplace DateD et DateF, en pla&#231;ant ta fonction apr&#232;s la mienne.

Kokise -> il faut modifier mon ent&#234;te de fonction FindNbDay ByVal si tu la gardes

Private Function FindNbDay(ByVal dDateDebut As Date, ByVal dDateFin As Date, iDay As Integer) 

PCPT

kokise · Answer

Ok je n'oublierai pas de la modifer et merci pour votre attention. A bient&#244;t.

le nombre de fois ou un jour apparait dans une période

14 réponses

Discussions similaires