هل أقدر أحصل على كود لمواقيت الصلاة بأي لغة برمجة
يعني المعادلات أو الجداول ؟
كود عن أذان ووقت الصلاة بأي لغة برمجة
مغلق
؟ هل من مجيب
تم تعديل هذه المشاركة بواسطة jooorj في 24 مارس 2007 في 13:36
موقوف من المشاركة لقلة الأدب
============================
اخي انا اعمل حاليا في برنامج مواقيت صلاة متكامل سارفق لك في مجلد اكسل يحتوي علي معادلات
السلام عليكــم ورحمـة الله وبركاتــه ،،
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
أهلاً ومرحباً .. أهلا بمن أتانا بتحية وسلام يريد الترحيب بأحلى الكلام .. يريد أن نعلن له الأنضمام .. إلى كوكبة أعضائنـا الكرام ،،
ترقبوا البرنامج بنسخته النهائية في القريب العاجل
السلام عليكــم ورحمـة الله وبركاتــه ،،
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
أهلاً ومرحباً .. أهلا بمن أتانا بتحية وسلام يريد الترحيب بأحلى الكلام .. يريد أن نعلن له الأنضمام .. إلى كوكبة أعضائنـا الكرام ،،
اخي هل تستطيع ان تساعدني في تحويل المعادلات بالفجول بيسك
السلام عليكــم ورحمـة الله وبركاتــه ،،
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين
أهلاً ومرحباً .. أهلا بمن أتانا بتحية وسلام يريد الترحيب بأحلى الكلام .. يريد أن نعلن له الأنضمام .. إلى كوكبة أعضائنـا الكرام ،،
بسم الله الرحمن الرحيم
شكرا جزيرا يا أخ طاهر سالم علي معادلات مواقيت الصلاة وأتمني أن أجد عندك معادلة رياضية للتحويل بين التاريخ الهجري والميلادي وليس أداة بالفيجوال بيسك
وأكون شاكر جداً
Calendar = vbCalGreg ' تقويم ميلادي
Calendar = vbCalHijri ' تقويم هجري
http://qasweb.org/qasforum/ ده منتدى فلك فيه كل اللى أنتم عايزينه
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
بسم الله الرحمن الرحيم
الأخ عبد العزيز اليوسفي شكرا جدا علي ردك . ولكن أخي أتمني أن أجد معادلة رياضية لحساب التحويل بين التاريخين
الأخ msayed2004 شكرا علي المنتدي الرائع
برجاء من الأعضاء من يجد هذه المعادلة أن يضعها وله جزيل الشكر
بسم الله الرحمن الرحيم
وجدت هذه المعادلة في منتدي الفلك (سالم الجعيدي) >>>>>>>>>>>>>>>>>منقول
http://qasweb.org/qasforum/index.php?showtopic=647
إن كان الشهر الميلادي أصغر أو يساوي 2
إذن
أ = الشهر + 12
ب = السنة الميلادية – 1
وإن كان الشهر الميلادي أكبر من 2 فإن
أ = الشهر
ب = السنة
ج = ب ÷ 100 ( إحذف الكسر مطلقاً)
د = ب ÷ 400 ( احذف الكسر مطلقاً )
ع = 2 – ج + د
ملاحظة : إذا كان حسابك لتاريخ يقع قبل 15 أكتوبر 1582 م
فإن ع = صفر دائماً
و = ( ب + 4716 ) × 365.25 ( احذف الكسر مطلقاً )
ز = ( أ + 1 ) × 30.6001 ( أحذف الكسر مطلقاً )
ح = الأيام + ز + و + ع – 1524.5
ط = ح – 1937806.5
ك = ( ط – 1 ) ÷ 10631 ( احذف الكسر مطلقاً )
ل = ( ط + 354 ) – 10631 × ك
م = ( 10985 – ل ) ÷ 5316 (احذف الكسر )
ن = ( 50 × ل ) ÷ 17719 ( احذف الكسر )
س = ل ÷ 5670 ( احذف الكسر )
ف = ( 43 × ل ) ÷ 15238 ( احذف الكسر )
ق = م × ن + س × ف
ص = ( 30 – ق ) ÷ 15 ( احذف الكسر )
ر = ( 17719 × ق ) ÷ 50 ( احذف الكسر )
ش = ق ÷ 16 ( احذف الكسر )
ت = ( 15238 × ق ) ÷ 43 ( احذف الكسر )
ث = ل – ص × ر – ش × ت + 29
الشهر الهجري = ( 24 × ث ) ÷ 709 ( احذف الكسر )
غ = ( 709 × الشهر الهجري ) ÷ 24 ( احذف الكسر )
اليوم الهجري = ث – غ
السنة الهجرية = 30 × ك + ق – 30
ملاحظة إبدأ في العمليات الحسابية بما في داخل القوس ، وابدأ بالضرب قبل الجمع والطرح
اقتباسولكن أخي أتمني أن أجد معادلة رياضية لحساب التحويل بين التاريخين
هذا المعادلة كنت أستخدمها من فترة
Public Function TransDate(thedate As Date, TypeTrans As Integer) As String Dim TempDate As String, MD As Date, a As String 'للتحويل للتاريخ الهجري If TypeTrans = 1 Then VBA.Calendar = vbCalHijri TempDate = CStr(thedate) TransDate = TempDate VBA.Calendar = vbCalGreg Else 'للتحويل للتاريخ الميلادي a = CStr(thedate) VBA.Calendar = vbCalHijri MD = CDate(a) VBA.Calendar = vbCalGreg TransDate = CStr(Format(MD, "yyyy/mm/dd")) txtdateofenglish = TransDate End If End Function Private Sub Form_Load() MsgBox TransDate(Date End Sub
هذا الموضوع مغلق.