Member 12066872 Ответов: 1

Как рассчитать час работы с помощью VB.NET

Как рассчитать рабочий час между двумя датами в формате datetime (dd-MM-yy HH:mm). например, если Onload datetime = 12-01-17 20: 10 и offload datetime = 23-01-17 07:10

Что я уже пробовал:

Dim Date1 As Date
       Dim Date2 As Date
       Dim DateTime As TimeSpan
       Dim diff As Double

       Date1 = txtOnDT1.Value.ToShortDateString
       Date2 = txtOffDT1.Value.ToShortDateString
       DateTime = (Date1 - Date2)
       diff = DateTime.TotalDays

       MsgBox(Date1)
       MsgBox(Date2)
       MsgBox(diff)

1 Ответов

Рейтинг:
2

OriginalGriff

Попробуйте использовать:

diff = DateTime.TotalHours


[редактировать]
Теперь я понял-хватит играть со струнами:
If Not DateTime.TryParse(txtOnDT1.Text, Date1) Then
	' REPORT PROBLEM TO USER
	Return
End If
If Not DateTime.TryParse(txtOffDT1.Text, Date2) Then
	' REPORT PROBLEM TO USER
	Return
End If
DateTime = (Date1 - Date2)
diff = DateTime.TotalHours
Или используйте свойство Value напрямую, если это DateTimePickers (и в этом случае измените имена!)
[/редактировать]