Ver Mensaje Individual
  #2  
Antiguo 08-11-2017
Avatar de TOPX
TOPX TOPX is offline
Miembro
 
Registrado: may 2008
Ubicación: Bogotá
Posts: 527
Reputación: 16
TOPX Va camino a la fama
Buenas.

Ahora trate de cambiar la definición de la función, por algo como
Código Delphi [-]
procedure CalculaEdadCompleta(Fecha: TDateTime;var Anio,Mes,Dia: Double);
var A, AA, M, MM, D, DD: Word;
begin
Y el llamado, por algo como:
Código Delphi [-]
CalculaEdadCompleta(fnacimiento,fanio,fmes,fdia);

etanios.caption:=FloatToStr(fanio);
etmeses.caption:=FloatToStr(fmes);
etdias.caption:=FloatToStr(fdia);
-
__________________
"constructive mind, destructive thoughts"
Responder Con Cita