Hi list,

A friend of mine started a hobby project:
Printing every Friday the 13, in a range of 5
years<http://blogs.perl.org/users/sawyer_x/2012/07/yet-another-friday-the-13th.html> .

I lack of the time for doing it at the moment, and I wish to add to his github <https://github.com/xsawyerx/yet-another-friday-the-13th/> also Pascal (and show how much simpler it is then C) implementation. Is there anyone here that might be interested in this ?

Ido

Converting one of the answers there...

uses
  SysUtils;
const
  StartingYear = 2012;
var
  Year,Month: Byte;
  Date: TDateTime;
begin
  for Year in [0 .. 5] do begin
    for Month in [1 .. 12] do begin
      Date := EncodeDate(Year,Month,13);
      if DayOfWeek(Date) = 5 then begin
        WriteLn(FormatDateTime('YYYY-MM-DD',Date));
      end;
    end;
  end;
end.

Sorry, missing one thing: Date := EncodeDate(StartingYear + Year,Month,13);

a quick and dirty solution

On 06/8/12 1:32, leledumbo wrote:

Minor amendment needed to leledumbo's code to give Friday, and a five year range:

uses SysUtils;
const startYr: word = 2012;
var dt: TDateTime;
     year, month: word;
begin
   for year in [0..4] do
    for month in [1..12] do
     begin
       dt := EncodeDate(startYr + year, month, 13);
       if (DayOfWeek(dt) = 6) then
        begin
    	 writeln(FormatDateTime('DDDD, DD-MM-YYYY',dt));
        end;
     end;
end.

Howard