Application pour microsoft visual basic 2010 EXPRESS

Fermé

mahjoub123 - 23 avril 2017 à 19:04
Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 - 24 avril 2017 à 14:02

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

A voir également:

Application pour microsoft visual basic 2010 EXPRESS
Microsoft 365 basic - Guide
Microsoft visual c++ runtime - Guide
Visual basic download - Télécharger - Langages
Désinstaller microsoft edge - Guide
Télécharger microsoft office 2010 avec clé d'activation gratuit - Télécharger - Sécurité

2 réponses

Réponse 1 / 2

bendrop Messages postés 12484 Date d'inscription jeudi 30 juin 2005 Statut Contributeur Dernière intervention 23 avril 2024 8 227
23 avril 2017 à 19:12

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.

Réponse 2 / 2

Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 20
24 avril 2017 à 14:02

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

Discussions similaires

Site de confiance ou non ?

"Aucune application permettant d'ouvrir cette URL"

Microsoft Visual C++ ? C'est quoi ?

Installer une application non vérifiée Microsoft Store

Discussions similaires

Newsletters