| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как сравнить даты и разницу между ними получить Integer [D5, Win95/98]
DerZky © (2001-12-19 18:14:00)Как сравнить две даты и разницу между ними записать в переменную типа Integer. Например чтобы 21.12.2001 минус 19.12.2001 было равно 2.
LLL (2001-12-19 21:16:00) [1]Это просто предупреждение, что Cifra более нигде не используется.
Беспокоится - не забыли ли Вы о Cifra?
a100 (2001-12-19 21:16:00) [2]и правильно пишет ! А где вообще используется полученный результат ?! Переменная - то локальная
DerZky (2001-12-19 19:46:00) [3]Написал я следующее
procedure TForm1.Button1Click(Sender: TObject);
var
Cifra:Integer;
begin
Cifra:=Trunc(EncodeDate(2001,12,21))-Trunc(EncodeDate(2001,12,19));
end;
а Дельфи пишет - [Hint] Unit1.pas(30): Value assigned to "Cifra" never used
В чем дело?
Mick (2001-12-19 18:18:00) [4]Trunc(EncodeDate(2001,12,21) - Trunc(EncodeDate(2001,12,19) как раз и равно 2
| |
