السلام عليكم
لمن يعاني من عكس التواريخ عند الترحيل او الاستدعاء من والى الفورم
اليكم بعض طرق الترحيل والاستدعاء البسيطة التى قد تصلح لمثل هذه المشاكل
الكود المستخدم
'========استدعاء
Private Sub CommandButton1_Click()
TextBox1.Text = Range("A1").Text
End Sub
Private Sub CommandButton2_Click()
TextBox1.Text = Range("A1").Value
End Sub
Private Sub CommandButton3_Click()
TextBox1.Text = Format(Range("A1").Value, "dd/mm/yyyy")
End Sub
Private Sub CommandButton4_Click()
TextBox1.Text = CDate(Range("A1").Value)
End Sub
'========ترحيل
Private Sub CommandButton5_Click()
Range("A1").Value = TextBox1.Text 'هنا بالطريقة العادية يتم الترحيل مع عكس الشهر مع اليوم
End Sub
Private Sub CommandButton6_Click()
Range("A1").Value = Format(TextBox1.Text, "mm/dd/yyyy") 'اذا نعكس احنا الفورمات عشان تروح مظبوطة
End Sub
Private Sub CommandButton7_Click()
Range("A1").Value = CDate(TextBox1.Text) 'او نستخدم الدالة CDate
End Sub
_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك