Question

How to calculate the week number for a given date in Pascal

Answer 1

program WeekNumberCalculator;

uses
  SysUtils, DateUtils;

var
  InputDate: TDateTime;
  WeekNumber: Integer;
begin
  InputDate := EncodeDate(2025, 3, 14);
  
  // Calculate the week number
  WeekNumber := WeekOfTheYear(InputDate); 
  
  WriteLn('The week number for ', DateToStr(InputDate), ' is: ', WeekNumber);
end.



(*
run:

The week number for 14-3-25 is: 11

*)

 

70+ SQL courses for beginners and professionals