PDA

View Full Version : تبدیل تاریخ به قمری (فوری)


hadavinia
یک شنبه 12 مهر 1383, 19:11 عصر
باسلام به استادان عزیز :)
اگر کامپانت یا روشی برای تبدیل تاریخ میلادی یا شمسی به قمری دارید ذکر نمایید

از شما متشکرم :lol:
Pichidehtarin
دوشنبه 13 مهر 1383, 07:01 صبح
ویندوز XP خودش قمری داره ها . میدونستی؟
ahmadbh
دوشنبه 13 مهر 1383, 14:54 عصر
شما در چه ویندوزی کار می کنید
hadavinia
دوشنبه 13 مهر 1383, 17:49 عصر
می خواهم در هر ویندوزی این کار را انجام دهم با استفاده از برنامه
MToloo
دوشنبه 13 مهر 1383, 21:01 عصر
من یه دونه دارم که با زبون VB هست. میخواییش؟ البته خودم به Delphi تبدیلش کردم. ولی الان دم دست نیست. بعدا برات میفرستمش. عجله که نداری؟ :P
hadavinia
سه شنبه 14 مهر 1383, 18:06 عصر
نه من دلفی کار می کنم
MiRHaDi
چهارشنبه 15 مهر 1383, 03:42 صبح
سلام
من میتونم برات بنویسم
اگه خواستی سفارش بده :)
بای
masoode
چهارشنبه 15 مهر 1383, 07:09 صبح
سلام
من قبلا از همین سایت یک unit گرفتم که تمام توابع مورد نیاز برای تبدیل تاریخ های شمسی و میلادی و قمری توش بود فقط یک اشکالی که داشت این بود که برای هر تاریخی یک فایل مخصوص داشت که اون موقع فقط فایل مخصوص شمسیش بود. اگر نویسنده اون unit صدای من را میشنوه لطفا فایل مخصوص قمریش را هم بگذاره اینجا مردم حالشو ببرن.
مرسی
MToloo
چهارشنبه 15 مهر 1383, 09:44 صبح
با سلام. اینم برنامه ای که قولش و داده بودم:
hadavinia
پنج شنبه 16 مهر 1383, 18:54 عصر
از شما متشکرم
MToloo
جمعه 17 مهر 1383, 01:17 صبح
:flower:
Mahdi-563
سه شنبه 18 اسفند 1383, 09:51 صبح
سلام

قربونت

از شما خیلیییییییییییییییییییییی ییییییییییییییییییییییییی ییییییییییی متشکرم

مهدی
MToloo
چهارشنبه 19 اسفند 1383, 07:49 صبح
خواهش میشه. :wink:
Mahdi-563
دوشنبه 24 اسفند 1383, 10:21 صبح
سلام عزیزم

فقط تو بعضی ماه ها مشکل داره

ممنونم

بای

ضمنا سال 1384 را به تمامی دلفی کارها تبریک میگم.
gbg
دوشنبه 09 خرداد 1384, 22:55 عصر
سلام
دستت درد نکنه
تو بعضی ماهها مشکل داره مثل همین خرداد ماه
اگه اصلاحش کنی چیز خوبی میشه
habiby
سه شنبه 08 فروردین 1385, 16:27 عصر
من نیاز به یک فرمت جدید برای ذخیره عکس در دیتابیس دارم که حجم آن خیلی کم باشد
برای ذخیره حدود دو میلیون عکس لطفا کمک کنید
باتشکر
IKHATAMI
شنبه 25 فروردین 1386, 09:47 صبح
با سلام. اینم برنامه ای که قولش و داده بودم:

ما که برنامه ای نمی بینیم لطفا برای ما هم بگذارید یا برایم ایمیل کن
ikhatami@yahoo.com
FirstLine
سه شنبه 06 فروردین 1387, 10:27 صبح
با سلام
اگه کامپوننت یا کد تبدیل تاریخ به قمری را لطف کنید عالی میشه.
با تشکر
sasan_vm
چهارشنبه 07 فروردین 1387, 17:34 عصر
سلام
این کد با C هست، تبدیل به Delphi کاری نداره:


void MiladiToHijri(TDateTime Miladi, TDateTime& Hijri)
{
int C;
double X, fX, iX;
unsigned short hY, mY, hM, mM, hD, mD;
Miladi.DecodeDate(&mY, &mM, &mD);
C = 13;
X = ((mY - 622) * 365.25) + ((mM - 1) * 30.4375) + mD - 196 - C;
X = (X / 354.367) + 1;
fX = modf(X, &iX);
hY = iX;
fX = (X - iX) * 12;
fX = modf(fX, &iX);
hM = iX + 1;
fX = fX * 29.53058;
fX = modf(fX, &iX);
hD = iX;
Hijri = TDateTime(hY, hM, hD);
}
void HijriToMiladi(TDateTime Hijri, TDateTime &Miladi)
{
int C;
double X, fX, iX;
unsigned short hY, mY, hM, mM, hD, mD;
Hijri.DecodeDate(&hY, &hM, &hD);
C = 13;
X = ((hY - 1) * 354.367) + ((hM - 1) * 29.53058) + hD + 196 + C;
X = X / 365.25;
fX = modf(X, &iX);
mY = 622 + iX;
mM = (12 * fX) + 1;
fX = fX * 12;
fX = modf(fX, &iX);
mD = 30.6 * fX + 1;
Miladi = TDateTime(mY, mM, mD);
}