Recorrer Una Tabla Calendario Y Añadir Los Años Concatenados Sin Duplicarlos

[sorianolloret]

Buenas tengo el siguiente codigo en un boton calcular datos, el cual recorre una tabla calendario, busca las condiciones para esa fecha en una tabla condiciones, y actualiza una tabla resultado parcial segun los calculos hechos. los registros de la tabla resultado parcial ya estan previamente creados segun las difentes condiciones para cada empleado con los campos a cero.
El problema es que necesito si la fecha a calcular abarca varios años los concatene en la tabla resultado parcial campo año, segun idcondiciones, pero sin duplicar los años.
los años los tengo y guardo como string.
este codigo funciona pero solo almacena el ultimo año valido para cada condicion.
la tabla calculoresultadoparcial es:
si la fecha de baja es null lo controlo asignando eventualmente la fecha de hoy.
COMO PODRIA CONCATENAR LOS AÑOS + ; EN UNA VARIALBLE STRING HE IR ELIMINANDO DE LA MISMA LOS DUPLICADOS?
unit calculoresultadoparcial;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.Grids,
Vcl.DBGrids, Data.DB, Data.Win.ADODB, Vcl.StdCtrls, Vcl.ComCtrls,Math;

type
Tfrmcalculoparcial = class(TForm)
Panel2: TPanel;
Panel7: TPanel;
Panel8: TPanel;
Panel9: TPanel;
DBNavigator3: TDBNavigator;
DBGrid3: TDBGrid;
RadioGroup1: TRadioGroup;
Panel10: TPanel;
Label2: TLabel;
Label3: TLabel;
DateTimePickerdesde: TDateTimePicker;
DateTimePickerhasta: TDateTimePicker;
btnresultadoparcial: TButton;
Panel11: TPanel;
DBNavigator4: TDBNavigator;
DBGrid4: TDBGrid;
ADOConnectionEmpleados: TADOConnection;
DataSourceEmpleados: TDataSource;
ADODataSetEmpleados: TADODataSet;
Panel1: TPanel;
Panel3: TPanel;
DBGrid1: TDBGrid;
Panel12: TPanel;
DBGrid5: TDBGrid;
Panel4: TPanel;
DBNavigator1: TDBNavigator;
Panel5: TPanel;
DBGrid2: TDBGrid;
Panel6: TPanel;
DBNavigator2: TDBNavigator;
DataSourceCalendario: TDataSource;
ADODataSetCalendario: TADODataSet;
ADOConnectionCalendario: TADOConnection;
DataSourceCondiciones: TDataSource;
ADODataSetCondiciones: TADODataSet;
ADOConnectionCondiciones: TADOConnection;
ADOConnectionresultadoparcial: TADOConnection;
DataSourceresultadoparcial: TDataSource;
ADODataSetresultadoparcial: TADODataSet;
btncalcular: TButton;
DBGrid6: TDBGrid;
DBNavigatorcondiciones: TDBNavigator;
DataSourceconvenio: TDataSource;
ADOConnectionconvenio: TADOConnection;
ADODataSetconvenio: TADODataSet;
btnira: TButton;
DateTimePickerira: TDateTimePicker;
procedure FormShow(Sender: TObject);
procedure btncalcularClick(Sender: TObject);
procedure btnresultadoparcialClick(Sender: TObject);
procedure btniraClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmcalculoparcial: Tfrmcalculoparcial;

implementation

{$R *.dfm}

uses tipodiatrabajado, tipodialibre, tipodebaja, tipodevacaciones, convenio,
progreso;

procedure Tfrmcalculoparcial.btncalcularClick(Sender: TObject);
var
año:integer;
fechacondicioninicio,fechacondicionfinal:string;
fechadesde, fechahasta:Tdate;
diasaño, diastrabajados, diaslibrados, vacacionesdisfrutadas, correspondenlibres:integer;
diassueltossinagrupar, diassueltossinagruparañoanterior, acumuladoañoanterior:integer;
vacacionesnodisfrutadas, correspondenvacaciones, lunestrabajados, martestrabajados:integer;
miercolestrabajados, juevestrabajados, viernestrabajados, sabadostrabajados:integer;
domingostrabajados, lunesnotrabajados, martesnotrabajados:integer;
miercolesnotrabajados, juevesnotrabajados, viernesnotrabajados, sabadosnotrabajados:integer;
diaslibresporconvenio, diasdebaja:integer;
añocerrado, ENCONTRADO:boolean;
CONDICION:INTEGER;
DNI:STRING;
añadiraño:boolean;
contadorfechascalculas:integer;
begin
año:=0;
añadiraño:=true;
adodatasetcalendario.Close;
adodatasetcalendario.Open;
ADODATASETRESULTADOPARCIAL.Close;
ADODATASETRESULTADOPARCIAL.Open;


fechacondicioninicio:=datetostr(datetimepickerdesde.Date);
fechacondicionfinal:=DATETOSTR(datetimepickerhasta.Date);
adodatasetcalendario.First;
DNI:=ADODATASETEMPLEADOS.FieldByName('DNI').Value;

ADODATASETRESULTADOPARCIAL.Close;
ADODATASETRESULTADOPARCIAL.OPEN;

ADODATASETRESULTADOPARCIAL.Edit;
ADODATASETRESULTADOPARCIAL.First;
adodatasetcalendario.locate('DNI;FECHA',Vararrayof([DNI, FECHACONDICIONINICIO]),[loCaseInsensitive, loPartialKey]);


frmprogreso.ProgressBarprogreso.Max:=trunc(DateTimePickerhasta.Date)-trunc(DateTimePickerdesde.Date);
while ((not adodatasetcalendario.Eof) and ((adodatasetcalendario.FieldByName('FECHA').AsDateTime)<=(STRTODATE(fechacondicionfinal)))) do
begin


frmprogreso.ProgressBarprogreso.StepIt;
adodatasetcalendario.Edit;
CONDICION:=ADODATASETCALENDARIO.FieldByName('IDCONDICIONES').Value;
ADODATASETCONDICIONES.First;

adodatasetcondiciones.Locate('IDCONDICIONES',CONDICION, []);




ADODATASETRESULTADOPARCIAL.Edit;
CONDICION:=ADODATASETCALENDARIO.FieldByName('IDCONDICIONES').Value;
ADODATASETRESULTADOPARCIAL.Locate('IDCONDICIONES',CONDICION,[]);
ADODATASETRESULTADOPARCIAL.Edit;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='LUNES' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('TOTAL LUNES').value:=adodatasetresultadoparcial.FieldByName('TOTAL LUNES').value+1;
END;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='MARTES' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('TOTAL MARTES').value:=adodatasetresultadoparcial.FieldByName('TOTAL MARTES').value+1;
END;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='MIERCOLES' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('TOTAL MIERCOLES').value:=adodatasetresultadoparcial.FieldByName('TOTAL MIERCOLES').value+1;
END;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='JUEVES' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('TOTAL JUEVES').value:=adodatasetresultadoparcial.FieldByName('TOTAL JUEVES').value+1;
END;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='VIERNES' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('TOTAL VIERNES').value:=adodatasetresultadoparcial.FieldByName('TOTAL VIERNES').value+1;
END;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='SABADO' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('TOTAL SABADOS').value:=adodatasetresultadoparcial.FieldByName('TOTAL SABADOS').value+1;
END;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='DOMINGO' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('TOTAL DOMINGOS').value:=adodatasetresultadoparcial.FieldByName('TOTAL DOMINGOS').value+1;
END;

ADODATASETRESULTADOPARCIAL.FieldByName('DIAS AÑO').Value:=365;
if ADODATASETCALENDARIO.FieldByName('BISIESTRO').VALUE=TRUE then
BEGIN
ADODATASETRESULTADOPARCIAL.FieldByName('DIAS AÑO').Value:=366;
END;
//**** AQUI ES DONDE TENGO EL PROBLEMA ***************
ADODATASETRESULTADOPARCIAL.FieldByName('AÑO').Value:=ADODATASETCALENDARIO.FieldByName('AÑO').VALUE;
//************

FRMTIPODIATRABAJADO.ADODataSettipodiatrabajado.First;
while NOT FRMTIPODIATRABAJADO.ADODataSettipodiatrabajado.EOF do
BEGIN
if ADODATASETCALENDARIO.FieldByName('TIPO DIA').Value=FRMTIPODIATRABAJADO.ADODataSettipodiatrabajado.FieldByName('DIATRABAJADO').VALUE then
BEGIN
ADODATASETRESULTADOPARCIAL.FieldByName('DIAS TRABAJADOS').Value:=ADODATASETRESULTADOPARCIAL.FieldByName('DIAS TRABAJADOS').Value +1;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='LUNES' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('LUNES TRABAJADOS').value:=adodatasetresultadoparcial.FieldByName('LUNES TRABAJADOS').value+1;
END;
//**BORRADO NO CABE EN ESTE MENSAJE, CALCULO HASTA DOMINGOS
END;
FRMTIPODIATRABAJADO.ADODataSettipodiatrabajado.Next;
END;
FRMTIPODIALIBRE.ADODataSettipodialibre.First;
while NOT FRMTIPODIAlibre.ADODataSettipodialibre.EOF do
BEGIN
if ADODATASETCALENDARIO.FieldByName('TIPO DIA').Value=FRMTIPODIAlibre.ADODataSettipodialibre.FieldByName('DIAlibre').VALUE then
BEGIN
ADODATASETRESULTADOPARCIAL.FieldByName('DIAS LIBRADOS').Value:=ADODATASETRESULTADOPARCIAL.FieldByName('DIAS LIBRADOS').Value +1;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='LUNES' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('LUNES NO TRABAJADOS').value:=adodatasetresultadoparcial.FieldByName('LUNES NO TRABAJADOS').value+1;
END;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='MARTES' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('MARTES NO TRABAJADOS').value:=adodatasetresultadoparcial.FieldByName('MARTES NO TRABAJADOS').value+1;
END;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='MIERCOLES' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('MIERCOLES NO TRABAJADOS').value:=adodatasetresultadoparcial.FieldByName('MIERCOLES NO TRABAJADOS').value+1;
END;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='JUEVES' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('JUEVES NO TRABAJADOS').value:=adodatasetresultadoparcial.FieldByName('JUEVES NO TRABAJADOS').value+1;
END;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='VIERNES' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('VIERNES NO TRABAJADOS').value:=adodatasetresultadoparcial.FieldByName('VIERNES NO TRABAJADOS').value+1;
END;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='SABADO' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('SABADOS NO TRABAJADOS').value:=adodatasetresultadoparcial.FieldByName('SABADOS NO TRABAJADOS').value+1;
END;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='DOMINGO' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('DOMINGOS NO TRABAJADOS').value:=adodatasetresultadoparcial.FieldByName('DOMINGOS NO TRABAJADOS').value+1;
END;
END;
FRMTIPODIALIBRE.ADODataSettipodiaLIBRE.Next;
END;
FRMTIPODEVACACIONES.ADODataSetTIPODEVACACIONES.First;
while NOT FRMTIPODEvacaciones.ADODataSettipoDEvacaciones.EOF do
BEGIN
if ADODATASETCALENDARIO.FieldByName('TIPO DIA').Value=FRMTIPODEvacaciones.ADODataSettipoDEVACACIONES.FieldByName('DIAVACACIONES').VALUE then
BEGIN
ADODATASETRESULTADOPARCIAL.FieldByName('VACACIONES DISFRUTADAS').Value:=ADODATASETRESULTADOPARCIAL.FieldByName('VACACIONES DISFRUTADAS').Value +1;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='LUNES' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('LUNES NO TRABAJADOS').value:=adodatasetresultadoparcial.FieldByName('LUNES NO TRABAJADOS').value+1;
END;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='MARTES' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('MARTES NO TRABAJADOS').value:=adodatasetresultadoparcial.FieldByName('MARTES NO TRABAJADOS').value+1;
END;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='MIERCOLES' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('MIERCOLES NO TRABAJADOS').value:=adodatasetresultadoparcial.FieldByName('MIERCOLES NO TRABAJADOS').value+1;
END;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='JUEVES' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('JUEVES NO TRABAJADOS').value:=adodatasetresultadoparcial.FieldByName('JUEVES NO TRABAJADOS').value+1;
END;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='VIERNES' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('VIERNES NO TRABAJADOS').value:=adodatasetresultadoparcial.FieldByName('VIERNES NO TRABAJADOS').value+1;
END;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='SABADO' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('SABADOS NO TRABAJADOS').value:=adodatasetresultadoparcial.FieldByName('SABADOS NO TRABAJADOS').value+1;
END;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='DOMINGO' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('DOMINGOS NO TRABAJADOS').value:=adodatasetresultadoparcial.FieldByName('DOMINGOS NO TRABAJADOS').value+1;
END;
END;

FRMTIPODEvacaciones.ADODataSettipoDEvacaciones.Next;
END;

FRMTIPODEBAJA.ADODataSettipoDEBAJA.First;
while NOT FRMTIPODEBAJA.ADODataSettipoDEBAJA.EOF do
BEGIN
if ADODATASETCALENDARIO.FieldByName('TIPO DIA').Value=FRMTIPODEBAJA.ADODataSettipoDEBAJA.FieldByName('DIABAJA').VALUE then
BEGIN
ADODATASETRESULTADOPARCIAL.FieldByName('DIAS DE BAJA').Value:=ADODATASETRESULTADOPARCIAL.FieldByName('DIAS DE BAJA').Value +1;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='LUNES' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('LUNES NO TRABAJADOS').value:=adodatasetresultadoparcial.FieldByName('LUNES NO TRABAJADOS').value+1;
END;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='MARTES' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('MARTES NO TRABAJADOS').value:=adodatasetresultadoparcial.FieldByName('MARTES NO TRABAJADOS').value+1;
END;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='MIERCOLES' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('MIERCOLES NO TRABAJADOS').value:=adodatasetresultadoparcial.FieldByName('MIERCOLES NO TRABAJADOS').value+1;
END;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='JUEVES' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('JUEVES NO TRABAJADOS').value:=adodatasetresultadoparcial.FieldByName('JUEVES NO TRABAJADOS').value+1;
END;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='VIERNES' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('VIERNES NO TRABAJADOS').value:=adodatasetresultadoparcial.FieldByName('VIERNES NO TRABAJADOS').value+1;
END;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='SABADO' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('SABADOS NO TRABAJADOS').value:=adodatasetresultadoparcial.FieldByName('SABADOS NO TRABAJADOS').value+1;
END;
if ADODATASETCALENDARIO.FieldByName('DIASEMANA').VALUE='DOMINGO' then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
adodatasetresultadoparcial.FieldByName('DOMINGOS NO TRABAJADOS').value:=adodatasetresultadoparcial.FieldByName('DOMINGOS NO TRABAJADOS').value+1;
END;
END;

FRMTIPODEBAJA.ADODataSettipoDEBAJA.Next;
ADODataSetConvenio.First;
while NOT ADODataSetConvenio.Eof do
BEGIN
if ADODATASETCALENDARIO.FieldByName('FECHA').Value=ADODataSetConvenio.FieldByName('FECHA').Value then
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
ADODATASETRESULTADOPARCIAL.FieldByName('DIAS LIBRES POR CONVENIO').Value:=ADODATASETRESULTADOPARCIAL.FieldByName('DIAS LIBRES POR CONVENIO').Value+ADODataSetConvenio.FieldByName('FACTOR').VALUE;
END;
ADODataSetConvenio.Next;
END;





ADODATASETCALENDARIO.Next;
END;
ADODATASETRESULTADOPARCIAL.Edit;
if ADODATASETRESULTADOPARCIAL.FieldByName('IDCONDICIONES').Value>0 then
BEGIN
ADODATASETRESULTADOPARCIAL.FieldByName('TOTAL DIAS DE ALTA').Value:=ADODATASETRESULTADOPARCIAL.FieldByName('TOTAL DIAS DE ALTA').Value+1;
END
ELSE
BEGIN
ADODATASETRESULTADOPARCIAL.FieldByName('TOTAL DIAS DE ALTA').Value:=0;
END;

end;
ADODATASETRESULTADOPARCIAL.Post;
ADODATASETRESULTADOPARCIAL.Edit;





ADODATASETRESULTADOPARCIAL.First;
while NOT ADODATASETresultadoparcial.Eof do
BEGIN
ADODATASETRESULTADOPARCIAL.Edit;
condicion:=ADODATASETRESULTADOPARCIAL.FieldByName('IDCONDICIONES').Value;
ADODATASETRESULTADOPARCIAL.Edit;
ADODATASETcondiciones.Locate('IDCONDICIONES',CONDICION,[]);
ADODATASETRESULTADOPARCIAL.Edit;
if ADODATASETCONDICIONES.FieldByName('DIASTRABAJA').IsNull then
BEGIN
ADODATASETRESULTADOPARCIAL.FieldByName('CORRESPONDEN LIBRES').Value:=0;
END
ELSE
BEGIN
ADODATASETRESULTADOPARCIAL.FieldByName('CORRESPONDEN LIBRES').Value:=ROUNDTO((ADODATASETRESULTADOPARCIAL.FieldByName('DIAS TRABAJADOS').Value)/ADODATASETCONDICIONES.FieldByName('DIASTRABAJA').Value,-2);
END;
ADODATASETRESULTADOPARCIAL.Edit;
if ADODATASETCONDICIONES.FieldByName('DIASTRABAJA').IsNull then
BEGIN
ADODATASETRESULTADOPARCIAL.FieldByName('DIAS SUELTOS SIN AGRUPAR').Value:=0;
END
ELSE
BEGIN
ADODATASETRESULTADOPARCIAL.FieldByName('DIAS SUELTOS SIN AGRUPAR').Value:=(ADODATASETRESULTADOPARCIAL.FieldByName('DIAS TRABAJADOS').Value) MOD (ADODATASETCONDICIONES.FieldByName('DIASTRABAJA').Value);
END;

ADODATASETRESULTADOPARCIAL.Edit;
if ADODATASETCONDICIONES.FieldByName('DIASTRABAJA').IsNull then
BEGIN
ADODATASETRESULTADOPARCIAL.FieldByName('CORRESPONDEN VACACIONES').Value:=0;
END
ELSE
BEGIN
if ADODATASETRESULTADOPARCIAL.FieldByName('IDCONDICIONES').Value>0 then
BEGIN
ADODATASETRESULTADOPARCIAL.FieldByName('CORRESPONDEN VACACIONES').AsCurrency:=roundto((ADODATASETRESULTADOPARCIAL.FieldByName('TOTAL DIAS DE ALTA').Value*ADODATASETCONDICIONES.FieldByName('VACACIONES ANUALES').Value) / 365,-2);
END
ELSE
BEGIN
ADODATASETRESULTADOPARCIAL.FieldByName('CORRESPONDEN VACACIONES').Value:=0;
END;
END;

ADODATASETRESULTADOPARCIAL.Edit;
if ADODATASETCONDICIONES.FieldByName('DIASTRABAJA').IsNull then
BEGIN
ADODATASETRESULTADOPARCIAL.FieldByName('VACACIONES NO DISFRUTADAS').Value:=0;
END
ELSE
BEGIN
// ADODATASETRESULTADOPARCIAL.FieldByName('VACACIONES NO DISFRUTADAS').AsCurrency:=(ADODATASETRESULTADOPARCIAL.FieldByName('TOTAL DIAS DE ALTA').Value*ADODATASETCONDICIONES.FieldByName('VACACIONES ANUALES').Value) / 365;
END;
if adodatasetresultadoparcial.FieldByName('IDCONDICIONES').Value>0 then
BEGIN
ADODATASETRESULTADOPARCIAL.FieldByName('VACACIONES NO DISFRUTADAS').AsCurrency:=roundto(ADODATASETRESULTADOPARCIAL.FieldByName('CORRESPONDEN VACACIONES').ASCURRENCY-ADODATASETRESULTADOPARCIAL.FieldByName('VACACIONES DISFRUTADAS').Value,-2);
END
ELSE
BEGIN
adodatasetresultadoparcial.FieldByName('VACACIONES NO DISFRUTADAS').Value:=0;
END;
ADODATASETRESULTADOPARCIAL.Post;
ADODATASETRESULTADOPARCIAL.Next;
ADODATASETCALENDARIO.First;
frmprogreso.ProgressBarprogreso.StepIt;
END;


end;

[[AgustinOrtu]]

Buenas sorianolloret

Creo que no entendi nada, solamente se me ocurre que si son varios años, guardar algo como esto en tu tabla:

"01/01/2000 - 01/01/2015"

Eso lo podrias hacer masomenos asi:

Código Delphi [-]
interface

  function ConcatDates(DateFrom, DateTo: TDate): string; overload;
  function ConcatDates(DateFrom, DateTo: string): string; overload;

implementation

function ConcatDates(DateFrom, DateTo: TDate): string;
begin
  Result := ConcatDates(DateToStr(DateFrom), DateToStr(DateTo));
end;

function ConcatDates(DateFrom, DateTo: string): string;
begin
  Result := Format('%s - %s', [DateFrom, DateTo]);
end;

Y un ejemplo de llamada

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
    DateFrom, DateTo: TDate;
    sDateFrom, sDateTo: string;
begin
    DateFrom := EncodeDate(2000, 1, 1);
    DateTo := EncodeDate(2015, 1, 1);
    sDateFrom := '01/01/2000';
    sDateTo := '01/01/2015';

    ShowMessageFmt('Mandando dates: %s', [ConcatDates(DateFrom, DateTo)]);
    ShowMessageFmt('Mandando strings: %s', [ConcatDates(sDateFrom, sDateTo)]);
end;

Saludos y person si no entendi bien