DateDiff()

[Crigarbe]

Dim f1 As Date = #3/3/2007#
Dim f2 As Date = #3/6/2007#
Dim numDias As Long
numDias = DateDiff(DateInterval.Day, f1, f2)

Yo lo hago asi y m sale bien!!Siendo el formato de fecha primero el mes, luego el dia,y lueg el año....espero q t sirva!!!