Discussion :

[mahjoub123]

bonjour

je cherche une aide pour ma petite application concernant l'affichage des dates suite la règle comme suit:
une fonction ou astuce qui me donne si je saisie la date de premier mardi d'un mois quelconque j’obtiens dans le 1er label le premier date du mois suivant et le 2eme label le premier mardi du mois qui suit et ainsi de suite;
et si le mois contient cinq mardi ,ce dernier se considère comme le premier du mois suivant

merci d'avance

[ProgElecT]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    KeyAscii = 0
    If IsDate(Text1.Text) Then
        Dim TheDate As Date, T As Integer
        TheDate = "01/" & Month(Text1.Text) & "/" & Year(Text1.Text)
        Label1.Caption = DateAdd("m", 1, TheDate)
        TheDate = DateAdd("m", 1, TheDate)
        For T = 0 To 7
            If Weekday(DateAdd("d", T, TheDate)) = vbTuesday Then
                Label2.Caption = DateAdd("d", T, TheDate)
                Exit For
            End If
        Next T
    End If
End If
End Sub

[mahjoub123]

Bonjour
Je veux dire si je tape la date du premier mardi d'un mois M qque .j'obtiens en premier label le premier mardi du mois M+1 en label 2 le premie mardi du mois M+2 ainsi de suite. Meme chose pour 2eme et 3eme et 4eme mardi.et si je tape le cinquieme mardi se considere comme le premier
Merci bcp

[ProgElecT]

Salut
Il me semble bien que la réponse proposée contient tout ce qu'il faut pour ton besoin, il te reste à adapter plus finement pour arrivée au meilleur résultat.
En complément, tu peux consulter ce lien: Manipulation de dates
Un début de code de ta par permettra de mieux comprendre le but de ton programme.

[ProgElecT]

Salut

Un dernier coup de pousse, car toujours pas ????
Sur un Form 1 TextBox et 4 Labels (autoSize = true), et ce

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
    KeyAscii = 0
    If IsDate(Text1.Text) Then Affiche CVDate(Text1.Text)
End If
End Sub
 
Private Sub Affiche(UneDate As Date)
Dim TheDate As Date, TheDateFin As Date, T As Integer, U As Integer
 
' 1° jour du mois proposé
TheDate = "01/" & Month(UneDate) & "/" & Year(UneDate)
Label1.Caption = "1° jour du mois proposé: " & TheDate
 
'verifier si le mois contient plus de 4 mardi
TheDateFin = DateAdd("m", 1, TheDate) ' ajoute 1 mois
TheDateFin = DateAdd("d", -1, TheDateFin) ' enleve 1 jour pour avoir le dernier jour du mois proposé
Label2.Caption = "Dernier jour du mois proposé: " & TheDateFin
For T = 0 To Day(TheDateFin)
    If Weekday(DateAdd("d", T, TheDate)) = vbTuesday Then U = U + 1
Next T
Label3.Caption = "Nombre de mardi du mois proposé: " & U
 
If U < 5 Then
    TheDate = DateAdd("m", 1, TheDate) ' ajoute 1 mois au  1° jour du mois suivant le mois proposé
    For T = 0 To 7
        If Weekday(DateAdd("d", T, TheDate)) = vbTuesday Then
            Label4.Caption = "1° mardi du mois suivant le mois proposé: " & DateAdd("d", T, TheDate) ' 1° mardi du mois suivant le mois proposé
            Exit For
        End If
    Next T
    Else
    For T = Day(TheDateFin) To (Day(TheDateFin) - 7) Step -1
        If Weekday(CVDate(T & "/" & Month(TheDateFin) & "/" & Year(TheDateFin))) = vbTuesday Then 'dernier mardi du mois proposé
            Label4.Caption = "Dernier mardi du mois proposé: " & CVDate(T & "/" & Month(TheDateFin) & "/" & Year(TheDateFin))
            Exit For
        End If
    Next T
End If
 
End Sub

2 exemples:
1er, date proposé d'un mois de 4 mardi -------- 2éme, date proposé d'un mois de 5 mardi

[mahjoub123]

bonsoir

merci d'avance pour ton aide;
j'ai essayé sur vb.net ça marche bien mais ce qu'il me reste comme j'ai le dis si je saisi dans textbox une date correspondante au deuxième mardi d'un mois ,j'obtiens en label1 la date de deuxième mardi du mois M+1 et en label2 le deuxième mardi du mois M+2, et en label3 le deuxième mardi du mois M+3 et ainsi de suite

merci d'avance