unit procesos;

interface
uses SysUtils;

function fechas(fech:String):integer;

implementation
function fechas(fech:String):integer;
var
a,m,d:word;
dias,bisiestos:Integer;
begin
if fech<>'' then
begin
DecodeDate(StrToDate(fech),a,m,d);
a:=a-1980;
bisiestos:= a div 4;
if (a mod 4=0) and (m>2) then
bisiestos:=bisiestos+1;
dias:=(a*365)+((m-1)*30)+d+bisiestos;
end;
fechas:=dias;
end;


end.