Edad de una persona
Muchas veces nos ha pasado que deseamos saber la edad de la persona y no hallamos la forma de como saberlo.Ahora es fácil poder calcular la edad de una persona pasando como parámetros la fecha de nacimiento y el resto lo hace nuestro programa al indicarnos la edad exacta la cual posee la persona.
El programa toma como primer parámetro la fecha de nacimiento de la persona,una vez que se teclea la fecha de nacimiento el programa resta la fecha actual menos su fecha de nacimiento dando así la edad la cual posee dicha persona.
Paso 1: En el evento init de nuestro formulario colocas lo siguiente:
SET DATE FRENCH
SET CONFIRM ON
Public lnAnios,tdNac,lnAnios,tdHoy
tdNac=DATE()
lnAnios=0
Paso 2: Agregas en el formulario los controles Text1 y Text2, el control Command y las Label correspondientes como se muestran en la figura.
Paso 3: En el control Text1 en el evento LostFocus agrega la siguiente instrucción:
If Empty(tdHoy)
tdHoy = Date()
Endif
lnAnios = Year(tdHoy) - Year(tdNac)
If Gomonth(tdNac, 12 * lnAnios) > tdHoy
lnAnios = lnAnios - 1
Endif
If lnAnios=1
Thisform.label4.Caption ="Año"
Else
If lnAnios >1
Thisform.label4.Caption ="Años"
Endif
Endif
Para lograr el efecto de la etiqueta Fecha de nacimiento deberás ir a propiedades y colocar Autosize en .f., BackStyle en 0.- Transparente y WordWrap .t.
De igual Forma te estaré dejando el link de descargaen la parte inferior del Blog.
Como logras que la edad aparezca en el text2?
ResponderEliminarPrograma1ª : Realizar un programa en visual FoxPro que calcule la edad de una persona. 1. DEBERA INGRESAR EL NOMBRE COMPLETO DE LA PERSONA. 2. FECHA DE NACIMIENTO. 3 FECHA ACTUAL recuerde que la edad no tiene mostrar datos negativos. 4. APLICAR UNA CONDICION SI. Si es mayor mostrar un mensaje "Usted es Mayor de Edad" Si es menor" Usted es menor de edad
ResponderEliminar