Reload Geek v2.5

Pues dentro de uno los proyectos que se tan desarrollando en Dvorak Brain Labs.me surgió el problema de calcular la edad exacta de una persona por lo que me limitada e ínfima lógica me hizo teclear un código bugeado (Joer, joer, joer), que no sirvió para dichos fines:

‘**********
‘
‘**********
Private Sub Command1_Click()
Dim fecnac As Date, edad As Integer
fecnac = CDate(Text1)
edad = CInt((Date - fecnac) / 365)
Text2 = Str(edad) & ” años”
End Sub
‘**********
‘
‘**********

sin embargo encontré algunos fallos, que intente solucionar pero nada de nada, o como decimos por aquí ni maíz, entonces la luz me ilumino y me dije una función como esta ya debe existir, por que reinventar la rueda?, y para mi suerte encotre la funcion en la pagina de nada mas y nada menos que en el MSDN. he aquí la función.

Function Age (varBirthDate As Variant) As Integer
Dim varAge As Variant

If IsNull(varBirthdate) then Age = 0: Exit Function

varAge = DateDiff(”yyyy”, varBirthDate, Now)
If Date < DateSerial(Year(Now), Month(varBirthDate), _
Day(varBirthDate)) Then
varAge = varAge - 1
End If
Age = CInt(varAge)
End Function

Y así fue como logre sobrepasar este obstáculo, por ahora sigo programando algunos proyectos bajo VB6, con vistas futuras a web con PHP.

Me despido de este episodio.
Hasta la próxima.