Discussion :

[tomlev]

Allez, je me risque à faire du LinQ en VB, je ne garantie rien :

T'as raison de pas garantir, parce que c'est pas bon ^^
La syntaxe des expressions lambda en VB est différente (et il manque un ToList) :

Code :

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

    lstPassedHours = lstHours.Where(Function(d) d.CompareTo(Now) < 0).ToList()

(ouais, c'est moche... c'est VB quoi )

[Jean-Philippe André]

Super ca

ce sont effectivement les fonctions à côté desquelles j'étais passé

Code :

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

1
2
3
4
5
6
7
DateNaissance.ToLongDateString        'dimanche 02 décembre 1951
 
DateNaissance.ToShortDateString       '02/12/1951
 
DateNaissance.ToLongTimeString        '11:00:00
 
DateNaissance.ToShortTimeString       '11:00

De plus, je me suis effectivement simplifié la tâche en utilisant le < now comme proposé

[Er3van]

T'as raison de pas garantir, parce que c'est pas bon ^^

Raaaaah, j'y ai presque cru pourtant... et le ToList(), même en C# il serait nécessaire, donc j'ai pas d'excuse !

(ouais, c'est moche... c'est VB quoi )

Tu prêches un convaincu !

[Jean-Philippe André]

J'ajoute pour info le code dans la partie timer que je compte finalement utiliser :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub testtimer() Handles Timer1.Tick
        Dim tmp As Date
        For Each tmp In lstHours
            If tmp < Now Then
                Debug.Print(Now.ToString)
                lstHours.Remove(tmp)
            End If
        Next
    End Sub

je regarde aussi les possiblités de TimeSpan

[tomlev]

J'ajoute pour info le code dans la partie timer que je compte finalement utiliser :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub testtimer() Handles Timer1.Tick
        Dim tmp As Date
        For Each tmp In lstHours
            If tmp < Now Then
                Debug.Print(Now.ToString)
                lstHours.Remove(tmp)
            End If
        Next
    End Sub

Ça va pas marcher : tu peux pas modifier le contenu d'une liste pendant que tu l'énumères, ça provoquera une exception. Il faut passer par une autre liste :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub testtimer() Handles Timer1.Tick
        Dim tmp As New List(Of Date)
        For Each d In lstHours
            If d < Now Then
                Debug.Print(Now.ToString)
                tmp.Add(d)
            End If
        Next
 
        For Each d In tmp
            lstHours.Remove(d)
        Next
    End Sub

[Jean-Philippe André]

Oeuf corse

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub testtimer() Handles Timer1.Tick
        Dim tmp As Date
        Dim lsttmp As New List(Of Date)
 
        For Each tmp In lstHours
            If tmp < Now Then
                Debug.Print(Now.ToString)
                lsttmp.Add(tmp)
            End If
        Next
        Do Until lsttmp.Count = 0
            lstHours.Remove(lsttmp.Item(0))
            lsttmp.Remove(lsttmp.Item(0))
        Loop
    End Sub

[tomlev]

Quel est l'utilité de ça ?

Code :

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

1
2
3
4
        Do Until lsttmp.Count = 0
            lstHours.Remove(lsttmp.Item(0))
            lsttmp.Remove(lsttmp.Item(0))
        Loop

Tu n'as pas besoin de supprimer les éléments de lsttmp, puisque de toutes façons c'est une variable locale qui sera abandonnée à la fin de la méthode.

De plus, pour supprimer l'élément à la position 0, utilise plutôt la méthode RemoveAt, sinon tu fais une recherche linéaire alors que tu connais déjà la position...

Code :

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

lsttmp.RemoveAt(0)

(d'ailleurs il vaut mieux supprimer en commençant par la fin, ça évite de déplacer tous les éléments à chaque fois ; et puis de toutes façons il y a la méthode Clear pour vider la liste )

[Jean-Philippe André]

effectivement, on peut simplifier encore

et donc tu conseillerais un

Code :

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

1
2
3
4
Do Until lsttmp.Count = 0
            lstHours.Remove(lsttmp.Item(0))
            lsttmp.RemoveAt(0)
        Loop

ou bien un

Code :

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

1
2
3
For Each tmp in lsttmp
            lstHours.Remove(tmp)
        Loop

[tomlev]

et donc tu conseillerais un

Code :

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

1
2
3
4
Do Until lsttmp.Count = 0
            lstHours.Remove(lsttmp.Item(0))
            lsttmp.RemoveAt(0)
        Loop

ou bien un

Code :

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

1
2
3
For Each tmp in lsttmp
            lstHours.Remove(tmp)
        Loop

Bah dans mon exemple j'avais utilisé For Each, mon avis sur la question n'a pas changé