Жми-форум обо всём

[b]var[/b]
myDate : TDateTime;
[b]begin[/b]
[b][/b][color=#008000][b]// Установка нашей переменной TDateTime в полное значение даты и времени:[/b][/color]
[color=#008000][b]// 09/02/2000 в 01:02:03.004  (.004 миллисекунд)[/b][/color]
myDate := EncodeDateTime(2000, 2, 9, 1, 2, 3, 4);
[b][color=#008000]// Только дата - числовые значения без начальных нулей (кроме года)[/color][/b]
ShowMessage('              d/m/y = '+
[color=#C00000][b]FormatDateTime[/b][/color]('d/m/y', myDate));
[b][color=#008000]// Только дата - числовые значения с начальными нулями[/color][/b]
ShowMessage('           dd/mm/yy = '+
[color=#C00000][b]FormatDateTime[/b][/color]('dd/mm/yy', myDate));
[b][color=#008000]// Использование коротких названий для дня, месяца, и добавление текста свободного формата ('of')[/color][/b]
ShowMessage('  ddd d of mmm yyyy = '+
[color=#C00000][b]FormatDateTime[/b][/color]('ddd d of mmm yyyy', myDate));
[b][color=#008000]// Использование длинных названий для дня и месяца[/color][/b]
ShowMessage('dddd d of mmmm yyyy = '+
[color=#C00000][b]FormatDateTime[/b][/color]('dddd d of mmmm yyyy', myDate));
[b][color=#008000]// Использование настроек только ShortDateFormat[/color][/b]
ShowMessage('              ddddd = '+
[color=#C00000][b]FormatDateTime[/b][/color]('ddddd', myDate));
[b][color=#008000]// Использование настроек только LongDateFormat[/color][/b]
ShowMessage('             dddddd = '+
[color=#C00000][b]FormatDateTime[/b][/color]('dddddd', myDate));
[b][color=#008000]// Использование настроек ShortDateFormat + LongTimeFormat[/color][/b]
ShowMessage('                  c = '+
[color=#C00000][b]FormatDateTime[/b][/color]('c', myDate));
[b]end;[/b]

[b][color=#008000]// Установка нашей переменной TDateTime в то же самое значение, что и прежде[/color][/b]
[color=#008000][b]// за исключением того, что мы должны использовать новые разделители даты и времени[/b][/color]
[color=#008000][b]// Здесь имеет действие только переменная TwoDigitYearCenturyWindow[/b][/color]
myDate := StrToDateTime('09-02-49 01_02_03.004');
[b][color=#008000]// Использование значений DateSeparator и TimeSeparator[/color][/b]
ShowMessage('dd/mm/yy hh:mm:ss = '+
[color=#C00000][b]FormatDateTime[/b][/color]('dd/mm/yy hh:mm:ss', myDate));
[b][color=#008000]// Использование ShortMonthNames[/color][/b]
ShowMessage('              mmm = '+[color=#C00000][b]FormatDateTime[/b][/color]('mmm', myDate));
[b][color=#008000]// Использование LongMonthNames[/color][/b]
ShowMessage('             mmmm = '+[color=#C00000][b]FormatDateTime[/b][/color]('mmmm', myDate));
[b][color=#008000]// Использование ShortDayNames[/color][/b]
ShowMessage('              ddd = '+[color=#C00000][b]FormatDateTime[/b][/color]('ddd', myDate));
[b][color=#008000]// Использование LongDayNames[/color][/b]
ShowMessage('             dddd = '+[color=#C00000][b]FormatDateTime[/b][/color]('dddd', myDate));
[b][color=#008000]// Использование строки ShortDateFormat[/color][/b]
ShowMessage('            ddddd = '+[color=#C00000][b]FormatDateTime[/b][/color]('ddddd', myDate));
[b][color=#008000]// Использование строки LongDateFormat[/color][/b]
ShowMessage('           dddddd = '+[color=#C00000][b]FormatDateTime[/b][/color]('dddddd', myDate));
[b][color=#008000]// Использование TimeAmString[/color][/b]
ShowMessage('           hhampm = '+[color=#C00000][b]FormatDateTime[/b][/color]('hhampm', myDate));
[b][color=#008000]// Использование строки ShortTimeFormat[/color][/b]
ShowMessage('                t = '+[color=#C00000][b]FormatDateTime[/b][/color]('t', myDate));
[b][color=#008000]// Использование строки LongTimeFormat[/color][/b]
ShowMessage('               tt = '+[color=#C00000][b]FormatDateTime[/b][/color]('tt', myDate));
[b][color=#008000]//Использование TwoDigitCenturyWindow[/color][/b]
ShowMessage('       dd/mm/yyyy = '+
[color=#C00000][b]FormatDateTime[/b][/color]('dd/mm/yyyy', myDate));
[b]end;[/b]