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

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

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

worldmen ©   (2005-09-07 12:59:00) 

форматирую дату в строку так(такие данные мне нужны):
      FormatDateTime('yyyymm',Now);
А еще мне надо наоборот из 'yyyymm' в дату.
Как это сделать?

---

Fay   (2005-09-07 16:24:00) [1]

2 worldmen ©   (07.09.05 16:06) [3]
function StrToDate(const S: string; const FormatSettings: TFormatSettings): TDateTime; overload;
+ F1

---

worldmen   (2005-09-07 16:06:00) [2]

Большое спасибо Zeqfreed!
Версия Delphi 7.

---

Fay   (2005-09-07 14:40:00) [3]

2 worldmen ©   (07.09.05 12:59)
какая версия Delphi?

---

Zeqfreed   (2005-09-07 14:18:00) [4]

worldmen ©   (07.09.05 12:59)
function DateYYYYMM(const date : String) : TDateTime;
var
year, month : Word;
begin
try
 year := StrToInt(Copy(date, 1, 4));
 month := StrToInt(Copy(date, 5, 2));
except
 raise Exception.Create('Invalid argument to convert');
end;

Result := EncodeDate(year, month, 1);
end;

Незнаю, возможно есть более универсальные и стандартные решения.

---

Наверх