Текущий архив: 2006.04.16;
Скачать: CL | DM;
Вниз
Перевод времени Найти похожие ветки
← →
vova_vova (2006-03-31 10:06) [0]Добрый день! Мне нужно грамотно добавить н-ное кол-во времени к текущему (с учетом даты). Подскажите пожалуйста, как это сделать правильно... Спасибо
← →
Ega23 © (2006-03-31 10:07) [1]Сложение
← →
vova_vova (2006-03-31 10:16) [2]Блин, очень грамотно... А день закончился? Ладно день, тут все понятно, а месяц, как мне узнать что это был последний день месяца?????
← →
Сергей М. © (2006-03-31 10:20) [3]
> vova_vova (31.03.06 10:16) [2]
В переменных каких конкретно типов ты хранишь текущую дату и "добавку" к ней ?
← →
balepa © (2006-03-31 10:20) [4]
> vova_vova (31.03.06 10:16) [2]
> Блин, очень грамотно... А день закончился? Ладно день, тут
> все понятно, а месяц, как мне узнать что это был последний
> день месяца?????
Тебе ничего не надо узнавать Ты главное Сложи
← →
Sergey13 © (2006-03-31 10:22) [5]2 [2] vova_vova (31.03.06 10:16)
Ты бы как то почетче вопрос сформулировал. А то ты еще не знаешь при добавлении времени фазы луны. Может это тебя так же интересует?
← →
vova_vova (2006-03-31 10:25) [6]Пока не знаю в каких хранить, скажите пожалуйста в каких надо. В конечном итоге мне нужна строка дата + время...
← →
balepa © (2006-03-31 10:26) [7]
procedure TForm1.Button1Click(Sender: TObject);
var
D: TDate;
D1: TDate;
begin
D:= StrToDateTime("10.10.06 00:00:59");
D1:= D + StrToDateTime("00:00:01");
ShowMessage(DateTimeToStr(D1));
end;
end.
← →
vova_vova (2006-03-31 10:28) [8]Формулирую четче - знаю время сейчас (Now), надо знать скока будет (например) через 8 часов 42 мин.
← →
Сергей М. © (2006-03-31 10:31) [9]Храни в TDateTime.
var
CurrentDateTime: TDatetime;
TimeToIncrease: TDatetime;
..
TimeToIncrease := 100 / 24; // + 100 часов к текущей
CurrentDateTime := CurrentDateTime + TimeToIncrease;
← →
Ega23 © (2006-03-31 10:35) [10]
> Формулирую четче - знаю время сейчас (Now), надо знать скока
> будет (например) через 8 часов 42 мин.
Прочитай про тип TDateTime
← →
vova_vova (2006-03-31 10:44) [11]Все, все - уже понял... Спасибо большое всем, кто участвовал в направлении меня на путь истинный ;-)
Страницы: 1 вся ветка
Текущий архив: 2006.04.16;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.068 c
