Paramétrer un DateTimePicker

Version imprimable

27/09/2012, 02h20
Bakkach

Paramétrer un DateTimePicker

Bonjour,
J'ai un problème: Je veux paramétrer la MaxDate et la MinDate d'un Datetimepicker on fonction des données récupérées d'un Combobox & Textbox.
J'explique:

J'ai: - un DateTimePicker1, - un Combobox1, - un Textbox1

- le Combobox1 contient la liste de tout les mois du janvier au décembre(en français).
- le Textbox1 est dédié pour la saisie d'une année.

Voici donc mon objectif:

1 - Choisir un mois dans le Combobox1 (Janvier par exemple)
2 - Saisir une année dans le Textbox1 (2012 par exemple)
3 - Appuyer sur un bouton "BtnValider"
4 - Le DateTimePicker Aura comme MinDate le 1 Janvier 2012 et comme MaxDate le 31 Janvier 2012
J'ai essayé ce truc pour la MinDate:

Code:

DateTimePicker1.MinDate = MonthName(ComboBox1.Text)

mais cela ne marche pas!!
En attente de tout type de proposition et merci beaucoup d'avance..
27/09/2012, 08h29
sinople

Monthname te renvoie le nom du mois en fonction du chiffre (et non l'inverse).

MinDate et MaxDate on besoin d'une variable de type date et non pas un string avec un nom de mois ou un int de 1 à 12. :calim2:

Exemple

Code:

DateTimePicker1.MinDate = New Date(intYear, intMonth, intDay)

Voila maintenant que je recadre un poil ta demande, je te laisse retourner à tes recherches. C'est comme ça que ca rentre...
27/09/2012, 10h36
Bakkach

Code:

DateTimePicker1.MinDate = New Date(intYear, intMonth, intDay)

Merci beaucoup Sinople c'était très utile .. :D (y)

Bonjour,

par exemple :

Code:

1
2
Dim minDate as Date = DateSerial(CInt(Textbox1.Text), Combobox1.SelectedIndex + 1, 1)
Dim maxDate As Date = DateSerial(minDate.Year, minDate.Month, minDate.DaysInMonth)

27/09/2012, 12h51
Bakkach

y'a t-il une méthode pour réinitialiser le datetimepicker?
car si par exemple:
- je mets la mindate du datetimepicker au 1 Janvier 2012 et la maxdate au 31 Janvier 2012 => Si j'essaie de modifier le datetimepicker afin que la mindate soit le 1 mars 2012 et la maxdtate au 31 mars 2012 il ne m'est pas possible de raison que le maxdate était déja fixé sur le 31 janvier 2012 et donc la nouvelle mindate ne peut pas être le 1 Mars 2012.
alors y'at-il une possibilité de réinitialiser le datetimepicker de telle sorte qu'il peut prendre chaque fois une valeur qui lui fixe sur un mois désiré?
27/09/2012, 15h26
gnusti

effectue un test entre les anciennes valeurs et les nouvelles pour savoir dans quel sens effectuer les modifications... ?
27/09/2012, 15h30
sinople

Il suffit d'utiliser les propriétés shared MaximumDateTime et MinimumDateTime de la classe DateTimePicker, représentant les 2 bornes imposées par le système (en aucun cas possible de déterminer une date plus grande ou plus petite que ces valeurs) afin d'élargir au maximum la plage de travail avant de la réduire sur ton nouveau mois.
27/09/2012, 15h41
gnusti

A voir en terme d'optimisation si 4 affectations de dates (max initial, min initial, nouveau max et nouveau min) et plus rapide qu'un if et deux affectations de dates...

Je n'en sais rien... :?

Même si le gain doit pas être flagrant sur ce genre de traitement occasionel, ça reste une question à se poser je pense...
27/09/2012, 17h32
sinople

Au niveau du traitement je ne sais pas.

Au niveau de l'implémentation du code, je pense pouvoir dire sans trop de risque que ma solution est plus rapide...
27/09/2012, 18h35
Bakkach

Citation:

Envoyé par sinople

Il suffit d'utiliser les propriétés shared MaximumDateTime et MinimumDateTime de la classe DateTimePicker, représentant les 2 bornes imposées par le système (en aucun cas possible de déterminer une date plus grande ou plus petite que ces valeurs) afin d'élargir au maximum la plage de travail avant de la réduire sur ton nouveau mois.

Stp, tu peux me donner un exemple comment utiliser cette public shared property? je n'arrive pas a trouver la syntaxe correcte pour la déclarer et la lier au datetimepicker!!
27/09/2012, 21h18
sinople
Pour accéder au propriété shared d'une classe il faut mettre le nom de la classe au lieu du nom de l'instance.

x As y = New y()

Il faut mettre le y et non le x.

Encore que le x fonctionne aussi selon la version de VB et le paramètrage de l'IDE que tu utilise
Code:

1 2 DateTimePicker1.MaxDate = DateTimePicker.MaximumDateTime DateTimePicker1.MinDate = DateTimePicker.MinimumDateTime
27/09/2012, 22h00
Bakkach

ça marche!! Merci bien .. ^^
28/09/2012, 00h40
rv26t

Bonjour,

Citation:

Envoyé par gnusti

A voir en terme d'optimisation si 4 affectations de dates (max initial, min initial, nouveau max et nouveau min) et plus rapide qu'un if et deux affectations de dates...

Je n'en sais rien... :?

Même si le gain doit pas être flagrant sur ce genre de traitement occasionel, ça reste une question à se poser je pense...

3 affectations suffisent.
max initial (passer MaxDate à MaximumDateTime pour être plus précis et ne pas confondre avec une valeur affectée avant)
nouveau min (qui sera forcement plus petit que MaximumDateTime)
nouveau max

Fait le test avec une boucle de 20000 fois, tu auras ta réponse.;)

A+, Hervé.

Bonjour,

Je viens de tester et le If semble plus rapide (la différence est même enorme chez moi 8O )

Un UserForm, un DateTimePicker et un Button :

Code:

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
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim starTTime As Long
        Dim elapsedTime As Long
 
        Dim minDate As Date = DateSerial(2012, 9, 1)
        Dim maxDate As Date = DateSerial(2012, 9, 30)
 
        '''''''''''''''''''''
        '''' SOLUTION 1
        '''''''''''''''''''''
        starTTime = Now.Ticks
        Dim realyMaxDate As Date = DateTimePicker.MaximumDateTime
        For i = 1 To 100000
            DateTimePicker1.MaxDate = realyMaxDate
            DateTimePicker1.MinDate = minDate
            DateTimePicker1.MaxDate = maxDate
        Next
        elapsedTime = Now.Ticks - starTTime
        MsgBox(elapsedTime)
 
        '''''''''''''''''''''
        '''' SOLUTION 2
        '''''''''''''''''''''
        starTTime = Now.Ticks
        For i As Integer = 1 To 100000
            If DateTimePicker1.MinDate > minDate Then
                DateTimePicker1.MinDate = minDate
                DateTimePicker1.MaxDate = maxDate
            Else
                DateTimePicker1.MaxDate = maxDate
                DateTimePicker1.MinDate = minDate
            End If
        Next
 
        elapsedTime = Now.Ticks - starTTime
        MsgBox(elapsedTime)
 
    End Sub

Je pense que ça doit venir de cette date enorme à gérer : 31/12/9998 quand même...

28/09/2012, 09h34
sinople

Citation:

3 affectations suffisent.
max initial (passer MaxDate à MaximumDateTime pour être plus précis et ne pas confondre avec une valeur affectée avant)
nouveau min (qui sera forcement plus petit que MaximumDateTime)
nouveau max

C'est pas faut (voir même tout juste...).

Concernant le teste de performance, je dirais que d'essayer de boucler 10'000 fois pour vérifier s'il y a une différence significative est complétement hors-propos.

Sauf si tu as prévu d'updater 10'000 datetimepicker sur ton application en même temps. Ce genre de comparatif a un sens dans des algo qui tourne en boucle (genre un tri, chargement de donnée, conversion / traitement de donnée, etc).

Effectivement une différence de 1 ms secondes lors d'un click * 10'000 ça fait une différence 10 secondes à la fin. Mais l'utilisateur va appuyer sur ce bouton UNE fois toutes les 15-30 secondes, donc je doute que la millisecondes * 1 soit vraiement significative (donne une impression de blocage de l'interface).

Mais néanmoins je suis près à changer d'avis après publication des résultats par itération.

P.S. Merci d'avoir mis le code du test, on voit clairement les 2 solutions en action. :ccool: J'espère juste que personne ne va faire un copier-coller tel quel dans son projet :mrgreen:
28/09/2012, 09h53
gnusti

C'est ce que je disais dans mon post prédédant :

Citation:

Même si le gain doit pas être flagrant sur ce genre de traitement occasionel, ça reste une question à se poser je pense...

Il faut toujours essayer d'optimiser, c'est un reflexe à prendre...