اگر نخواستی از روش آقا امید استفاده کنی تابع زیر را امتحان کن.
function day(y,m,d:integer):string;
var
r,k,b,a,l,s:integer;
begin
r:=y mod 4;
k:=y div 4;
if r=3 then k:=k+1;
b:=y+k-1622;
if y>=1298 then a:=b mod 7 else a:=b+(trunc(abs(b)/7)+1)*7;
if a=0 then a:=7;
l:=((m-1)*31+d-(m-7)*trunc(m/7)) mod 7;
s:=a+l-1;
if s>=7 then s:=s mod 7;
Case s Of
0:day:='Friday';
1:day:='Saturday';
2:day:='Sunday';
3:day:='Monday';
4:day:='Tuesday';
5:day:='Wednesday';
6:day:='Thursday';
end;
end;
در این تابع ورودیهای y و m و d همان تاریخ شما به هجری شمسی هستند.
y:سال مثلاً 1382
m:ماه
d:روز