Queridos alumnos aquí están los resultados finales de sus calificaciones:
Calificaciones 502
miércoles, 16 de noviembre de 2011
martes, 15 de noviembre de 2011
lunes, 14 de noviembre de 2011
Macro Práctica edad
Function CalEdad(Fnacimiento As Date)
Dim Fecha As Date
CalEdad = Abs(DateDiff("yyyy", Fnacimiento, Date))
Fecha = DateAdd("YYYY", CalEdad, Fnacimiento)
If Fecha > Date Then CalEdad = CalEdad - 1
End Function
Dim Fecha As Date
CalEdad = Abs(DateDiff("yyyy", Fnacimiento, Date))
Fecha = DateAdd("YYYY", CalEdad, Fnacimiento)
If Fecha > Date Then CalEdad = CalEdad - 1
End Function
Suscribirse a:
Entradas (Atom)