Not Sure why i get this typemismatch 13 error

[Siyanna]

Private Sub CommandButton1_Click()
Me.TxtDays.Value = Me.TxtEndDate.Value - Me.TxtStartDate.Value
Me.TxtCons.Value = Me.TxtEndNumber.Value - Me.TxtStartNumber.Value
End Sub

 

[VoG]

Maybe try

Private Sub CommandButton1_Click()
Me.TxtDays.Value = DateValue(Me.TxtEndDate.Value) - DateValue(Me.TxtStartDate.Value)
Me.TxtCons.Value = Val(Me.TxtEndNumber.Value) - Val(Me.TxtStartNumber.Value)
End Sub

 

[Siyanna]

Maybe try

Private Sub CommandButton1_Click()
Me.TxtDays.Value = DateValue(Me.TxtEndDate.Value) - DateValue(Me.TxtStartDate.Value)
Me.TxtCons.Value = Val(Me.TxtEndNumber.Value) - Val(Me.TxtStartNumber.Value)
End Sub

Hi Vog

Am i right in saying Val converts a text string number to number i.e "5" to 5
and datevale converts text string date to number) i.e "12/04/1985" to 12/04/1985?


Thank You

 

[vds1]

You could also validate the entered number (and entered date) by the user before proceeding the calculation.

Isnumeric function in VBA

MS Excel: ISNUMERIC Function (VBA)

Isdate function in VBA

MS Excel: ISDATE Function (VBA)

 

[VoG]

Yes, correct.

 

[Siyanna]

Yes, correct.

Thank U

Just another quick Q

Wht if i wanted to do the opposite and convert number to string, what function would i use instead of Val and Datevalue?

i.e

01/01/2012 to "01/01/2012" and 10 to "10"?

Thanks

 

[VoG]

For a date

=FORMAT(mydate, "dd/mm/yyyy")

For a number

=CStr(mynumber)