Лабораторная работа №15

Рассмотрим пример, в котором числа 2006, 1, 1 выводятся в формате даты 1.1.2006.

var MyTime: TDateTime;

begin

MyTime := EncodeDate(2006, 1, 1);

Edit1.Text := DateToStr(MyTime); end;

Для вывода в однострочное окно текущей записи на экран необходимо Edit1.Text := DateToStr(Now);

Задания для самостоятельной работы:

1. По введенному номеру года найти количество понедельников в этом году.

2. По введенному номеру года найти количество пятниц 13.