كيفية استعراض الوقت والتاريخ فى user form فى ملف اكسيل

[omar shideed]

برجاء افادتى

كيفية استعراض الوقت والتاريخ فى user form فى ملف اكسيل

[طلعت محمد حسن]

اخي الكريم حسب معلوماتي المتواضعة يمكن اضافة التاريخ كالتالي

 

Private Sub UserForm_Initialize()

TextBox1.Text = Date

Lbl1.Caption = Date

End Sub

اما الوقت بدل Date نضع Thim لكن المشكلة التي وجهتني بالوقت هو عدم تحديث الوقت الى غاية الان ابحث عن هذة المعلومة

اقبل تحياتي

[أبو حنــــين]

السلام عليكم

هذا المرفق يحتوي على ساعة

 

ساعة.rar

[omar shideed]

ياباشا شكرا للاهتمام

[omar shideed]

لو افترضنا ان عاوز اظهر الوقت والتاريخ فى Label داخل الــ User Form كما هو موضح بالمرفقات وكيفية ايضا اكون عامل ملف اكسيل وبه اكود فيجوال بيسك ويكون الامتداد عادى مش xlsm 

Book1.rar

[إبراهيم ابوليله]

الاخ ابوحنين

بارك الله فيك كود رائع وجميل

[أبو حنــــين]

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

اخي Omar هذا هو الملف

Book1.rar

[طلعت محمد حسن]

الاستاذ ابو حنين كل الشكر والاحترام لك

بخصوص تنسيق الوقت بنظام 12 ساعة وليس بنظام 24 ساعة كيف يكون التعديل

وشكرا لكم.

[إبراهيم ابوليله]

الاخ طلعت

وبعد اذن اخى ابو حنين

اسمح لى بالاجابه

توفيرا لوقتك ومجهودك اخى ابو حنين

اخى طارق

فقط قم بتغير السطر التالى

UserForm1.Label1.Caption = Format(Hanine, "h:m:s")
الى

UserForm1.Label1.Caption = Format(Hanine, "hh:mm:ss")
 

[أبو حنــــين]

أخي إبراهيم

جزاك الله خيرا

[حمادة عمر]

السلام عليكم

الاستاذ الحبيب / أبو حنين

بارك الله فيك

دائما تقدم السهل الممتنع

تقبل خالص تحياتي

[أبو حنــــين]

جزاك الله خيرا أخي الأستاذ حمادة

اشتقنا إليك و الله

ندعو الله ان تكون في تمام الصحة

[حمادة عمر]

والله انتوا اللي وحشتوني بجد وافتقدتكم كثيرا استاذي الحبيب

اصبحت بالفعل مدمن لمنتدي اوفيسنا واساتذته واعضاؤه

تقبل خالص تحياتي

[هاشم بركات]

بارك الله فيكم جميعا