طلب كود : لإضافة ايام الشهر والشهور والسنة الميلادية

[mosaline]

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

[عبدالله باقشير]

السلام عليكم

 

فورم بسيط لاضافة التاريخ

 

بميزة احتساب الايام الفعلية للشهر المحدد

 

المرفق 2003

فورم بسيط لادخال تاريخ.rar

[mosaline]

يعطيك العافيه , نفس الفكرة تقريباً , لكن أريد إدخال الأرقام للأكسل في خانة معينه أتمنى الإفادة ولك جزيل الشكر

[عبدالله باقشير]

السلام عليكم

 

استبدل كود زر تعديل بهذا

لنفرض ان خلية التعديل B5

 

Private Sub ButtonDateChg_Click()
[B5] = DateSerial(Me.SpinYear.Value, Me.SpinMonth.Value, Me.SpinDay.Value)
End Sub
 

في امان الله

[أبو محمد أشرف]

بعد إذن الاستاذ القدير عبد الله باقشير

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

 

فورم بسيط لادخال تاريخ.rar

[mosaline]

شكراً لكم وجزاكم الله خيراً ,