أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
كريم نظيم مجدى يونس-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة بحاجة الى كود ترحيل اكسيل اسئله واجابات


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





طرح تاريخين كلا منهما يحتوي على سنين وشهور وأيام وساعات ودقائق

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


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


21-02-2022 07:31 مساء
أبو سند بن التهامي
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 12-02-2022
رقم العضوية : 23806
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 15-3-1972
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 12
 offline 

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

 
 
 
  الاصل.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(24.376) KB



أفضل إجابة مقدمة من soufisamchi وهي:
حل المشكل التالي :
عند طرح تاريخين كلا منهما يحتوي على سنة وشهر ويوم وساعات ودقائق في الاكسل تأتي الاجابة صحيحة، وعند وضعها في يوزرفورم يطرح فقط فارق الساعات اما الايام والشهر فلا....مع ملاحظة ان ناتج حاصل طرح التاريخين يجب ان يكون بالساعات والدقائق كما هو الناتج في برنامج الاكسل في الملف المرفق
اولا : في
Module2 ضع الكود التالي 
​Public Function DifHourMinute(startDateTime As Date, endDateTime As Date) As Variant
Dim Hours As Variant
Dim Minute As Variant
Dim diff As Long
diff = DateDiff("n", startDateTime, endDateTime)

Hours = Int(diff / 60)
Minute = diff Mod 60
DifHourMinute = Format(Hours, "00") & ":" & Format(Minute, "00")

End Function
​ثانيا :في  الحدث Private Sub CommandButton7_Click
غير السطريين كما يلي :
​ListBox1.List(i, 8) = DifHourMinute(ListBox1.List(i, 5), ListBox1.List(i, 6))
ListBox1.List(i, 9) = DifHourMinute(ListBox1.List(i, 4), ListBox1.List(i, 7))
​ثالثا :في  الحدث Private Sub TextBox16_AfterUpdate
غير السطريين كما يلي :
ListBox1.List(i, 8) = DifHourMinute(ListBox1.List(i, 5), ListBox1.List(i, 6))
ListBox1.List(i, 9) = DifHourMinute(ListBox1.List(i, 4), ListBox1.List(i, 7))
وعلى كل حال هاهو الملف مرفق بعد التعديل
 
عرض الإجابة




23-02-2022 01:14 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif طرح تاريخين كلا منهما يحتوي على سنين وشهور وأيام وساعات ودقائق
أخي الكريم
الفورم لا يحتوي على أي أكواد
يرجى وضع محاولاتك في سبيل الوصول للحل مع ذكر النقطة التي توقفت عندها ..

23-02-2022 05:20 مساء
مشاهدة مشاركة منفردة [2]
أبو سند بن التهامي
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 12-02-2022
رقم العضوية : 23806
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 15-3-1972
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 12
 offline 
look/images/icons/i1.gif طرح تاريخين كلا منهما يحتوي على سنين وشهور وأيام وساعات ودقائق
بارك الله فيك اخي...شكرا على المساعدة....هذا جزء من المشروع وكنت من قبل عامله بالكسل...والان حاولت اعمله عن طريق VBA والشكلة هي حاصل طرح التاريخين لا يظهر بالصورة الصحيحة في الفورم مع العلم ان النتيجة في الاكسل صحيحة، وكذلك الحال عند جمع عمود في ListBox في حالة الوقت الناتج لا يظهر صحيح....واسف اخي تعبتك معي لان معلومات في VBA = صفر
 
 
  44.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(670.815) KB


23-02-2022 05:44 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif طرح تاريخين كلا منهما يحتوي على سنين وشهور وأيام وساعات ودقائق
حملت الملف ويظهر التوقيت بشكل صحيح في كل من TextBox9 و TextBox10 لذا لا أرى المشكلة
سأترك الموضوع ليقوم الأعضاء بتجربته لربما تكون المشكلة في نسخة الأوفيس أو في إعدادات الويندوز المختلفة

23-02-2022 06:01 مساء
مشاهدة مشاركة منفردة [4]
أبو سند بن التهامي
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 12-02-2022
رقم العضوية : 23806
المشاركات : 14
الجنس : ذكر
تاريخ الميلاد : 15-3-1972
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 12
 offline 
look/images/icons/i1.gif طرح تاريخين كلا منهما يحتوي على سنين وشهور وأيام وساعات ودقائق
بارك الله فيك اخي وجزاك الله خير...اخي فقط لو تنظر للصف (الخامس) فيListBox1  ستلاحظ الخطأ لان الناتج في الاكسل هو 25:00 وهو صحيح، بينما في ListBox1 فقط 01:00 اي انه يطرح الساعات دون الايام...بارك الله فيك على الاهتمام ورحم الله والديك

24-02-2022 04:37 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif طرح تاريخين كلا منهما يحتوي على سنين وشهور وأيام وساعات ودقائق
سأحاول الإطلاع على الملف مرة أخرى إن شاء الله في أقرب وقت حيث أن وقتي لا يتسع في الفترة الحالية

24-02-2022 11:02 مساء
مشاهدة مشاركة منفردة [6]
soufisamchi
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-07-2018
رقم العضوية : 7354
المشاركات : 29
الجنس : ذكر
تاريخ الميلاد : 1-1-1980
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 170
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif طرح تاريخين كلا منهما يحتوي على سنين وشهور وأيام وساعات ودقائق
حل المشكل التالي :
عند طرح تاريخين كلا منهما يحتوي على سنة وشهر ويوم وساعات ودقائق في الاكسل تأتي الاجابة صحيحة، وعند وضعها في يوزرفورم يطرح فقط فارق الساعات اما الايام والشهر فلا....مع ملاحظة ان ناتج حاصل طرح التاريخين يجب ان يكون بالساعات والدقائق كما هو الناتج في برنامج الاكسل في الملف المرفق
اولا : في
Module2 ضع الكود التالي 
​Public Function DifHourMinute(startDateTime As Date, endDateTime As Date) As Variant
Dim Hours As Variant
Dim Minute As Variant
Dim diff As Long
diff = DateDiff("n", startDateTime, endDateTime)

Hours = Int(diff / 60)
Minute = diff Mod 60
DifHourMinute = Format(Hours, "00") & ":" & Format(Minute, "00")

End Function
​ثانيا :في  الحدث Private Sub CommandButton7_Click
غير السطريين كما يلي :
​ListBox1.List(i, 8) = DifHourMinute(ListBox1.List(i, 5), ListBox1.List(i, 6))
ListBox1.List(i, 9) = DifHourMinute(ListBox1.List(i, 4), ListBox1.List(i, 7))
​ثالثا :في  الحدث Private Sub TextBox16_AfterUpdate
غير السطريين كما يلي :
ListBox1.List(i, 8) = DifHourMinute(ListBox1.List(i, 5), ListBox1.List(i, 6))
ListBox1.List(i, 9) = DifHourMinute(ListBox1.List(i, 4), ListBox1.List(i, 7))
وعلى كل حال هاهو الملف مرفق بعد التعديل
 
 
 
  44 (1).rar   تحميل rar مرات التحميل :(5)
الحجم :(661.554) KB



الصفحة 1 من 2 < 1 2 > الأخيرة »


الكلمات الدلالية
تاريخين ، منهما ، يحتوي ، سنين ، وشهور ، وأيام ، وساعات ، ودقائق ،


 










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

الساعة الآن 11:41 صباحا