Actualizar campo edad

[radenf]

Empezado por jafera

Necesito algo dinámico en cuanto al año en curso ya que no voy a estar año tras año variando el valor del año del que restar y he pensado en una variable año que tengo para otros menesteres en el programa.

Estimado jafera :

Yo utilizo siempre esta función, que alguien que no recuerdo, alguna vez publicó en el foro:

Código Delphi [-]
procedure TForm1.DBEdit1Change(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
Label1.Caption:=intToStr(Edad (EditFecha.Text));
end;

Utiliza la propiedad OnChange del DBEdit en el que visualizas la fecha y te entrega en años la edad actualizada en el Label1

Ojalá te sirva
Salu2

[radenf]

Corrijo la última línea del código, debiendo ser:

Código Delphi [-]
Label1.Caption:=intToStr(Edad (DBEdit1.Text));

Perdón y Salu2

[jafera]

Hola a todos de nuevo.

Gracias por vuestras repuestas y vuestro tiempo.

Igual no me expresé bien, no quiero calcular la edad en el formulario de entrada de corredores, esto ya lo hago y funciona.

Lo d guardar la ya lo hago en la tabla de las carreras, así siempre se que edad y categoris tenía el corredor en el momento de celebrarse la carrera.

Lo que necesito es hacer un update masivo despues de hacer la importacion de datos del txt que me reste del año actual el año de la fecha de nacimiento y asi tengo la edad, sin importar dia ni mes.

Saludos

Josep

[Casimiro Noteví]

De la forma que te he dicho lo hace automáticamente siempre.

[jafera]

Gracias de nuevo, pero me da error al crear la tabla con el campo computed.

Me dice expression evaluation no supported.

Esta es la creacion de la tabla

Código SQL [-]
 
CREATE TABLE "CTR0003"
(
  "DORSAL" INTEGER,
  "DORSAL2" INTEGER,
  "COGNOM1" VARCHAR(25) CHARACTER SET ISO8859_1 COLLATE ES_ES,
  "COGNOM2" VARCHAR(25) CHARACTER SET ISO8859_1 COLLATE ES_ES,
  "NOM" VARCHAR(20) CHARACTER SET ISO8859_1 COLLATE ES_ES,
  "CODI_CAT" INTEGER,
  "NACIO" VARCHAR(3) CHARACTER SET ISO8859_1 COLLATE ES_ES,
  "LLICENCIA" VARCHAR(14) CHARACTER SET ISO8859_1 COLLATE ES_ES,
  "DNI" VARCHAR(12) CHARACTER SET ISO8859_1 COLLATE ES_ES,
  "CODIUCI" VARCHAR(12) CHARACTER SET ISO8859_1 COLLATE ES_ES,
  "CODI_CLUB" INTEGER,
  "CLUB" VARCHAR(25) CHARACTER SET ISO8859_1 COLLATE ES_ES,
  "ABR_CLUB" VARCHAR(3) CHARACTER SET ISO8859_1 COLLATE ES_ES,
  "PUBLICITAT" VARCHAR(25) CHARACTER SET ISO8859_1 COLLATE ES_ES,
  "SEXE" VARCHAR(1) CHARACTER SET ISO8859_1 COLLATE ES_ES,
  "FEDERAT" VARCHAR(1) CHARACTER SET ISO8859_1 COLLATE ES_ES,
  "DATA_NAIX" DATE,
  "EDAT" COMPUTED BY (EXTRACT(YEAR FROM 'NOW' - DATA_NAIX)),
  "CATEGORIA" VARCHAR(5) CHARACTER SET ISO8859_1 COLLATE ES_ES
);

Mi Firebird es 1.5

Saludos

Josep

[Casimiro Noteví]

Empezado por jafera

Me dice expression evaluation no supported.
"EDAT" COMPUTED BY (EXTRACT(YEAR FROM 'NOW' - DATA_NAIX)),

¿El campo data_naix es date o timestamp?, ¿estás usando dialecto 1 ó 3?
Prueba a crearlo después, algo así como:

Código SQL [-]
alter table CTR0003 add edat computed by (extract(year from ('now'-data_naix)))

Ah, creo que olvidaste el paréntesis después del from, no recuerdo si era así, te hablo de memoria.

[jafera]

Pues tampoco, me sigue dando el mismo error

Ya lo dejo para el lunes, que mañana tengo que montar la piscina en casa

Saludos

Josep