Programación General > Pascal
Calcular Edad A Partir De Fechas.
thot_ohm:
Le dí para arriba y le dí para abajo y al final la que funcionó fue ésta:
--- Código: Text --- if (Actual.Mes > Nacimiento.Mes) then Datos.Edad:= Actual.Anio - Nacimiento.Anio; if (Actual.Mes < Nacimiento.Mes) then Datos.Edad:= Actual.Anio - Nacimiento.Anio - 1; if (Nacimiento.Mes = Actual.Mes) then if (Actual.Dia >= Nacimiento.Dia) then Datos.Edad:= Actual.Anio - Nacimiento.Anio else Datos.Edad:= Actual.Anio - Nacimiento.Anio - 1;
Así se quedará jejeje. Gracias.
Enko:
--- Citar ---Si el mes actual es mayor al mes de nacimiento es porque SÍ cumplió años. Esto es lo que me tiene frikie. En ese caso quedaría así (digo yo unsure.gif ):
--- Fin de la cita ---
Si es cierto :( , lo curioso es que probé de esa ultima manera y funcaba. :(
En fin, si te funcionó de otra forma, mejor :lol:
dont know:
la verdad necesio ayudacomo kda el codigo????
esk a mi me pidieron ese programa xa el lunes y ya hoy es viernes y si no lo entrego epruebo por favor ayudenme
pro con este programa los datos los introduces desd teclado????
si alguno sabe como kdo el programa por favor ayudeme mi correo es
mariguana_pera@hotmail.com
auxilio :scream: :scream: :scream:
Enko:
--- Cita de: "dont know" --- la verdad necesio ayudacomo kda el codigo????
esk a mi me pidieron ese programa xa el lunes y ya hoy es viernes y si no lo entrego epruebo por favor ayudenme
pro con este programa los datos los introduces desd teclado????
si alguno sabe como kdo el programa por favor ayudeme mi correo es
mariguana_pera@hotmail.com
auxilio :scream: :scream: :scream:
--- Fin de la cita ---
En este foro no se hacen tareas.
Dudas puntuales?
dont know:
pero a lo k me refiero es k no se como calcular los mese intente pero no corrio el programa osea no kkiero k me hagan la tarea sory si entendieron mal
Navegación
[*] Página Anterior
Ir a la versión completa