Привет, я хочу в качестве совета поделиться функцией DateSer, которую я написал
перед этим на VB. Данная функция весьма полезна но, к сожалению, ее нет в
Delphi. Применяется она так:
function DateSer(y, m, d: Integer): TDateTime;
const
mj: array[1..12] of Integer = (31, 28, 31, 30, 31, 30, 31,
31, 30, 31, 30, 31);
var
add: Integer;
beginwhile (true) dobegin
y := y + (m - 1) div 12;
m := (m - 1) mod 12 + 1;
if m <= 0 thenbegin
Inc(m, 12);
Dec(y);
end;
if ((y mod 4 = 0) and
((y mod 100 <> 0) or (y mod 400 = 0)))
and (m = 2) then
add := 1 //дополнительный день в февралеelse
add := 0;
if (d > 0) and (d <= (mj[m] + add)) then
break;
if d > 0 thenbegin
Dec(d, mj[m] + add);
Inc(m);
endelsebegin
Inc(d, mj[m] + add);
Dec(m);
end;
end;
Result := EncodeDate(y, m, d);
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Функция DateSer", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!