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

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

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

syte_ser78 ©   (2006-04-05 09:03:00) 

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

---

syte_ser78   (2006-04-05 09:45:00) [1]

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

---

syte_ser78   (2006-04-05 09:42:00) [2]

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

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

не выходит

---

balepa   (2006-04-05 09:28:00) [3]

А Справкой надо уметь пользоваться.
Можеш сначала вызвать 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;

---

Ksenom   (2006-04-05 09:25:00) [4]


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;

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

---

syte_ser78   (2006-04-05 09:19:00) [5]

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

---

balepa   (2006-04-05 09:07:00) [6]

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"

---

Наверх