Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.025 c