[решено] Формат даты и времени - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - [решено] Формат даты и времени (http://forum.oszone.net/showthread.php?t=253073)

Формат даты и времени

Здравствуйте, у меня простая задача, присвоить в тэдиты время и дату.

Код:

 

Edit1.Text := DateToStr(Date);

Edit2.Text := TimeToStr(Time);

Работает, но дело в том, что сепаратор в дате мне нужен / и год в двухциферном виде. Например, 03.02.13. А время требуется без секунд.

Уже смотрел DateFormat, DateSeparator, ShortDateFormat и т.д. Второй час сижу, запутался. Подскажите пожалуйста.

Попробуй так.

Код:

var FS: TFormatSettings;

...

GetLocaleFormatSettings (0, FS);

FS.DateSeparator:='/';

FS.ShortDateFormat:='DD/MM/YY';

FS.LongTimeFormat:='HH:mm';

Edit1.Text:=DateToStr (Date, FS);

Edit2.Text:=TiimeToStr (Time, FS);

Огромное спасибо!