17-12-2011, 03:03 PM
اضف ما يلي:
يعد السطر
كود :
if Table1.Fieldvalues['Jour3']> 30 then
begin
Table1.Fieldvalues['Mois3']:= Table1.Fieldvalues['Mois3']+ Table1.Fieldvalues['Jour3'] div 30;
Table1.Fieldvalues['Jour3']:= Table1.Fieldvalues['Jour3'] mod 30;
end;
if Table1.Fieldvalues['Mois3']> 12 then
begin
Table1.Fieldvalues['An_03']:= Table1.Fieldvalues['An_03']+ Table1.Fieldvalues['Mois3'] div 12;
Table1.Fieldvalues['Mois3']:= Table1.Fieldvalues['Mois3'] mod 12;
end;يعد السطر
كود :
Table1.Fieldvalues['Jour3']:= Table1.Fieldvalues['Jour1']+Table1.Fieldvalues['Jour2'];