|
Zdravím přátelé, úspěšně pokračuji se svojí aplikací a došel jsem do části, kdy mám ListBox s několika sloupci. V prvním sloupci je datum - OK v dalších sloupcích je čas (většinou v řádkách minut a sekund) nyní chci udělat součet všech časů v uvedeném sloupci a jelikož je třída DateTime pro mě - nevím proč ale nějak moc složitá, či jsem ji ještě nepřišel na chuť či na kořínek - jak to kdo bere, vyřešil jsem problém prozatím takto:
Dim text1 As Date
Dim hodin As Integer
Dim minut As Integer
Dim vterin As Integer
For x As Integer = 0 To ListView1.Items.Count - 1
text1 = ListView1.Items(x).SubItems(1).Text
vterin += text1.Second
If vterin > 60 Then
vterin = vterin - 60
minut += 1
End If
minut += text1.Minute
If minut > 60 Then
minut = minut - 60
hodin += 1
End If
hodin += text1.Hour
Next
TextBox1.Text = hodin & ":" & minut & ":" & vterin
Takto mi ten kód funguje, ale zdá se mi to takové humpolácké řešení. Měl by někdo nějaký čistší návrh? Předem děkuji.
|