المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : استنباط التاريخ الهجري من اليوم اليولياني


ثامر أبو بلقيس
12-01-2014, 10:49 PM
السلام عليكم
أخي الحبيب ... قرأت مقالة جميلة جدا فشدني الفضول
أن أفتح مشروعا جديدا
وضعت فيه أنبوتا أسميته date
هذا الأنبوت سأكتب فيه التاريخ الميلادي لكن
عند كتابة اليوم أو الشهر اذا كان العدد اقل من عشرة اضع الصفر على
اليسار مثلا الشهر 3 أكتبها 03

ثم وضعت 3 أنبوتات
الأنبوت Input2 بهذه التسمية سينزل فيه اليوم الهجري
الأنبوت Input3 الشهر الهجري
الأنبوت Input4 السنة الهجرية

توجهت نحو global functions
وزرعت
function ToJulian(ISO_Date)
local t = {}
t.year = String.Left(ISO_Date, 4)
t.month = String.Mid(ISO_Date, 6, 2)
t.day = String.Right(ISO_Date, 2)
local d = os.time(t)
return Math.Floor((d / 86400) + 2440588)
end

بعد الحفظ رجعت ووضعت زر في التجميعية
وكتبت فيه
r=Input.GetText("date");
local ISO_Date = r
local JulianDate = ToJulian(ISO_Date)

L = Math.Floor(JulianDate) - 1948440 + 10632
N = Math.Floor((L - 1) / 10631)
L = L - 10631 * N + 354
J = Math.Floor((10985 - L) / 5316) * Math.Floor((50 * L) / 17719) + Math.Floor(L/5670) * Math.Floor((43 * L) / 15238)
L = L - Math.Floor((30 - J) / 15) * Math.Floor((17719 * J) / 50) - Math.Floor(J / 16) * Math.Floor((15238 * J) / 43) + 29
M = Math.Floor((24 * L) / 709)
D = L -Math.Floor((709 * M) / 24)
Y = Math.Floor(30 * N + J - 30)
----

Input.SetText("Input2", D);
Input.SetText("Input3", M);
Input.SetText("Input4", Y);
انتهى ناجحة أم لا ؟ لا أدري لكنه تستهل التجربة
سلام

فرح صالحي
12-01-2014, 11:55 PM
السلام عليكم ورحمة الله وبركاته
انتهى هكذا
Error:field'day'missing in date table
Stack Tracebak:
1.[Globals] Line:6 in function 'Tojulian'
2.[Page1->Button1->onClik] Line:3 in main chunk
والسلام

ثامر أبو بلقيس
13-01-2014, 12:28 AM
هذا ملف للعمل
http://www.gulfup.com/?pIhjTW

شكرا :abc_114:

ستلاحظ ارتياب في يوم بالنسبة للملف المطروح سابقا
لذلك قلت محل تجربة

فرح صالحي
13-01-2014, 12:55 AM
السلام عليكم ورحمة الله وبركاته
هذه الاضافة غير متوفرة لدي
Error: Plugin "C:\Program Files\AutoPlay Media Studio 8\Plugins\Objects\GROUPBOX\GROUPBOX.APO" is not licensed for re-distribution
والسلام

ثامر أبو بلقيس
13-01-2014, 12:57 AM
تنقصك اضافة groupbox للأسف ضننتها متوفرة لديك وهي لاعلاقة لها بالمحتوى
اذ لم تحملها سأعيد الملف غدا شكرا

إن شاء الله

ثامر أبو بلقيس
13-01-2014, 01:17 AM
http://www.gulfup.com/?aUWsXx

فرح صالحي
13-01-2014, 03:32 PM
السلام عليكم ورحمة الله وبركاته
قد يكون مفتاح الحل في الآية 25 من سورة الكهف ...
300 + 9 = ؟؟؟؟

ثامر أبو بلقيس
13-01-2014, 03:59 PM
مشكووور
الأوتوبلاي يعطيك التاريخ الذي تريده باليولياني وفق أكواده
result = System.GetDate(DATE_FMT_JULIAN);

الحارث بن فيصل
15-01-2014, 03:11 PM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

أبو يوسف
15-01-2014, 08:59 PM
ما شاء الله متابعة حثيثة اولا بأول

جزاكم الله خيرا وبارك الله فيكم جميعا

.

احمدعمار
16-01-2014, 04:23 PM
يا جماعة الى يعمل ملف يرفع معه الاضافة الخاصة بيه لو تكرمتم

فرح صالحي
16-01-2014, 09:35 PM
يا جماعة الى يعمل ملف يرفع معه الاضافة الخاصة بيه لو تكرمتم
السلام عليكم ورحمة الله وبركاته

اخي انصحك بتنزيل هذا للاخ هيثم فيه تقريبا كل الاضافات
مثبــت: ( الإصدار الثاني ) (Pack 2013 for AMS ) .. حزمه كامله بكل الإضافات والقوالب والبرامج المساعده ... ‏(موضوع متعدد الصفحات 1 2 3 ... الصفحة الأخيرة)
تقييم الموضوع: 2 تصويتات, المعدل 5.00.Haitham.2012

ثامر أبو بلقيس
17-01-2014, 07:57 PM
مشكورين إخواني وهذا هو رابط الموقع الذي
قرأت فيه الفكرة
من هنااااااااا (http://www.icoproject.org/article/2001_conv.html)

نلتقي بود

فرح صالحي
17-01-2014, 09:04 PM
السلام عليكم ورحمة الله وبركاته
اطلعنا على الموقع فشكرا لك .
التاريخ الناتج عن عملية التحويل لن يكون دقيقا بالكيفية المرجوة .
سلامي

أبو فارس
17-01-2014, 11:25 PM
وفقك الله وأثابك ونفع بك

الهمام
23-01-2014, 03:17 PM
بارك الله لك جهودك وسدد بالخير والعطاء دربك

العبسي
08-10-2014, 05:51 PM
هل يمكن عرض التاريخ مباشرة بدون الضغط على الزر ؟؟

وهل يمكن الاستفادة من ملفات dll الخاصة بويندوز لاستخراج التاريخ الهجري داخل النظام ؟؟؟؟؟؟؟؟؟؟؟؟

ثامر أبو بلقيس
08-10-2014, 06:31 PM
يمكن فتح تساؤلات في قسم الاستفسارات ؟؟؟؟