Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 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]

і правильно пише! А де взагалі використовується отриманий результат?! Змінна - то локальна



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.56 MB
Час: 0.025 c
3-21924
Андрій
2001-12-04 14:37
2002.01.08
DbLookUpComboBox


1-22181
Харчування
2001-12-21 11:12
2002.01.08
Як заборонити переміщення форми мишю?


4-22465
АКВ
2001-11-02 10:44
2002.01.08
як визначити handle вікна над яким знаходиться миша


3-21996
vinni2000
2001-12-06 11:47
2002.01.08
Як за допомогою запиту вибрати дані з Query


7-22427
KLM
2001-09-20 06:34
2002.01.08
Захист програми від копіювання





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська