Respuestas

2013-06-11T00:35:01+02:00
Se puede usar asi creo :D
lblDiferencia = DifDias(cdate("1983-04-02"))

Public Function DifDias(ByVal dFechaNacimiento As Date) As Integer
Dim t1 As Date = Now
Dim t2 As Date = CDate(dFechaNacimiento)
Return t2.Subtract(t1).Days
End Function


 revisar el formato de las fecha que envies.
El que nunca falla es aaaa-mm-dd