leandro.athlos

Bom dia Fiz esse calculo para dar a subtração de datas em dias, mas preciso de uma ajuda, quando aperto o botão está dando erro O que eu preciso, preciso subtrair duas caixas de texto com datas e retornar o valor em outra caixa de texto, se possivel sem a ajuda de botão Private Sub bot_Calcula_Click() Dim data1 As Date Dim data2 As Date Dim total_dias As String data1 = cb_data_Acident.Text data2 = cb_data_retorn.Text total_dias = (data1 - data2) MsgBox (total_dias) End Sub