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

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

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

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




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

[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

با سلام
تمامی این یونیتها یک مشکل کوچیک دارند و اون هم اینکه اگه بخواهیم تاریخ را به جدول خود اضافه کنیم باید یک فیلد بصورت کارکتری داشته باشیم که تاریخ خود را در آن بریزید و این اولین مشکل میباشد
امام کامپوننتی که گذاشتم این مشکل را ندارد فقط کافی است سه آبجکت را به فرم اضافه کنید و بعد از اضافه کردن فیلدهای جدول به آبجکت ADO فیلدهای که بصورت تاریخ میباشد را حذف کنید و بصورت دستی فیلد فوق را بصورت new* اضافه کنید و نوع آن را در آخری به Xdate* تغییر دهید خواهید دید که یک ردیف به قسمت پراپرتیز آن اضافه شده که کافی است یک از آن آبجکتهای که اضافه کرده اید تخصیص دهید ادامه آن را میتوانید خود شما از قسمت مثال آن استفاده کنید فقط یادتان نرود اول برنامه را اضافه کنید بعد فایل مثال را اجرا کنید خواهید دید که خیلی عالی است تمامی مشکلات شما حل خواهد شد
کامپوننت برای دانلود* * * * * * * * * * * [برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید] **