Originariamente inviata da
Olegna1964
Un saluto a tutti i navigatori di questo forum.
Questo è il mio primo messaggio, e spero tanto di non aver sbagliato sezione, altre cose.
Sto cercando di sviluppare un piccolo applicativo in VB Con Visual Studio 2019 che calcola le ore lavorative.
Il mio problema nasce quando con questa formula tento di calcolare le ore notturne, Esempio:
orario inizio 22:00:00 orario Fine (del giorno dopo) 06:00:00, mi restituisce -16:00:00, come posso risolvere questo problema?
FORMULA
Dim orario3 As New System.TimeSpan
Dim orario4 As New System.TimeSpan(7, 15, 0)
Dim x() As String
Dim y() As String
x = Split(TextBox1.Text, ":")
Dim orario1 As New System.TimeSpan(x(0), x(1), x(2))
y = Split(TextBox2.Text, ":")
Dim orario2 As New System.TimeSpan(y(0), y(1), y(2))
orario3 = orario2.Subtract(orario1)
TextBox3.Text = Orario3.ToString()
If orario3 > orario4 Then
TextBox4.Text = (orario3 - orario4).ToString()
TextBox4.BackColor = Color.Red
Else
TextBox4.Text = "no straordinarie"
TextBox4.BackColor = Color.White
End If
Grazie in anticipo per le vostre risposte ed aiuti.