| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

время [D7, XP]

rosl ©   (2006-05-11 10:11:00) 

как к времени (например) 10:01:05 прибавить 5 минут

---

balepa   (2006-05-11 13:39:00) [1]

Удалено модератором
Примечание: Offtopic

---

Пусик   (2006-05-11 13:27:00) [2]

Удалено модератором
Примечание: Offtopic

---

balepa   (2006-05-11 13:20:00) [3]

> rosl   (11.05.06 10:11)  


А хотя бы до такого додуматься трудно было ?

procedure TForm1.Button1Click(Sender: TObject);
var
  D1: TDateTime;
begin
  D1:= StrToDateTime('01.01.06 10:01:05');
  D1:= D1 + StrToDateTime('00:05:00');
  ShowMEssage(DateTimeToStr(D1));
end;

---

DesWind   (2006-05-11 12:49:00) [4]

TDateTime это количество суток прошедших с 12/30/1899

---

VitalZ   (2006-05-11 12:45:00) [5]

Или например к вещественной переменной добавить просто 0.00345

---

Сергей М.   (2006-05-11 10:14:00) [6]

С помощью EncodeTime()

---

Рамиль   (2006-05-11 10:14:00) [7]

+ 5/1440
или воспользоваться
function IncMinute(const AValue: TDateTime; const ANumberOfMinutes: Int64 = 1): TDateTime
из DateUtils.pas

---

Наверх