[VB.NET]retirer les secondes à mon datesystem

Version imprimable

Bonjour, je reviens à l'attaque avec mon timer :oops:

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:

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

25/11/2009, 10h34
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
25/11/2009, 11h10
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...
25/11/2009, 11h14
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

Merci de ton aide :

j'ai trouvé cette solution :
Code:

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?

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:

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