Основы языка Delphi



Листинг 2 5 Вычисление даты следующего дня (фрагмент)



Листинг 2.5. Вычисление даты следующего дня (фрагмент)


// вычисление даты следующего дня

var

day: integer; // день

month: integer; // месяц

year: integer; // гОД

last:boolean; // если день — последний день месяца,

// то last = True

r:integer; // если год не високосный, то остаток

// от деления year на 4 не равен нулю

begin

{ переменные day, month и year содержат сегодняшнюю дату }

last := False; // пусть день — не последний день месяца

case month of 4,6,9,11:

if day = 30 then last:= True; 2:

if day = 28 then begin

r:= year mod 4; if r <> 0 then last:= True;

end;

else: if day=31 then last:= True;

end; if last then

begin // последний день месяца day:= 1;

if month =12 then

begin // последний месяц

month:= 1;

year:= year + 1;

end

else month:= month + 1;

end

else day:= day + 1;

// переменные day, month и year // содержат завтрашнюю дату

end;












Содержание  Назад  Вперед