devo sommare una data ed un orario con una lunghezza in secondi (normalmente per vedere se scavallo la mezzanotte).
3 procedure su 4 accettano il codice, questa no!
Public Sub Label_start_time_DblClick()
Dim StartTime As Date
Dim I As Integer
Dim DurataInSecondi As Integer
Dim DataProva As Date
Try StartTime = InputBox("dammi l'orario di inizio delle trasmissioni (in ore:minuti:secondi per esempio 01:35:21)", "Inizio trasmissioni", Label_start_time.Text)
If Error Then
Message.Warning("Il formato orario e' sbagliato, controllate per favore che sia hh:mm:ss", "OK")
Else
If StartTime <> "" Then
Label_start_time.Text = StartTime
'Label_end_time.Tag = Label_end_time.Text
End If
End If
' If ValidateOrario(StartTime) = True Then
' Label_start_time.Text = StartTime
' Endif
'adesso devo incrementare l'orario di inizio delle durate delle clip che sono in lista ed aggiornare la label con l'orario di fine
Label_end_time.Tag = Label_start_time.Text
If ButtonMedia.Count > 0 Then
For i = 0 To ButtonMedia.Count - 1
DurataInSecondi = CInt(ButtonMedia[i].Tag)
Label_end_time.Tag = DateAdd(Label_end_time.Tag, gb.Second, DurataInSecondi)
Next
Endif
Label_end_time.Text = Label_end_time.Tag
If Not (Label_end_time.Text Like "[0-2][0-9]:[0-5][0-9]:[0-5][0-9]") Then
'se c'e' un errore probabilemnte e' perche'ì con questo video si scavalla la mezzanotte! Questo e' L'ULTIMO video che si puo' inserire per questa giornata!!!!
Label_end_time.Text = Day((DateAdd(DateChooser_Giornata.Value, gb.Day, 1))) & "-" & Month((DateAdd(DateChooser_Giornata.Value, gb.Day, 1))) & "-" & Year((DateAdd(DateChooser_Giornata.Value, gb.Day, 1)))
'Label_end_time.Text = Format(DateAdd(DateChooser_Giornata.Value & " " & Label_end_time.Tag, gb.second, Durata), "dd/mm/yyyy hh:nn:ss")
DataProva = DateChooser_Giornata.Day & "/" & DateChooser_Giornata.Month & "/" & DateChooser_Giornata.Year & " " & Label_end_time.Tag
Label_end_time.Background = Color.Red
Button_AddMedia.Enabled = False
Else
Label_end_time.Background = Color.LightForeground
Button_AddMedia.Enabled = True
Endif
Label_end_time.Show
Label_end_time.Tag = Label_end_time.Text
End
e' come se gambas infilasse arbitrariamente robba nei casting delle variabili......
... in allegato un test fatto estraendo pezzi dall'oggetto selettore di date e "acchiappando" in debug cosa ci fa' lui (gambas)
