دوست عزیز.
به این راحتی ها هم نیست.
چون 31/7/86 وجود نداره و همچنین بعضی سالها کبیسه هست.
ولی راحتترین راه که فقط تا حدودی درست باشه همین راه شماست.
Printable View
دوست عزیز.
به این راحتی ها هم نیست.
چون 31/7/86 وجود نداره و همچنین بعضی سالها کبیسه هست.
ولی راحتترین راه که فقط تا حدودی درست باشه همین راه شماست.
دوست عزیز به این سختیها هم که گفتی نیست !نقل قول:
ببین با تابع SolarToGregorian شما می تونید تست کنید که آیا تاریخ شمسی وارد شده صحیح است یا خیر چون اگر به میلادی تبدیل نشود یعنی اشتباه وارد شده ...
یا حق ...کد:var
a, b, c: Word;
begin
//;
a := 1360;
b := 12;
c := 13;
// syntax: SolarToGregorian(var Year, Month, Day: Word): Boolean;
Label1.Caption := IntToStr(DWORD( SolarToGregorian(a, b, c) ));
end;