Лабораторна робота №15 Створення програм з використанням дати та часу.

 Лабораторна робота №15 Створення програм з використанням дати та часу. 

Мета: Навчитись створювати програми з використанням дати та часу.

Теоретичний матеріал посилання 

Завдання 1. Організувати введення дати народження  та сьогоднішньої дати. Провести розрахунок тривалості життя.

Завдання  2. Організувати введення двох дат та визначити часовий проміжок між цими датами.

Завдання  3 Ввести дати. Визначити день тижня. Скористатись формулами розрахунків "Як за датою обчислити день тижня?": посилання  (https://genomukr.com/rizne/26518-jak-za-datoju-obchisliti-den-tizhnja.html) .

Завдання  4 Визначити час роботи вашої програми після її запуску. Інформацію відобразити у нижньому рядку:  StatusBar .

Завдання  5 Написати програму визначення  дати Великодня. Скоритсатися алгоритмом Гауса для обчислення дати Великодня. Посилання на вікіпедію. Для перевірки правильності роботи програми скористайтеся таблицею у Вікіпедії (дивись посилання).

Приклад коду:

newDate := IncDay(EncodeDate (Year, Month, Day) , 14); //використовується модуль         DateUtils тут додаємо 14 днів EncodeDate створюю задану дату

form1.Label12.Caption:= DateToStr (newDate) ;

   //dt:= now;     // поточна дата

dt := form1.DateTimePicker1.Date;  //визначена дата тобто введена з компоненту DateTimePicker

form1.Label11.Caption:= DateToStr (dt) ; //виводимо дату

difference := DaysBetween(newDate, dt); //використовується модуль DateUtils тут різницю днів

if dt<newDate then  s:=''

                  else  begin s:='пройшло'; newdt:=dt; dt:=newDate; newDate:=newdt; end;//переставити дати тобто прйшов час або пусто якщо дати розташовано вірно

form1.Label13.Caption:= s+intToStr (difference )+ ' днів ' ;

  // Припустимо, що у вас є дві дати:

  //date1 := EncodeDate(2022, 1, 1); // перша дата

  //date2 := Now; // друга дата (поточна дата ≥ час)

  // «находимо різницю між датами в місцях та днях

  //monthsDifference := MonthsBetween(date1, date2);

  //daysDifference := DaysBetween(date1, IncMonth(date1, monthsDifference));

monthsDifference := MonthsBetween(newDate, dt);    //різниця у місяцях

daysDifference := DaysBetween(newDate, IncMonth(dt, monthsDifference)); //різниця у датах з урахуванням місяців

form1.Label15.Caption:=s+ ' кількість місяців: '+ IntToStr( monthsDifference)+ '   кількість днів: '+ IntToStr (daysDifference);