كيف أعمل هذه الحركة

Text1.Text = Mid(Label1.Caption, 1, 2)
Text2.Text = Mid(Label1.Caption, 4, 2)
Text3.Text = Mid(Label1.Caption, 7, 4)
Label1.Caption = Text1.Text & "/" & Text2.Text & "/" & Text3.Text)

هل هذا ما تقصده؟

السلام عليكم

بعد اذنك اخي عماد طريقتك جيدة في بعض الحالات ولكن لو كتب التاريخ بهذا الشكل

1/1/1425 بلا شك سيظهر خطأ ، الطريقة التالية هي من الفضل الطرق واسهلها بحيث يتم تعريف متغير من نوع تاريخ : واليكن الطريقة

مثلا لو كان الليبل الذي يحمل التاريخ اسمه Label1

dim MyDate  as Date

MyDate = Format (Label1.Caption ,"DD/MM/YYYY")

Text1.Text =  Format (MyDate  ,"DD")
Text2.Text =  Format (MyDate  ,"MM")
Text3.Text =  Format (MyDate  ,"YYYY")

هذه افضل طريقة ،، للتعامل مع التاريخ

تحياتي لك

اشكرك أخي عماد الخليل على جهدك الرائع والمحاولة ضبطت معاي ولكن طريقت أخي prof_1982

هي الأفضل .

السلام عليكم

حاول ان تضيف من components الادوات من Microsoft Windows Common Controls ,و اختر الاداة dtpicker وهي اختصار ل date and time picker واستعمل الكود التالي لارجاع اليوم

dtpicker1.day

والشهر

dtpicker1.month

وهكذا

شكرك hishamnasr