Форум: "Начинающим";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];
ВнизФорматирование даты. Найти похожие ветки
← →
worldmen © (2005-09-07 12:59) [0]форматирую дату в строку так(такие данные мне нужны):
FormatDateTime("yyyymm",Now);
А еще мне надо наоборот из "yyyymm" в дату.
Как это сделать?
← →
Zeqfreed © (2005-09-07 14:18) [1]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;
Незнаю, возможно есть более универсальные и стандартные решения.
← →
Fay © (2005-09-07 14:40) [2]2 worldmen © (07.09.05 12:59)
какая версия Delphi?
← →
worldmen © (2005-09-07 16:06) [3]Большое спасибо Zeqfreed!
Версия Delphi 7.
← →
Fay © (2005-09-07 16:24) [4]2 worldmen © (07.09.05 16:06) [3]
function StrToDate(const S: string; const FormatSettings: TFormatSettings): TDateTime; overload;
+ F1
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.101 c