Por favor, me ajudem

Estou tentando fazer um cálculo entre datas, mas acho que o vb está retoanando o valo errado.

 

?datediff(

Por favor me ajudem
Estou tentado fazer um cálculo entre datas, mas acho que o vb esta retornado errado.
?datediff( "d",cdate("23/12/1899 15:20"),cdate("30/12/1899 00:00"))
 7
?cdate("30/12/1899 00:00") - cdate("23/12/1899 15:20:00")
7,63888888888889
Sendo que na minha opnião seria 6,36111111
Grato
Luiz Henrique

Dia 30 as 00:00 já é dia 31!!!

amigo ver se isso serve

 

    Dim dta1 As Date

    Dim dta2 As Date
    total = dta1 + dta2

    print total

 

 

mais alguma coisa em :

 

Private Sub calculaDias()
Dim data As String

data = InputBox("Digite uma data : Use o formato: DD/MM/AAAA (15/11/2003) ")

If data <> "" Then
    If IsDate(data) Then
       MsgBox "Faltam " & DateDiff("d", Now, data) & " dias " & " até " & data, vbInformation, "Data atual => " &  Format(Now(), "dd/mm/yyyy")
    Else
        MsgBox " Data Inválida ", vbCritical
    End If
End If
End Sub

Function Calcula_Diferenca_Entre_Datas(DataInicio As Date, DataFim As Date)
    Dim intDiaFim As Integer
    Dim intMesFim As Integer
    Dim intAnoFim As Integer
    intDiaFim = Day(DataFim)
    intMesFim = Month(DataFim)
    intAnoFim = Year(DataFim)
    Meses_Ano (intAnoFim)
    If intDiaFim < Day(DataInicio) Then
        intDias = intDiaFim + arrDiasMes(intMesFim) - Day(DataInicio) + 1
        intMesFim = intMesFim - 1
        If intMesFim = 0 Then
            intMesFim = 12
            intAnoFim = intAnoFim - 1
        End If
    Else
        intDias = intDiaFim - Day(DataInicio) + 1
    End If
    If intMesFim < Month(DataInicio) Then
        intMeses = intMesFim + 12 - Month(DataInicio)
        intAnoFim = intAnoFim - 1
    Else
        intMeses = intMesFim - Month(DataInicio)
    End If
    intAnos = intAnoFim - Year(DataInicio)
End Function