afficher le jour des dates

Question

salut je veux creer un code qui lu une serie de date entre date initiale et date finale (par exemple entre 01/06/2007 et 30/11/2007) le programme doit sélectionner les dates dont le jour et "mercredi"
j'ai ellaborer unpetit code mais qui donne le nom du jour  et la date mais quand il changera le mois il commence par le lundi 
comment je peut résoudre se probléme et merci    
 contacter moi :lonasa@hotmail.com
*******************************

Private Sub Command1_Click() 
Dim X As Date 
Dim datei, datef As Date 
I = 1 
ini = InputBox("donner date initiale") 
fi = InputBox("donner date finale") 
    For X = datei To datef 
    
       If Format(Day(X), "dddd") = "mercredi" Then

'affichage dans une grille G
      G.Rows = G.Rows + 1 
    I = I + 1 
    G.Col = 0 
    G.ColWidth(0) = 3000 
    G.Row = I 
    G.Text = (X & Format(Day(X), "dddd")) 
  
       End If 
    Next X 
  
End Sub

Renfield · Answer

Vous êtes ici :
Thèmes / CodeS-SourceS / Le Bar / Discussions libres /

t'est en VB6.... pas en train de causer d'une boite de nuit...

Renfield
Admin CodeS-SourceS- MVP Visual Basic

jmfmarques · Answer

et en VB6, on regarde l'utitisation de Weekday dans son aide en ligne...ce sera un bon début, ma foi....

Renfield · Answer

bon conseil, jmfmarques, sinon, ce ne sera pas portable

mercredi en france
wednesday en anglais
credi au Groland...

pas valable de tester des String

cs_JMO · Answer

Bonjour,

Une simple combinaison DateDiff et DatePart permet de selectionner tous les mercredis situés entre les 2 dates.

date_deb = CDate("01/06/2007")
date_fin = CDate("30/11/2007")
For i=0 To DateDiff("d",date_deb, date_fin)    If DatePart("w",date_deb + i) vbWednesday Then resultat resultat &vbCr& date_deb + i
Next 
MsgBox resultat

jean-marc

cs_JMO · Answer

Re,

Ou

date_deb = CDate("01/06/2007")
date_fin = CDate("30/11/2007")
For i=0 To DateDiff("d",date_deb, date_fin)    If DatePart("w",date_deb + i) vbWednesday Then resultat resultat &vbCr& _
                                    FormatDateTime(date_deb + i,vbLongDate)
Next 
MsgBox resultat

jean-marc

Afficher le jour des dates

5 réponses

Votre réponse

Discussions similaires