سلام
اختلاف عددی تاریخ شمسی و میلادی 7749 روز است-برای تبدیل شمسی به هجری از کد زیر استفده کنید.
function TForm1.ShamsiToHijri(y,m,d: word):TDate;
const
sumdays:array[0..11] of word=
(0,31,62,93,124,155,186,216,246,276,306,336 1;;
begin
result:= ((y*365)+ sumdays[m-1]+ d + ((y div 4)+1));
end;
و نحوه فراخوانی آن
var
dt: TDATE;
begin
dt:= ShamsiToHijri(83,3,3)+7749;
Edit1.Text:= DateToStr(dt);
end;