Discussion :

[leeloo95]

Bonjour, je reviens à l'attaque avec mon timer

comme dans le titre, j'aimerais retirer les secondes à mon datesystem...

Voilà ma situation : Avec un timer qui à un interval de 60 000 millisecondes, je vérifie que je n'ai pas une nouvelle demande en attente de prise en compte: si oui alors j'affiche Date OK si non j'affiche Date KO (en vrai dans mon projet je génère une alerte mail, mais j'ai simplifié mon code). Pour cela je charge toutes mes date de demande au format JJ/MM/AAAA HH/MM dans une listbox (ListBoxDatedemande). Mon problème c'est que mon dateandtime.now() est au format JJ/MM/AAAA HH/MM/SS... ainsi il me dit à chaque fois que ma date est KO, étant donné qu'il y a ces foutu secondes.

Code Visual Basic :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 'Toutes les 60 secondes on vérifie qu'il y a pas une demande en attente de prise en compte depuis plus de 15 mn
        Dim dateattentepriseencompte As String = DateAdd(DateInterval.Minute, -15, DateAndTime.Now)
        For i As Integer = 0 To ListBoxDatedemande.Items.Count - 1
            If ListBoxDatedemande.Items.Item(i) = dateattentepriseencompte Then
                MsgBox("DATE OK")
            Else : MsgBox("DATE KO")
            End If
        Next
'Fin Toutes les 60 secondes on vérifie qu'il y a pas une demande en attente de prise en compte depuis plus de 15 mn

Je voudrais donc pouvoir retirer les secondes à mon DateandTime ... j'attends vos proposition avec impatience

[Pol63]

y a des dizaines de solutions (voir les méthode et function sur date, comme par exemple addseconds en lui donnant le nombre de secondes)

sinon au lieu de = tu peux mettre > c'est plus simple et plus logique

[leeloo95]

addseconds, peut me permettre de mettre ma datesystem au format JJ/MM/AAAA HH/MM (rétirer les secondes)?

Pour le > , le problème c'est qu'une fois que la date de ma demande passe au dessus de ma date system, j'aurais toutes les 60 secondes le message OK ... alors que je veux vérifer toutes les 60 secondes si ma condition est rempli et ne renvoyer qu'une seul fois mon alerte message OK : d'ou mon = qui me semble indispensable...

[Pol63]

si tu as une date qui as toujours 0 en secondes et l'autre que ca varie mais que tu ne voudrais pas gérer les secondes, tu fais addseconds du nombre de secondes contenu dedans, ca ramènera les secondes à 0 et donc tu pourras comparer

sinon tu peux aussi faire comparer les date.tostring avec un format sans les secondes

[leeloo95]

Merci de ton aide :

j'ai trouvé cette solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim test As String = DateAndTime.Second(DateAndTime.Now)
        Dim resultat As String = DateAdd(DateInterval.Second, -test - 1, DateAndTime.Now)
        MsgBox(resultat)

sa me retourne mes secondes à :00

Que pense tu de ma solution?

[leeloo95]

Bon ben je fait comme sa :

Je récupère les secondes de mon Dateandtime.now()
Je les retire à ma date system pour obtenir un dateandtime au format JJ/MM/AAAA HH/MM/00
et je rejoute 15 mn.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim time_second As String = DateAndTime.Second(DateAndTime.Now)
        Dim date_second_zero As Date = DateAdd(DateInterval.Second, -time_second, DateAndTime.Now)
        Dim dateattentepriseencompte As String = DateAdd(DateInterval.Minute, -15, date_second_zero)
        MsgBox(dateattentepriseencompte)
        For i As Integer = 0 To ListBoxDatedemande.Items.Count - 1
            If ListBoxDatedemande.Items.Item(i) = dateattentepriseencompte Then
                MsgBox("DATE OK")
            Else : MsgBox("DATE KO")
            End If
        Next

Merci de ton aide pol63