[VB.NET] Problemi con la somma di ore di lavoro

[SanMichele]

Ciao ragazzi,
per calcolare la differenza tra ore di lavoro utilizzo il seguente codice:

 Dim tstr1 As String = Date.Parse(ComboBox5.Text).Subtract(Date.Parse(ComboBox4.Text)).ToString()
Txt_Diff_Ore.Text = tstr1.Substring(0, tstr1.LastIndexOf(":"c))

ma quando inserisco il seguente codice per SOMMARE le ore mi da errore proprio su "DateAdd":

Txt_Sum_Ore.Text = DateAdd("h", Txt_ora_lunedi.Text, Txt_ora_martedi.Text)

Cosa sto sbagliando?
Grazie
SanMichel

[alka]

ma quando inserisco il seguente codice per SOMMARE le ore mi da errore proprio su "DateAdd":

Txt_Sum_Ore.Text = DateAdd("h", Txt_ora_lunedi.Text, Txt_ora_martedi.Text)

Cosa sto sbagliando?

Sembra che tu stia "sommando delle stringhe": quel .Text deve essere sottoposto a DateTime.Parse per trasformarlo in un valore data/ora sicuro, altrimenti non sono certo di come VB.NET operi di default, oppure non è detto che l'operazione vada a buon fine nel modo che ci si attende.

[SanMichele]

Ciao Alka
studio e ti dico
Grazie infinite

[SanMichele]

Niente da fare non ne vengo fuori

[oregon]

Niente da fare non ne vengo fuori

Quali sono i contenuti dei vari .Text ed esattamente quale errore hai?

[SanMichele]

Ciao oregon e ciao a tutti,
il contenuto delle combo sono delle ore di lavoro che l'utente può scegliere e qui di seguito un esempio:
08:30
09:00
09:30
ecc ecc

L'errore che mi da è che non mi somma correttamente queste ore e non conteggia i minuti
Ho provato anche in questo modo ma non è corretto chiaramente:

Txt_Sum_Ore.Text= Format(Val(ComboBox5.Text) + Val(ComboBox4.Text), "#,##")

Grazie

[optime]

le variabili da sommare debbono essere di tipo Date, non String (e la somma deve finire anch'essa in una variabile di tipo Date)

[SanMichele]

Ok grazie ci provo

[optime]

butta un occhio qui https://dotnetfiddle.net/izyVam

[SanMichele]

Grazie optime,
esempio veloce ma intuitivo. Grazie veramente

Ho fatto una cosa di questo genere, ho cambiato un pò l'impostazione e mi conta anche i secondi che volevo integrare nel codice una volta capito, mi sembra giusto ma ditemi voi, comunque grazie a tutti veramente

Dim date1 As DateTime = ComboBox5.Text"
                Dim date2 As DateTime = ComboBox4.Text"
                Dim date3 As TimeSpan = date1.TimeOfDay + date2.TimeOfDay

                Lbl_sumt_ore.Text = date3.ToString

SanMichele