کد کامل تبدیل تاریخ میلادی به شمسی:

[yanin]

فقط یه جای کار میلنگه*
اونم سالای کبیسه هست

[zahra303]

Function MiladiToShamsi(var Year, Month, Day: Word): String;
const
count_days : array[1..12] of Byte = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
var
i: Byte;
st: String;
day_year: Integer;
begin
day_year:= 0;
for i:= 1 to month - 1 do
day_year:= day_year + count_days;
day_year:= day_year + day;
if IsLeapYear(Year) and (month > 2) then
Inc(day_year);
if (day_year

[admin]

نقل قول از yanin
فقط یه جای کار میلنگه*
اونم سالای کبیسه هست




تو این پست یه تابع خوب واسه این کار گذاشتم . این دیگه هیچگونه مشکلی نداره.اوکی ؟

<span style="font-family: trebuchet ms"><font size="3"><font color="Indigo"><b><font color="red">[فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>]</font></b></font></font></span>

[b_e_shamlu]

با سلام
تمامی این یونیتها یک مشکل کوچیک دارند و اون هم اینکه اگه بخواهیم تاریخ را به جدول خود اضافه کنیم باید یک فیلد بصورت کارکتری داشته باشیم که تاریخ خود را در آن بریزید و این اولین مشکل میباشد
امام کامپوننتی که گذاشتم این مشکل را ندارد فقط کافی است سه آبجکت را به فرم اضافه کنید و بعد از اضافه کردن فیلدهای جدول به آبجکت ADO فیلدهای که بصورت تاریخ میباشد را حذف کنید و بصورت دستی فیلد فوق را بصورت new* اضافه کنید و نوع آن را در آخری به Xdate* تغییر دهید خواهید دید که یک ردیف به قسمت پراپرتیز آن اضافه شده که کافی است یک از آن آبجکتهای که اضافه کرده اید تخصیص دهید ادامه آن را میتوانید خود شما از قسمت مثال آن استفاده کنید فقط یادتان نرود اول برنامه را اضافه کنید بعد فایل مثال را اجرا کنید خواهید دید که خیلی عالی است تمامی مشکلات شما حل خواهد شد
کامپوننت برای دانلود* * * * * * * * * * * دانلود Solar_Calendr (<span style="font-family: trebuchet ms"><font size="3"><font color="Indigo"><b><font color="red">[فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>]</font></b></font></font></span>) **