/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/DateTime2.pas
34 строки
1 KB
Artem Pelenitsyn
change encoding for all *.pas and *.cs files: cp1251 -> utf-8
28 дек 2015, 14:25
28 дек 2015, 14:25
49378a6
Код
Авторство
О чём код?
Uses System; var d: DateTime; s: string; begin s := '27.03.2008 9:58:17'; //Попытка преобразования строки в объект DateTime if not DateTime.TryParse(s, d) then begin Writeln('Строка не содержит значение даты и времени'); Exit; end; // Проверка високосности заданного года с помощью статического метода if DateTime.IsLeapYear(d.Year) then Writeln('Год високосный') else Writeln('Год невисокосный'); // Преобразование даты и времени в строковое представление s := d.ToString; Writeln(s); // Преобразование даты в строковое представление s := d.ToShortDateString; Writeln(s); // Преобразование времени в строковое представление s := d.ToShortTimeString; Writeln(s); end.