YearOf (fecha)

Obtiene el año en entero (integer) de una fecha dada (datetime).

Ejemplo de uso:

  while not tConsulta.Eof do
  begin
    tbPrincipal.Insert;
    tbPrincipalMINISTERIO.AsString := ministerio;
    tbPrincipalN_Referencia.AsString := tConsultaFINALREF.AsString;
    tbPrincipalFecha.AsDateTime := tConsultaFECADJUDICACION.AsDateTime;
    tbPrincipalEjercicio.AsInteger := yearof (tConsultaFECADJUDICACION.AsDateTime);
    tbPrincipal.post;
    tConsulta.next;
  end;

Uses DateUtils;

alonsojpd

alonsojpd

Presidente y fundador de Proyecto A y AjpdSoft

Deja un comentario