Пятница 13 с потоками Делфи, Delphi

[Djavol]

Нужно сделать программу в Делфи 7, найти сколько пятниц 13 в промежутке дат, которую мы указываем сами. Например, 01.01.16 до 01.01.17 столько то пятниц 13-х, и ЭТО ВСЕ ОБЯЗ с потоками (Tthread)

Может у кого есть готовый вариант, у самой никак не получается! Замучалась уже!

[type_Oleg]

Есть функция DayOfWeek
А зачем потоки - непонятно.

[Djavol]

function DayOfTheWeek(const AValue: TDateTime): Word;
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);

Знаю, вот никак не получается.
Это для учебы.

[Foreseen]

Сообщение от Djavol

function DayOfTheWeek(const AValue: TDateTime): Word;
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);

Знаю, вот никак не получается.
Это для учебы.

Так а что именно не получается? Придумать алгоритм или реализовать его? Выложите ваши наработки.

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var t1,t2,t:integer;
    Year,Month,Day,dn:Word;
begin
   Memo1.Clear;
   t1:=Trunc(StrToDateTime(Edit1.Text));
   t2:=Trunc(StrToDateTime(Edit2.Text));
   For t:=t1 to t2 do
   begin
      DecodeDate(t,Year,Month,Day);
      dn:=DayOfWeek(t);
      If (dn=6) and (Day=13) then
         Memo1.Lines.Add(FormatDateTime('dd.mm.yyyy ddd',t));
   end;
end;

[Djavol]

Это же без потоков, но все равно спасибо! А есть с потоками?

[Djavol]

Сообщение от Foreseen

Так а что именно не получается? Придумать алгоритм или реализовать его? Выложите ваши наработки.

Сообщение от Foreseen

Так а что именно не получается? Придумать алгоритм или реализовать его? Выложите ваши наработки.

Понимаю алгоритм, но код не могу написать. Просто не работает

[Artsiom]

Так выложите что не работает.