Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

Вниз

Як порівняти дати. Знайти схожі гілки


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

Добрий день. Завдання така: при першому запуску проги треба записати дату запуску в реєстр, при наступних обчислювати змінну типу Integer між сьогоднішньою датою і датою записаною в реєстрі. Якщо можна відповідь з кодом. Дякуємо.



Anatoly Podgoretsky   (2001-12-18 20:39) [1]

Ну ти даєш :-)
Змінна типу TDate {Time} типу Double, де ціле це кількість днів, невже ще потрібен приклад?



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

Так, чи що
procedure TForm1.Button1Click (Sender: TObject); var SD, SD2: String; D, D2: TDateTime; D3: Double; begin DateSeparator: = "."; SD: = "30.10.00"; SD2: = "01.12.00"; D: = StrToDate (SD); D2: = StrToDate (SD2); D3: = D2-D; end;



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

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

наверх









Пам'ять: 0.55 MB
Час: 0.08 c
6-22313
SB
2001-10-01 15:05
2002.01.08
Допоможіть мережевого недоучки! пожайлуста


1-22047
handra
2001-12-17 13:12
2002.01.08
створення довідки


14-22318
обмороження
2001-10-31 17:11
2002.01.08
Перемотка


7-22432
Voldemar
2001-09-25 04:12
2002.01.08
Призначення пріоритету прізапуске ...


3-21954
strahov
2001-12-05 15:32
2002.01.08
Хто-небудь зустрічався з багом





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