Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

Как сравнить даты и разницу между ними получить Integer 


DerZky   (2001-12-19 18:14) [0]

Как сравнить две даты и разницу между ними записать в переменную типа Integer. Например чтобы 21.12.2001 минус 19.12.2001 было равно 2.



Mick   (2001-12-19 18:18) [1]

Trunc(EncodeDate(2001,12,21) - Trunc(EncodeDate(2001,12,19) как раз и равно 2



DerZky   (2001-12-19 19:46) [2]

Написал я следующее

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
В чем дело?



LLL   (2001-12-19 21:16) [3]

Это просто предупреждение, что Cifra более нигде не используется.
Беспокоится - не забыли ли Вы о Cifra?



a100   (2001-12-19 21:16) [4]

и правильно пишет ! А где вообще используется полученный результат ?! Переменная - то локальная




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.032 c
14-22403          Burmistroff           2001-11-11 20:13  2002.01.08  
Супер справочник по Delphi -2. Ваше мнение, please.


1-22176           Serg5                 2001-12-20 14:57  2002.01.08  
Опять проблема с текстом: вывожу на экран Image1.Canvas.TextOut, но под самим текстом белый беграунд. Можно ли если не убрать(просто наложить буквы), то хотя бы беграунд сделать чёрным.


1-22011           KSergey               2001-12-16 14:26  2002.01.08  
Как отловить клавишу TAB?


3-21945           asafr                 2001-12-04 18:11  2002.01.08  
FastReport. frBand.Visible


1-22157           Flagman               2001-12-20 13:55  2002.01.08  
Найти два возврата каретки подряд.