Private Sub Test
Dim A As String = "14/01/2022 13:40"
Dim B As String = "15/01/2022 13:45"
DateTime.DateFormat = "dd/MM/yyyy HH:mm"
Dim lngA As Long = DateTime.DateParse(A)
Dim lngB As Long = DateTime.DateParse(B)
Log(DateUtils.PeriodBetween(lngA, lngB).Days)
Log(DateUtils.PeriodBetween(lngA, lngB).Minutes)
End Sub
Private Sub Test
Dim A As String = "14/01/2022 13:40"
Dim B As String = "15/01/2022 13:45"
DateTime.DateFormat = "dd/MM/yyyy HH:mm"
Dim lngA As Long = DateTime.DateParse(A)
Dim lngB As Long = DateTime.DateParse(B)
Log(DateUtils.PeriodBetween(lngA, lngB).Days)
Log(DateUtils.PeriodBetween(lngA, lngB).Minutes)
End Sub
Private Sub Test(DateA As String, DateB As String) As String
DateTime.DateFormat = "dd/MM/yyyy HH:mm"
Dim lngA As Long = DateTime.DateParse(DateA)
Dim lngB As Long = DateTime.DateParse(DateB)
Dim Hours As Int = DateUtils.PeriodBetween(lngA, lngB).Hours
If Hours = 0 Then Hours = 24
Dim Mins As Int = DateUtils.PeriodBetween(lngA, lngB).Minutes
Return NumberFormat(Hours, 2, 0) & ":" & NumberFormat(Mins, 2, 0)
End Sub
Private Sub Test(DateA As String, DateB As String) As String
DateTime.DateFormat = "dd/MM/yyyy HH:mm"
Dim lngA As Long = DateTime.DateParse(DateA)
Dim lngB As Long = DateTime.DateParse(DateB)
Dim Hours As Int = DateUtils.PeriodBetween(lngA, lngB).Hours
If Hours = 0 Then Hours = 24
Dim Mins As Int = DateUtils.PeriodBetween(lngA, lngB).Minutes
Return NumberFormat(Hours, 2, 0) & ":" & NumberFormat(Mins, 2, 0)
End Sub
Ok quindi bisogna praticamente comporlo, non c'è modo di trovarlo con between... E se fosse 26:05? Quindi i giorni in ore? Se non lascio 00:05 l'importante che gli altri orari escano come 25:00 , 26:00 ecc.