application pour microsoft visual basic 2010 EXPRESS Fermé

Question

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

bendrop · Answer

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.

Kalissi · Answer

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

Application pour microsoft visual basic 2010 EXPRESS

2 réponses

Discussions similaires