FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Saber edad teniendo fech-Nac
Hola estoy haciendo una aplicacion donde meto en un MaskEdit una fecha, y en un label me da la edad, hasta hay bien pero quiero que en otro MasEdit meta una nueva fecha en vez de la actual para obtener el resultado de la edad que tendra en esa fecha, osea que quiero saber que edad tendra en octubre del 2004 sabiendo la fecha de nacimiento, el que tengo ahora es este pero no me vale.
procedure TForm1.Button1Click(Sender: TObject); function Edad(FechaNacimiento:string):integer; var iTemp,iTemp2,Nada:word; Fecha:TDate; begin Fecha:=StrToDate(FechaNacimiento); DecodeDate(Date,itemp,Nada,Nada); DecodeDate(Fecha,itemp2,Nada,Nada); if FormatDateTime('mmdd',Date) < FormatDateTime('mmdd',Fecha) then Result:=iTemp-iTemp2-1 else Result:=iTemp-iTemp2; end; begin try Label1.Caption:=intToStr(Edad(MaskEdit1.text)); except showmessage('Debes introcudirlo de esta forma'#13'dd/mm/aaaa'#13'Gracias.'); end; Gracias. Kwan
__________________
No llores por no ver el Sol que las lagrimas te impediran ver las Estrellas. |
#2
|
||||
|
||||
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#3
|
|||
|
|||
Gracias x contestar, busque pero no vi ese tema.
Gracias Kwan.
__________________
No llores por no ver el Sol que las lagrimas te impediran ver las Estrellas. |
#4
|
||||
|
||||
¡Buen día a todos!
Kwan: En el grupo MSN Programadores Delphi de México se encuentra una útil biblioteca llamada Interfaz GH, que entre otras cosas cuenta con varias funciones para manejo de fechas y horas (unidad GHTiempo.pas). Algunas de esas funciones son: Código:
{ Años Completos Entre Fechas } Function AosCompEntrFech (Const FechInic, FechFina :TDate) :Word; { Años Cumplidos } Function AosCump (Const FechInic :TDate) :Word; { Fecha Más Años } Function FechaMasAos (Const Fecha :TDate; Const Aos :SmallInt) :TDate; { Fecha Máxima para Años Cumplidos } Function FechaMaxiAosCump (Const Aos :Word) :TDate; { Fecha Mínima para Años Cumplidos } Function FechaMiniAosCump (Const Aos :Word) :TDate; Código:
Var Aos :Integer; { Años } Begin Aos := AosCompEntrFech (Fech1, Fech2); Espero esto sea de utilidad. Seguimos en contacto. Al González . |
#5
|
||||
|
||||
Te recomiendo tb la página de Trucomania www.q3.com, en ella encontraras trucos y utilidades además de más en concreto un ejemplo llamado ¿Que edad tendré cuando salga de la carcel?, o algo así.
Creo que es lo que buscas. Un saludo y suerte.
__________________
El meu país és tan petit, que des de dalt d'un campanar es pot veure el campanar veí. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|