/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/NETLibraries/System.DateTime/DateTime2.pas
30 строк
1018 B
Mikhalkovich Stanislav
Примеры - устранил неточности
04 янв 2025, 14:44
04 янв 2025, 14:44
c2347e6
Код
Авторство
О чём код?
Uses System; begin var s := '03.27.2008 9:58:17'; //Попытка преобразования строки в объект DateTime var d: DateTime; if not DateTime.TryParse(s, d) then begin Println('Строка не содержит значение даты и времени'); Exit; end; // Проверка високосности заданного года с помощью статического метода if DateTime.IsLeapYear(d.Year) then Println('Год високосный') else Println('Год невисокосный'); // Преобразование даты и времени в строковое представление s := d.ToString; Println(s); // Преобразование даты в строковое представление s := d.ToShortDateString; Println(s); // Преобразование времени в строковое представление s := d.ToShortTimeString; Println(s); end.