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

Practica 3.2 Macro Automatica

Auto

Practica 3.5 Parte 2 Calculadora

Parte 2