Работа с датой ?

← →
T10000 (2005-10-18 11:33) [0]

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

← →
Ega23 © (2005-10-18 11:34) [1]

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

← →
Leonid Troyanovsky © (2005-10-18 11:36) [2]

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

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

--
Regards, LVT.

← →
pavel_guzhanov © (2005-10-18 11:38) [3]

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

← →
T10000 (2005-10-18 11:38) [4]

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

← →
TUser © (2005-10-18 11:40) [5]

> Ega23

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

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

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

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

Ужас....

Работа с датой ? Найти похожие ветки