Вводится 2 даты и определяется кол-во дней между ними

автор PMILY Пн Ноя 16, 2009 8:04 pm

Вводится с клавиатуры 2 даты в формате DD:MM:YYYY, определяется кол-во дней между ними. Как это сделать?

автор **Kidalvь** Пн Ноя 16, 2009 8:10 pm

Код:: var d,m,y,d2,m2,y2,r:integer; a:array[1..12]of byte; begin a[1]:=31; a[3]:=31; a[4]:=30; a[5]:=31; a[6]:=30; a[7]:=31; a[8]:=31; a[9]:=30; a[10]:=31; a[11]:=30; a[12]:=31; r:=0; if SpinEdit5.Value mod 4=0 then a[2]:=29 else a[2]:=28; writeln('Введите 1-ю дату'); readln(d,m,y); writeln('Введите 2-ю дату'); readln(d2,m2,y2); if y>y2 then begin writeln('Ошибка: 1-я дата позже 2-й'); r:=0; end else if (m>m2) and (y=y2) then begin writeln('Ошибка: 1-я дата позже 2-й'); r:=0; end else if (d>d2) and (m=m2) and (y=y2) then begin writeln('Ошибка: 1-я дата позже 2-й'); r:=0; end else while not ((y=y2) and (m=m2) and (d=d2)) do begin d:=d+1; if d>a[m] then begin d:=1; m:=m+1; end; if m>12 then begin m:=1; d:=1; y:=y+1; if y mod 4=0 then a[2]:=29 else a[2]:=28; end; r:=r+1; end; writeln(r); readln; end.

Re: Вводится 2 даты и определяется кол-во дней между ними