формат вывода даты и время

← →
syte_ser78 © (2006-04-05 09:03) [0]

Как получить значение времени и даты в виде dd:mm:yy?
В смысле если сегодня 5.4.2006 то получить 05:04:06

← →
balepa © (2006-04-05 09:07) [1]

function DateTimeToStr(DateTime: TDateTime): string; overload;
function DateTimeToStr(DateTime: TDateTime; const FormatSettings: TFormatSettings): string;

function DateToStr(Date: TDateTime): string; overload;
function DateToStr(const DateTime: TDateTime; const FormatSettings: TFormatSettings): string; overload;

function StrToDateTime(const S: string): TDateTime; overload;
function StrToDateTime(const S: string; const FormatSettings: TFormatSettings): TDateTime
; overload;
Выбирай.
F1 + "FunctionName"

← →
syte_ser78 © (2006-04-05 09:19) [2]

да вот с FormatSettings и проблема. Не могу понять как его указывать.

← →
Ksenom © (2006-04-05 09:25) [3]

function TForm1.MtToDt(Mt:shortstring):TDateTime; var OldFormat :ShortString; Separator :Char; begin OldFormat:=ShortDateFormat; Separator:=DateSeparator; ShortDateFormat:="yyyy/mm/dd HH:MM"; DateSeparator:="/"; Result:=StrToDateTime(Mt); ShortDateFormat:=OldFormat; DateSeparator:=Separator; end;

Примитивно, но работает. Есть где поизвращаться

← →
balepa © (2006-04-05 09:28) [4]

А Справкой надо уметь пользоваться.
Можеш сначала вызвать GetLocaleFormatSettings. А потом поменять что тебе надо. Разбирайся.
Думаю что тебе нужны вот эти:
----------------------------------------------
DateSeparator: Char; //разделитель даты
TimeSeparator: Char; //времени

ShortTimeFormat: string; //точнее она если основываться на 05:04:06
LongTimeFormat: string;

ShortMonthNames: array[1..12] of string;
LongMonthNames: array[1..12] of string;
ShortDayNames: array[1..7] of string;
LongDayNames: array[1..7] of string;

----------------------------------------------
ShortDateFormat := "mm:dd:yy";

type
TFormatSettings = record
CurrencyFormat: Byte;
NegCurrFormat: Byte;
ThousandSeparator: Char;
DecimalSeparator: Char;
CurrencyDecimals: Byte;
DateSeparator: Char;
TimeSeparator: Char;
ListSeparator: Char;
CurrencyString: string;
ShortDateFormat: string;
LongDateFormat: string;
TimeAMString: string;
TimePMString: string;
ShortTimeFormat: string;
LongTimeFormat: string;

ShortMonthNames: array[1..12] of string;
LongMonthNames: array[1..12] of string;
ShortDayNames: array[1..7] of string;
LongDayNames: array[1..7] of string;
TwoDigitYearCenturyWindow: Word;
end;

с датой все ок
со временем

ShortTimeFormat:="HH:MM:SS";
label3.Caption:=TimeToStr(time);

не выходит

Извиняюсь. Все понял.
Спасибо

формат вывода даты и время Найти похожие ветки