أبو هادي

السلام عليكم If "تشويق" = "تشويش" Then MsgBox "الكلمتان متطابقتان" Else MsgBox "هناك سوء فهم آمل التدقيق" End If تحياتي .

السلام عليكم شكرا لك أخي rudwan .. تجربتك ممتازة وتثبت أن الدالة تؤدي وظيفتها على ما يرام ، أما نتائج شركة الكهرباء فالخطأ واضح ولا يحتاج لبذل المزيد من التجارب . فقط سأوضح لك متى تضيف يوم على المدة ومتى تمتنع عن إضافته . بافتراض أن تاريخ انتهاء فاتورة ما هو 15/09/1425هـ : - لو أن تاريخ البداية للفاتورة التالية هو نفسه 15/09/1425هـ فستستخدم الدالة UmDateDiff دون الحاجة إلى زيادة يوم . - أما لو أن تاريخ البداية للفاتورة التالية 16/09/1425هـ فستضطر إلى إضافة يوم على نتيجة الدالة . تحياتي .

السلام عليكم الأخ الباشق1 .. أعتقد أنك لم تفهمني جيدا ، ما وددت قوله أنك قد تكون مخطئا في النتيجة التي نقلتها لنا نتيجة تجربتك للمثال ، حاول تجربته مرة أخرى فهو مثال بذلت فيه جهدا كبيرا ومجرب من الكثيرين في غير منتدى ولم أتلقى نفس الشكوى التي كتبت عنها وهو حذف كل السجلات !! . حاول مرة أخرى على نفس المثال وبتروي ولا تستعجل النتائج . بانتظار تجاربك الجديدة ونتائجها . تحياتي .

السلام عليكم هذه معلومة جديدة لي !! ، حاول أخي مرة أخرى وتأكد . فحذف جميع السجلات أمر هين لا يحتاج إلى مثال . تحياتي .

السلام عليكم في نفس الصفحة هذه يوجد نفس الموضوع : هل يوجد طريقة لحذف السجلات المكررة سيتم حذف هذا الموضوع بعد يومين من الآن وذلك لتكرار الموضوع . تحياتي .

السلام عليكم لقد أنزلت مثال الأخ أبو عقيل وفحصت النتائج وكانت النتائج كالتالي : - لا تقويم مستخدم في المثال أي أنه لا يستخدم التقويم الهجري ولا يستخدم تقويم أم القرى . - لذلك هو يستخدم حقول نصية للتاريخ ويقوم باستخراج المدد باعتبار أن مدة كل الشهور 30 يوم . - لذا فأن النتائج كلها تقريبية وتفتقد إلى الدقة . - يمكن للأخ أبو عقيل الإقتراب إلى الدقة بشكل كبير بعمل التالي : استخراج المدة بين تاريخين باستبعاد تاريخ البداية كالتالي : YearAvg = 354.366667 Days = Round(((yy + (mm / 12)) * YearAvg) + (dd / 360 * YearAvg)) استخراج المدة بين تاريخين بتضمين تاريخ البداية كالتالي : Days = Round(((yy + (mm / 12)) * YearAvg) + ((dd + 1) / 360 * YearAvg)) أما دالة UmDateDiff فهي معدة لتقويم أم القرى وهي شبيهة لدالة DateDiff الأصل . واستخدامها كالتالي : استخراج المدة بين تاريخين باستبعاد تاريخ البداية كالتالي : Days = UmDateDiff("d", "09/07/1425", "13/08/1425") استخراج المدة بين تاريخين بتضمين تاريخ البداية كالتالي : Days = UmDateDiff("d", "09/07/1425", "13/08/1425") + 1 تحياتي .

السلام عليكم آسف على التأخير ، مرفق المثال من جديد مع دعم الدوال بكل ما يخص الوقت . بمعنى آخر أعتقد أنها الآن كاملة ومشابهة تماما للداول الأصل ماعدا التالي : مدد/نتائج السنة والشهر والأسبوع لدالة UmDateDiff حيث تعتمد نتائجها على دالة GetPeriod والتي بدورها لا تعتمد العاملين : 1 - أول يوم في الأسبوع 2 - أول أسبوع في السنة كما الدالة الأصل ، وهي لا تزال تحت الدراسة ولكنها تفي بالغرض إلى نسبة 99.99% . أعتقد أن الدوال أصبحت أكثر تعقيدا وتحتاج التدقيق العنيف ولو أني ضد العنف ولكن الضرورة تقتضيه الآن :d ملاحظة : شاهدوا Query2 حيث تتعامل دوال التاريخ مباشرة مع التاريخ الميلادي أو الهجري دون الحاجة إلى تحويل وهذا قد يقنع بما فيه الكفاية من يقوم بتخزين التاريخ بشكل نصي أن يتراجع ويبدأ فورا باستخدام حقول التاريخ . تحياتي . الملفات المرفقة UmAlQura_20041119.rar ( 132.42ك ) عدد مرات التنزيل: 13

السلام عليكم أخي rudwan .. أنا لا أتذكر ماكتبته قبل أسبوع حتى أستطيع أن أتذكر ماكتبه قبل سنة :( عموما إذا أردت دالة لحساب الفترات بشكل سنوات وشهور وأيام فالدوال من ضمنها دالة GetPeriod تقوم بذلك بكل دقة مع ملاحظة تمرير رقم3 لنوع التقويم . أما إذا أردتها بالأيام فتستطيع استخدام دالة Um2Greg لتحويل تاريخ أم القرى إلى ميلادي ثم تطرح التاريخين من بعضهما أو استخدام دالة UmDateDiff مباشرة . طيب أخ rudwan لماذا لا ترينا شيئا ولو يسيرا مما عملته فيما يخص هذا الموضوع فأنت كريم ونحن نستاهل :d تحياتي .

السلام عليكم أمجد جمالي سهل احمد العريشي رضا عقيل أبو يعلى ashraf أعزائي .. أشكركم على مروركم الكريم ، تقبل الله طاعاتكم وكل عام وأنتم بخير ملاحظة : أنا أستخدم هذه الدالة لإصلاح أسماء الموظفين بالإنجليزي حيث يختلف المستخدمين وقليل منهم من يلتزم بالتعليمات فترى أحدهم يستخدم الحروف الصغيرة دون اعتبار للحرف الأول من كل إسم حيث يجب أن يكون كبيرا وآخر يدخل الأسماء بالحروف الكبيرة مما يجعلها تطول وتأخد مساحة أكبر طولا . كما أن اختلاف الإدخالات تجعل شكل الأسماء غير مقبول فترى بعضها بحروف صغيرة والأخرى بحروف كبيرة ، ولكن عندما تكون كلها بنسق واحد تكون أجمل وأكثر قبولا . تحياتي .

السلام عليكم هذه الدالة شبيهة تماما بدالة الأكسل وهي لتحويل أول حرف من كل مقطع من النص إلى حرف كبير وما يليه إلى حروف صغيرة . Capitalizes the first letter in a text string and any other letters in text that follow any character other than a letter. Converts all other letters to lowercase letters. أمثلة قبل المعالجة : this is a TITLE 2-cent's worth 76BudGet نتائج الأمثلة بعد المعالجة : This Is A Title 2-Cent'S Worth 76Budget Function Proper(Text As Variant) As Variant Dim K As Integer Dim NewText As String Dim Found As Boolean Proper = Text If VarType(Text) <> vbString Then Exit Function Found = True For K = 1 To Len(Text) Select Case Mid(Text, K, 1) Case "A" To "Z", "a" To "z" If Found Then NewText = NewText & UCase(Mid(Text, K, 1)) Found = False Else NewText = NewText & LCase(Mid(Text, K, 1)) End If Case Else NewText = NewText & Mid(Text, K, 1) Found = True End Select Next K Proper = NewText End Function تحياتي .

السلام عليكم صحيح أخي حارث 99 ، هذه الملاحظة لمن يريد أن يستخدم كود التفقيط للعملات حيث هذا الكود تم التعديل عليه وهو صالح لتفقيط الدرجات فقط . فلكل من يريده للدرجات يستطيع الإستفادة منه ، أما للعملات آمل رجوعهم لموضوع التفقيط الرئيس . تحياتي .

السلام عليكم يفترض أن كل ما ينشر بالمنتدى عن طريق صاحبه مرخص باستخدامه للجميع ولا يحتاج إلى استئذان أخي الفاضل . أحييك على حرصك وحسن أخلاقك ، وكل عام وأنت بخير . تحياتي .

السلام عليكم أنزلت المثال والكود مشاركة الأخ الخيال وأظهر 5 جداول كانت مخفية . بعد إضافة مرجع DAO . تحياتي .

السلام عليكم طالبني أحد ألأعزاء بعمل مثال لعرض سجلات محددة في نموذج فرعي عن طريق مربع تحرير وسرد Combo box فصممت له هذا المثال المرفق بتطبيق المطلوب بثلاث طرق . الطريقة الأولى بربط النموذجين بالحقل المطلوب عن طريق خصائص النموذج الفرعي . الطريقة الثانية باستخدام خاصية الفلترة للنموذج الفرعي . الطريقة الثالثة بتعيين عبارة SQL لمصدر السجل للنموذج الفرعي . آمل أن ينتفع به . تحياتي . SelectFromComboBox.rar

السلام عليكم أخي أبوسليمان .. بلغكم الله تمامه وأعاده عليكم أعواما مديدة وتقبل الله منكم صيامكم وقيامكم . أخي عبدالله سليمان .. سأعود لك فيما بعد للتعليق على هذه الملاحظات :d وشكرا لجهودك الكريمة . أنا الآن بصدد معالجة التاريخ ودوالها ، وقد طعت المرحلة الأصعب وسوف تكون هدية العيد إن شاء الله تعالى ولكنها ستحتاج وقت وقد يطول الوقت بعض الشيء ، فانتظروني . تحياتي .

السلام عليكم شكرا لك أخي عبدالله سليمان . فحصت نتائج سنة واحدة فقط وهي سنة 1300هـ فوجدتها تختلف عن نتائج التقويم لدينا الصادر من وزارة المالية والاقتصاد الوطني وهذا مما يدلل أن النتائج محسوبة بناء على الطريقة الجديدة أي ابتداء من عام 1420هـ ، وهذا سوف يؤدي إلى مشكلات عديدة حيث أن النتائج لن تطابق ما اعتمد استخدامه في الدولة وما أرخ فيه لكل الفترة الماضية . عليه من وجهة نظري أن نستبعد إضافة السنوات ما قبل عام 1300هـ ، مجرد وجهة نظر وبانتظار رأيكم ورأي أخي أبوسليمان والمهتمين بالموضوع . تحياتي .

السلام عليكم تعديلات كثيرة منها أضافة بعض الدوال الجديدة وتصحيح الأخطاء وحل مشكلة تاريخ 30-12-1899 وسببها الفجوال . وقد جعلت إرجاع قيمة نص هي التنسيق الإفتراضي . أخي أبوسليمان .. بارك الله فيك على وقفتك المشرفة معي ولك بعض التعليقات : 1 - أرى أخي أن نتقيد بقدر المستطاع بالدوال الرئيسة واستقلالية كل منها بوظيفتها . 2 - فكرة دوال الوقت شبه اكتملت في رأسي ولكن سأؤجلها إلى مرة أخرى من التطويرات . 3 - يبقى هناك أمر واحد أميل إليه الآن وهو كما أعتقد كانت رغبتك ورغبة الأخ عبدالله سليمان وهو جعل الإتجاه الإفتراضي من اليمن إلى اليسار للتنسيق ، فإذا لا زالت هذه الرغبة قائمة قمت بتعديلها فورا . 4 - في النموذج عملت صندوق/مربع نص يقرأ التنسيق من خصائص المربع نفسه .. آمل الإطلاع . 5 - مودته تدوم لكل هول * وهل كل مودته تدوم ( هذه لأبي سليمان فقط ) . تحياتي . ملاحظة : لقد لاحظت الآن فقط أني قد نسيت التعديل في دالة Now فاعتبروها غير منتهية واستبعدوها من تجاربكم . الملفات المرفقة UmAlQura_20041026.rar ( 103.15ك ) عدد مرات التنزيل: 18

السلام عليكم وجدت لكم كود لمثال بالفجوال طبقته على Form3 قد ينفع . بس يحتاج الرد منكم . تحياتي . treectrWithimages.rar

السلام عليكم أخي العزيز أبوسليمان .. اقتراحاتك خطيرة ، أنجزت الأولى وأعمل على الثانية لأكثر من دالة وقد أتأخر عليكم قليلا برفع التعديلات الأخيرة حيث سأضيف على التعديلات تبديل أسماء كل الدوال بحيث تبدأ بحرفي Um بدلا من انتهائها برقم 2 . حبيبي أبو هيثم .. تشرفت بوجودك بيننا وسعدت بمرورك الكريم ، أما موضوع إنزال الملفات فهي متاحة لكل الأعضاء دون استثناء ، حاول مرة أخرى باستخدام حفظ الهدف بإسم Save Targe As بعد الضغط على زر الفأرة اليمين . تحياتي .

السلام عليكم ملاحظة الأخ أبوسليمان حل دالة DateAdd2 : تعديل نوع هذا المتغير ليكون مطابق للدالة الأصل كالتالي : ByVal Number As Double وإضافة هذا السطر : Number = Fix(Number) ملاحظات الأخ عبدالله سليمان 1 – لقد حذفتها لاعتقادي الخاطئ أنها فقط نماذج/أمثلة ولم أعلم أنها تستخدم في النموذج :d 2 – الوحدة كانت لدوال ترجع تنسيق التاريخ القصير والطويل في الإعدادات الإقليمية . 3 – أعتقد أنها تحتاج إلى إعادة نظر وسوف أدرس إعادة كتابتها . 4 – كل الدوال يفترض أن تعيد التنسيق الإفتراضي ويمكن لمن يرغب استخدام دالة Test أو Hijri_Arabic لتحويل الإتجاه . 5 – جربها الآن واخبرنا . 6 – تعطي تسلسل اليوم ضمن السنة . 7 – أي حرف ليس من ضمن التنسيقات ستعيدها كما هو ولكن هناك تنسيق "tttt" للوقت الطويل . 8 – أعتقد الآن أنها 100% من الدقة وقد أتعبتني كثيرا وخصوصا أني في البداية كنت أقارنها بالهجري واكتشفت أن النتائج بالهجري غير سليمة ثم بدلت التقويم للميلادي وابتدأت الدراسة والمقارنة من جديد . 9 – تمت المعالجة . 10 – تحتاج إلى تحديد تفصيلي منك حتى أستطيع أن أعالج الأخطاء . 11 – تمت المعالجة . 12 – CDate2 و DateSerial2 و DateAdd2 ، ثلاث دوال تستطيع اختيار نوع الخارج/النتيجة إما نص بشكل تاريخ أو تاريخ بشكل رقم مسلسل . الحقيقة لم أفهما آمل التوضيح أكثر . تحياتي .

السلام عليكم المثال مرفق مرة أخرى بعد تعديلات كثيرة ( قياسية / نموذجية ) . سأؤجل أجوبتي على تعليقاتكم إلى يوم آخر إن شاء الله تعالى حيث أني مرهق جدا . تحياتي . الملفات المرفقة UmAlQura_20041023.rar ( 91.48ك ) عدد مرات التنزيل: 16

السلام عليكم شكرا للأخوين أبوسليمان وعبدالله سليمان لدعمهما ومساندتهما وتشجيعهما الكريم . لقد تم تصحيح أكثر الأخطاء وسوف أقوم غدا ليلا إن شاء الله تعالى برفعها لكم . تحياتي .

السلام عليكم استخدام الدالة DMax لعمل ترقيم مسلسل تحياتي .

السلام عليكم الأخ عبدالله سليمان .. شكرا لك ، واعلم أني لم أكن بحاجة لهذه الدوال وما بذلته من وقت وجهد إلا لما أحسسته من خلال مشاركاتك أن تريدها مني ولو بطريق غير مباشر . على كل حال هذه الظروف أثمرت عن ايجاد ما يكمل التقويم ويجعله أكثر قوة وأكثر عناية للمهتمين به . الأخ أبوسليمان .. شكرا لك أستاذنا الكريم ، وكما تعلم أن الوقت يبدأ بالساعة ثم الدقيقة ثم الثانية والبداية للإنجليزي تبدأ من اليسار ونفسها بالعربي تبدأ من اليمين . وباتباع هذه القاعدة يكون التنسيق سليما ، علما أنا لا أميل إلى عرض التاريخ والوقت بالتنسيق العربي لما يسببه لي من إرباك وخصوصا أنا أعمل في شركة ليس للعربي نصيب فيها . أما دالة CDate فالمفترض أن ترجع نوع تاريخ وليس نص كما هو الحال في دالة Format فمع هذه الدالة يمكن استخدام العمليات الحسابية معها . كما أني أميل إلى نفس النتيجة لدالة DateSerial . والحل الأمثل وأعتقد إن وافقتموني عليه هو إضافة مدخل للتحديد نوع المخرج ، إما أن يكون نصا أو رقما وذلك للداتين الموضحتين أعلاه . تحياتي .

السلام عليكم شكرا لك أخي النبهاني وسعدنا بمروركم الكريم . وشكرا لك أخي أبوسليمان وأتمنى مساندتك في فحص الدوال كالعادة . الأخ عبدالله سليمان .. مطلوب متابعتك للموضوع كما بدأت به .. آمل منك المشاركة في تقويم الدوال واختبارها . مرفق مثال الأخ عبدالله سليمان بعد إعادة كتابة كل الدوال وخصوصا دالة Format والتي أخذت مني جهدا كبيرا قد تساوي كتابة باقي الدوال مجتمعة أو تزيد . تحياتي . الملفات المرفقة UmAlQura_20041017.rar ( 78.62ك ) عدد مرات التنزيل: 33