Ayuda comparando fechas

Ricardo daniel
07 de Abril del 2004
como comparar una fecha de nacimiento con la fecha actual y determinar que dia fue el dia en que nacio esa persona y cuantos dias ha vivido

phileas fogg
07 de Abril del 2004
a ver si te gusta asi:

Private Sub Command1_Click()
Dim diasvividos As Integer
Dim diaquenacio As Date
diasvividos = Date - Me.DTnacio.Value
Me.Text1.Text = CStr(diasvividos)
Me.Text2.Text = Format(Me.DTnacio.Value, "dddd")
End Sub