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

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

Работа с датой ? [D7, WinXP]

T10000 ©   (2005-10-18 11:33:00) 

Существует поле Edit в него вписываеться дата, как к этой дате прибавить один день ?

---

Skyle   (2005-10-18 12:50:00) [1]

У меня на стенке висит....
Однажды пришлось показывать и рассказывать про велосипеды....

Ужас....

---

Ega23   (2005-10-18 11:49:00) [2]

> У вас же на стенке висит :)


Не, ТАКОЙ изврат я давать не буду...
По крайней мере в конфе "Начинающим"...
:-))))

---

TUser   (2005-10-18 11:40:00) [3]

> Ega23

У вас же на стенке висит :)

---

pavel_guzhanov   (2005-10-18 11:38:00) [4]

var newDate:TDateTime;
begin
newDate:=StrToDateTime(Edit1.text)+1;
Edit2.text:=DateTimeToStr(newDate);
end;

---

T10000   (2005-10-18 11:38:00) [5]

спасибо щас попробую

---

Leonid Troyanovsky   (2005-10-18 11:36:00) [6]

> T10000   (18.10.05 11:33)  
> Существует поле Edit в него вписываеться дата, как к этой
> дате прибавить один день ?


Преобразовав строку из Edit в TDate и прибавив к оному 1.

--
Regards, LVT.

---

Ega23   (2005-10-18 11:34:00) [7]

Edit1.Text:=DateToStr(StrToDate(Edit1.Text)+1);

---

Наверх