need to convert time to minutes in userform

[iturnrocks]

I know how to do this in a worksheet:

=(b1-a1)*1440

B1 being the end time and A1 being the start time

I have a userform where the start time and end time are entered in text boxes

txtstart1 and txtend1

I would like the result to show up in txtmin1

Here is my code that doesnt work. I tried to convert code from a non-time sheet of mine. Dim as Integer may be the problem, I just learn as I go, and so far have only dealt with Integers.

Private Sub txtend1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Dim endnum1 As Integer, startnum1 As Integer

    With frmquota
    
    If txtend1.Value = "" Then
        endnum1 = 0
    Else
        endnum1 = txtend1.Value
    End If
    
        If txtstart1.Value = "" Then
        startnum1 = 0
    Else
        startnum1 = txtstart1.Value
    End If
    
    txtmin1.Value = endnum1 - startnum1 * 1440
    
    End With
    
End Sub

Thank you for any help

[shg]

You're missing some parens in the calculation.

What is the format of the data in the textboxes?

[iturnrocks]

time will be entered in the text boxes as (txtstart1) 11:00 (txtend1) 14:00

txtmin1 should then equal 180

ah yes, the parenthesis in the calculation. I havent got that far, I get an error telling me that 11:00 makes a lousy integer.

Heres the actual error I get when I run it

Run-time error '13':

and when I debug, this is highlighted

endnum1 = txtend1.Value

[shg]

That too.

I can't test this at all without making a form, so ...

Private Sub txtend1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim dtEnd   As Date
    Dim dtBeg   As Date

    With frmquota.txtend1
        If .Value = "" Then
            dtEnd = 0
        Else
            If IsDate(.Value) Then
                dtEnd = CDate(.Value)
            Else
                .SetFocus
                MsgBox "Invalid end time!"
            End If
        End If
    End With
    
    With frmquota.txtstart1
        If .Value = "" Then
            dtBeg = 0
        Else
            If IsDate(.Value) Then
                dtBeg = CDate(.Value)
            Else
                .SetFocus
                MsgBox "Invalid start time!"
            End If
        End If
    End With

    txtmin1.Value = (dtEnd - dtBeg) * 1440
End Sub

[iturnrocks]

That works great, thank you very much.