Application pour microsoft visual basic 2010 EXPRESS

mahjoub123 -  
Kalissi Messages postés 221 Statut Membre -
BONJOUR

je suis en train de développer une application qui se compose de de TEXTBOX; 4 LABELS ET UN COMMANDE BOUTON

l'application fonctionne comme suit
si je saisi en textbox une date correspondante au premier Mardi d'un mois M; ET JE CLIQUE SUR LA COMMANDE BOUTON il doit:
en label1 s'affiche la date de premier mardi du mois M+1
en label2 s'affiche la date de premier mardi du mois M+2
en label3 s'affiche la date de premier mardi du mois M+3
en label4 s'affiche la date de premier mardi du mois M+4

ET
si je saisi en textbox une date correspondante au second Mardi d'un mois M; ET JE CLIQUE SUR LA COMMANDE BOUTON il doit:
en label1 s'affiche la date de second mardi du mois M+1
en label2 s'affiche la date de second mardi du mois M+2
en label3 s'affiche la date de second mardi du mois M+3
en label4 s'affiche la date de second mardi du mois M+4

ET
si je saisi en textbox une date correspondante au TROISIÈME Mardi d'un mois M; ET JE CLIQUE SUR LA COMMANDE BOUTON il doit:
en label1 s'affiche la date de TROISIÈME du mois M+1
en label2 s'affiche la date de TROISIÈME mardi du mois M+2
en label3 s'affiche la date de TROISIÈME mardi du mois M+3
en label4 s'affiche la date de TROISIÈME mardi du mois M+4

ET
si je saisi en textbox une date correspondante au QUATRIÈME Mardi d'un mois M; ET JE CLIQUE SUR LA COMMANDE BOUTON il doit:
en label1 s'affiche la date de QUATRIÈME du mois M+1
en label2 s'affiche la date de QUATRIÈME mardi du mois M+2
en label3 s'affiche la date de QUATRIÈME mardi du mois M+3
en label4 s'affiche la date de QUATRIÈME mardi du mois M+4

ET LORSQUE JE SAISI UNE DATE CORRESPONDANT AU CINQUIÈME MARDI DU MOIS M, SE CONSIDÈRE COMME LE PREMIER MARDI DU M+1

(exemple)
si je saisi en texbox la date de 30/05/2017 CORRESPONDANTE AU 5EME MARDI; l’application considère cette date comme si j'ai saisi la date de 06/06/2017 (premier mardi de mois 6) et le premier label affiche la date de premier mardi de mois 7 et ainsi de suite

merci d'avance

2 réponses

  1.
    bendrop Messages postés 12658 Date d'inscription   Statut Contributeur Dernière intervention   8 527
     
    Bonsoir,

    Je ne suis pas développeur mais après tout ce laïus, quelle est la question ?

    Bav.

    Ps: Éviter d'écrire en majuscule = crier.
    1
  2. Kalissi Messages postés 221 Statut Membre 20
     
    Bonjour,

    Exemple (Affichage dans des texteboxs, mais c'est pareil pour des labels).

     

        Private Sub btnAfficheDate_Click(sender As Object, e As EventArgs) Handles btnAfficheDate.Click

            Dim DateSaisie As Date = System.DateTime.Now

            If Not (String.IsNullOrEmpty(Me.txtDateSaisie.Text)) Then
                If (Date.TryParse(Me.txtDateSaisie.Text, DateSaisie)) Then
                    ' Pour l'ajout d'un jour
                    Me.txtDatePlusUn.Text = (DateSaisie.AddDays(1)).ToShortDateString
                    Me.txtDatePlusDeux.Text = (DateSaisie.AddDays(2)).ToShortDateString
                    Me.txtDatePlusTrois.Text = (DateSaisie.AddDays(3)).ToShortDateString
                    Me.txtDatePlusQuatre.Text = (DateSaisie.AddDays(4)).ToShortDateString
                    ' Pour l'ajout d'un mois
                    Me.txtDatePlusUn.Text = (DateSaisie.AddMonths(1)).ToShortDateString
                    Me.txtDatePlusDeux.Text = (DateSaisie.AddMonths(2)).ToShortDateString
                    Me.txtDatePlusTrois.Text = (DateSaisie.AddMonths(3)).ToShortDateString
                    Me.txtDatePlusQuatre.Text = (DateSaisie.AddMonths(4)).ToShortDateString
                Else
                    MessageBox.Show("Date de saisie invalide !")
                End If
            End If

        End Sub


    K
    0