/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/!MainFeatures/07_NetLibs/DateTime.pas
28 строк
1 KB
Mikhalkovich Stanislav
Поправил старые примеры 2
12 окт 2025, 22:21
12 окт 2025, 22:21
d6a70ee
Код
Авторство
О чём код?
uses System; begin // Получение текущей даты - вызов статического метода var d1 := DateTime.Now; Println(d1); // Дата и время через один месяц var d2 := d1.AddMonths(1); Println(d2); // Дата и время на 12 часов раньше d2 := d1.AddHours(-12); Println(d2); // Формирование даты - вызов конструктора объекта (год, месяц,число) var d3 := new DateTime(2001, 1, 1); Println(d3); // Определение времени, прошедшего с начала тысячелетия (разность дат) var ts: TimeSpan := d1.Subtract(d3); // Промежуток времени в днях (результат - вещественное число) Println(ts.TotalDays); // Промежуток времени в днях, часах, минутах и секундах Println($'{ts.Days} {ts.Hours}:{ts.Minutes}:{ts.Seconds}'); end.