Головна сторінка
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.81 MB
Час: 0.021 c
1-22248
Левіафан
2001-12-17 13:07
2002.01.08
Дельфі знущається !!!


3-21987
добре
2001-12-06 08:44
2002.01.08
RxLib


1-22104
DerZky
2001-12-18 19:54
2002.01.08
Як порівняти дати.


1-22202
T2
2001-12-16 07:12
2002.01.08
До питання про маленьких виконуваних файлах


3-21902
Andrey Pogorelov
2001-12-02 10:49
2002.01.08
Проблема зі складанням запиту і виведенням його в QReport





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