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

Práctica 3.9

De número a texto.

Miguel Fernando Juárez Moyrón
502.

Practica 3.3 Kassandra Cordova Mensaje Prueba Saludo

Mensaje

Practica 3.7 BB PIN KASSANDRA

BB PIN

Practica 3.6 Kassandra Cordova Left Right Mod

Left Right mod