datetimepickerRésolu

Question

je suis nouveau ici et j'ai besoi d'aise svp  voici mon code  le probleme que je rencontre c'est que je veux que lorsque le jour de la reprise du travail tombe en dimanche la date s'incremente automatiquement par  un jour et et le jour de reprise sera lundi voici mon code 

    Private Sub nbjr_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nbjr.TextChanged
        'If (DateTimePicker1.Value).DayOfWeek DayOfWeek.Saturday Or (DateTimePicker1.Value).DayOfWeek DayOfWeek.Sunday Then

        'End If
        
        'Dim DateValue As Date
        If (nbjr.Text) <> "" Then
            dtr.Text = (DateTimePicker1.Value.AddDays(CDbl(nbjr.Text))).ToLongDateString

            While (DateTimePicker1.Value.AddDays(CDbl(nbjr.Text))).DayOfWeek = DayOfWeek.Saturday

                dtr.Text = (DateTimePicker1.Value.AddDays(1)).ToLongDateString
            End While
        End If

cs_Jack · Accepted Answer

Bonjour aussi

Quand tu colles du code, merci d'utiliser la coloration syntaxique (3è icone à droite) = plus facile à lire

Comment est dimensionné 'dtr' ? de quel object s'agit-il ?

Ton idée initiale était la bonne :
        Dim maDate As Date
        maDate = DateTimePicker1.Value
        If maDate.DayOfWeek = DayOfWeek.Saturday Then
            maDate = maDate.AddDays(2)
        ElseIf maDate.DayOfWeek = DayOfWeek.Sunday Then
            maDate = maDate.AddDays(1)
        End If
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

ucf662 · Answer

Merci bien pour Votre aide jack mon code marche a merveille mtn merci infiniment

cs_ShayW · Answer

Salut

et j'ai besoi d'aise  
tu as raison il faut etre à l'aise pour coder

NSUADI · Answer

si si 
Ce qui compte,ce n'est pas ce qu'on a mais plutôt ce que l'on fait avec ce qu'on a...

Visual Basic .Net is the best
 and vb6.0

Datetimepicker

4 réponses

Votre réponse

Discussions similaires