Real Software Forums

Private Function TimeDiff(Time1 As String, Time2 As String) As String
  Dim MinsDiff As String
  Dim TheHours As String
  MinsDiff = DateDiff("n", Time1, Time2)
  'If midnight is between times
  MinsDiff = IIf(MinsDiff < 0, MinsDiff + 1440, MinsDiff)
  TheHours = Format(Int(MinsDiff / 60), "00")
  MinsDiff = Format(MinsDiff Mod 60, "00")
  TimeDiff = TheHours & ":" & MinsDiff
End Function


Private Sub Command1_Click()
  Dim x As String
  x = TimeDiff(Text1.Text, Text2.Text)
  MsgBox x
End Sub

Dim Str1$, Str2$, Str3$, Str4$
Text2.Text = DateTime.DateDiff("n", Text1.Text, Label1.Text)

Str1 = Text2.Text \ 60
Str2 = Text2.Text Mod 60
If Str1 > 24 Then
  Text3.Text = "More than a day.."
Else
  Text3.Text = Str1 & " hours & " & Str2 & " minutes"
  Text3.Text = Format(Text3.Text, "hh:mm")
  If Val(Text2.Text) > 480 Then
    Label2.Caption = Text2.Text - 480
    Str3 = Label2.Caption \ 60
    Str4 = Label2.Caption Mod 60
    Text4.Text = Str3 & " hours & " & Str4 & " minutes"
  End If
End If

Function MinDiff(xSQLDateTime as String) As Integer
  dim base as new date
  dim now as new date
  
  now.SQLDateTime = xSQLDateTime
  
  dim diffInSeconds as double = abs( now.totalseconds - base.totalseconds )
  dim minsBetween as integer = diffInSeconds/60
  Return minsBetween
End Function