Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.25;
Скачать: CL | DM;

Вниз

Сделать выч. кол-ва дней, недель, месяцев и годов между датами   Найти похожие ветки 

 
The X ©   (2003-08-14 17:23) [0]

Есть такая проблема. Понятно, на Д6 есть спецю функции для этого. А как это сделать вручную?


 
Чапаев ©   (2003-08-14 17:53) [1]

GetLocalTime


 
VMcL ©   (2003-08-14 17:54) [2]

>The X © (14.08.03 17:23)

А исходники Delphi"ских функций посмотреть религия не позволяет?


 
Романов Р.В. ©   (2003-08-14 21:41) [3]

procedure CalcDateDelta(lDate, hDate: TDate; var dYear, dMonth, dDay: word);
var
yy1, yy2, mm1, mm2, dd1, dd2: word;
begin
if hDate > lDate then
begin
decodedate(lDate, yy1, mm1, dd1);
decodedate(hDate, yy2, mm2, dd2);
if (mm1>mm2) or ((mm1=mm2) and (dd1>dd2)) then
begin
dYear := yy2 - yy1 - 1;
dMonth := 12 - mm1 + mm2;
end
else
begin
dYear := yy2 - yy1;
dMonth := mm2 - mm1;
end;
if dd1>dd2 then
dec(dMonth);
dDay := trunc(hDate -
incmonth(lDate, dYear * 12 + dMonth));
end
else
begin
dYear := 0;
dMonth := 0;
dDay := 0;
end;
end;



Страницы: 1 вся ветка

Текущий архив: 2003.08.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
1-81695
Антон
2003-08-14 21:00
2003.08.25
Какое событие возникает при кликаньи на скроллбар Листбокса


3-81529
BlackKing
2003-07-31 11:37
2003.08.25
Jest li TRUNC ili chto-to podobnoje v IB6?


1-81688
Freemax
2003-08-11 14:51
2003.08.25
SaveDialog


1-81666
TButton
2003-08-10 21:57
2003.08.25
Image Resampling


14-81902
Snake
2003-08-08 17:11
2003.08.25
Заполнение форм