Даны a1,b1,c1, и a2,b2,c2 которые обозначают две даты. Нужно вычислить кол-во дней между этими датами

[Рафиль]

нужно написать программу вычисления количества дней между введенными датами

Даны a1,b1,c1, и a2,b2,c2 которые обозначают две даты. Нужно вычислить кол-во дней между этими датами



_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться.

Модератор.

[Serge_Bliznykov]

Рафиль, ни "здрасте", ни "пожалуйста"...
ну, раз Вам надо - пишите.
От нас то что требуется? Разрешение?!


p.s. а ещё в поиск по форуму можете сходить, подобные задачи неоднократно решались!

[Рафиль]

Извините меня, Здравствуйте, прост седня уже после обеда сдавать надо, спешу... помогите пож-ста написать программу к этой задаче в паскаль, я в программировании не очень понимаю

[Serge_Bliznykov]

ладно. будем считать, что Вы такой невежливый только по запарке...

поискал по форуму. не нашёл полного решения.
ладно. не проблема. может быть ещё кому-то пригодится.

разбирайтесь.

расчёт количества дней между двумя датами

{*                    OPDATE.PAS 1.21                    *}
{*     Copyright (c) TurboPower Software 1988, 1992.     *}

function IsLeapYear(Year: Integer): Boolean;
    {-Return True if Year is a leap year}
begin
  IsLeapYear := (Year mod 4 = 0)
    and (Year mod 4000 <> 0) and
    ((Year mod 100 <> 0) or (Year mod 400 = 0));
end;


function DaysInMonth(Month, Year: Integer): Integer;
    {-Return the number of days in the specified month of a given year}
begin
  case Month of
    1, 3, 5, 7, 8, 10, 12:
      DaysInMonth := 31;
    4, 6, 9, 11:
      DaysInMonth := 30;
    2:
      DaysInMonth := 28 + Ord(IsLeapYear(Year));
  else
    DaysInMonth := 0;
  end;
end;

function ValidDate(Day, Month, Year: Integer): Boolean;
    {-Verify that day, month, year is a valid date}
begin

  if (Day < 1) or (Year < 1600) or (Year > 3999) then
    ValidDate := False
  else case Month of
      1..12:
        ValidDate := Day <= DaysInMonth(Month, Year);
    else
      ValidDate := False;
    end
end;


function Date2julian(pDay, pMonth, pYear: integer): longint;
var
  month, day, year: longint;
  ta, tb, tc: longint;
begin
  month := pMonth;
  day := pDay;
  year := pYear;
  if month > 2 then
    month := month - 3
  else
  begin
    month := month + 9;
    year := year - 1;
  end;
  ta := 146097 * (year div 100) div 4;
  tb := 1461 * (year mod 100) div 4;
  tc := (153 * month + 2) div 5 + day + 1721119;
  Date2julian := ta + tb + tc
end;

function DaysBetween(Day1, Month1, Year1, Day2, Month2, Year2: integer): integer;
var D1, D2: longint;
begin
  D1 := Date2julian(Day1, Month1, Year1);
  D2 := Date2julian(Day2, Month2, Year2);
  if D1 > D2 then
    DaysBetween := D1 - D2
  else
    DaysBetween := D2 - D1;
end;


var
  a1, b1, c1, a2, b2, c2: integer;
begin
  WriteLn('Введите первую дату (три числа: день месяц год) : ');
  Readln(a1, b1, c1);
  if not ValidDate(a1, b1, c1) then begin
    WriteLn('Ошибка! Вы ввели несуществующую дату!');
    WriteLn('Bye!');
    Readln;
    Halt(1);
  end;
  WriteLn('Введите вторую дату (три числа: день месяц год) : ');
  Readln(a2, b2, c2);
  if not ValidDate(a2, b2, c2) then begin
    WriteLn('Ошибка! Вы ввели несуществующую дату!');
    WriteLn('Bye!');
    Readln;
    Halt(1);
  end;

  Writeln('Количество дней между датами равно ', DaysBetween(a1, b1, c1, a2, b2, c2));
  Readln;
end.

[Рафиль]

спасибо большое, все работает)))) теперь пойду сдавать... защищать...

[Рафиль]

извините, а можно это написать по простому, с операторами if и case, без функций, мне сказали переделать

[Vanta11a]

извините, а можно это написать по простому, с операторами if и case, без функций

Извините, но нельзя ли начать учиться самостоятельно?

Там же все подробнейшим образом прокомментировано, абсолютно все.