Ответ: Помощь по Delphi
GH0ST сказав(ла):
h:=copy(t,1,2);
m:=copy(t,4,2);
s:=copy(t,7,2);
Формат может быть разный.
Функция FormatDateTime( const Format: string; DateTime: TDateTime ): string;
Модуль: SysUtils
Описание
Функция преобразовывает значение даты и времени типа TDateTime в строку заданного формата. Исходное значение передается в параметре DateTime. Формат результирующей строки определяется параметром Format, который использует следующие элементы форматирования:
Элемент Описание
c Дата и время. Для значения даты используется формат определенный глобальной переменной ShortDateFormat, а для значения времени, формат определенный глобальной переменной LongTimeFormat. Если значение DateTime не содержит дробной части, то время не отображается
d День без нуля впереди (1-31).
dd День с нулем впереди (01-31).
ddd Сокращенное название дня недели ('вс', ..., 'сб'). Строковые значения определяются глобальной переменной ShortDayNames.
dddd Полное название дня недели ('Воскресенье', ..., 'Суббота'). Строковые значения определяются глобальной переменной LongDayNames.
ddddd Дата. Формат определяется глобальной переменной ShortDateFormat.
dddddd Дата. Формат определяется глобальной переменной LongDateFormat.
m Месяц без нуля впереди (1-12).
Если данный символ следует за h или hh, то отображается не месяц, а минуты.
mm Месяц с нулем впереди (01-12).
Если данный символ следует за h или hh, то отображается не месяц, а минуты.
mmm Сокращенное название месяца (янв, ..., дек). Строковые значения определяются глобальной переменной ShortMonthNames.
mmmm Полное название месяца ('Январь' - 'Декабрь'). Строковые значения определяются глобальной переменной LongMonthNames.
yy Год двумя цифрами (00-99).
yyyy Год четырьмя цифрами (0000-9999).
h Час без нуля впереди (0-23).
hh Час с нулем впереди (00-23).
n Минуты без нуля впереди (0-59).
nn Минуты с нулем впереди (00-59).
s Секунды без нуля впереди (0-59).
ss Секунды с нулем впереди (00-59).
t Время. Формат определяется глобальной переменной ShortTimeFormat.
tt Время. Формат определяется глобальной переменной LongTimeFormat.
am/pm Выводит 'am' для любого часа до полудня, и 'pm' для любого часа после полудня. Обозначения 'am/pm' могут быть указаны в верхнем, нижнем и в смешанном регистре. Регистр символов результирующей строки будет соответствовать регистру символов строки формата.
a/p Выводит 'a' для любого часа до полудня, и 'p' для любого часа после полудня. Символы 'a/p' могут быть указаны в верхнем, нижнем и в смешанном регистре. Регистр символов результирующей строки будет соответствовать регистру символов строки формата.
ampm Выводит значение глобальной переменной TimeAMString для любого часа до полудня, и значение глобальной переменной TimePMString для любого часа после полудня.
/ Разделитель полей даты. Результирующий символ разделителя определяется глобальной переменной DateSeparator.
: Разделитель полей времени. Символ разделителя определяется глобальной переменной TimeSeparator.
'xx' "xx" Символы, заключенные в двойные или одиночные кавычки, не форматируются и выводятся один к одному, как есть.
Символы форматирования могут быть указаны как в верхнем, так и в нижнем регистре. Если в параметре Format определена пустая строка, то выполняется форматирование, аналогичное формату при использовании значения строки форматирования 'с'.
Пример
var
S: string;
begin
S:= FormatDateTime( 'Сегодня dddd dd mmm yyyy г.', Date);
MessageDlg( S, mtInformation, [mbOk], 0);
end;