Calcular Datas No Access VBA

[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

[João.Neto]

Tenta o seguinte:

total_dias = DateDiff("d",data1,data2)

Editado Março 19, 2011 por João.Neto