مشكلتى مع التاريخ

ممكن ارسال مثال عشان نعرف المشكله عندك فين

استخدم هذا الكود في ادخال التاريخ .. قد ينفعك:

' ضع هذا الكود في الفورم

Dim i As Integer
Dim t1 As String
Dim t2 As String
Public Sub AutoDate(TextBoxName As TextBox, ByVal keyasci As Integer)
   If Val(keyasci) = 8 Then
	   If TextBoxName.Text = Empty Then
		   i = 0
	   Else
		   i = i - 1
	   End If
	   Exit Sub
   End If
   i = i + 1
   If i = 3 Then
	   t1 = Mid(TextBoxName.Text, 1, 2)
	   t2 = Mid(TextBoxName.Text, 3, 1)
	   TextBoxName.Text = Trim$(t1) & "/" & t2
	   TextBoxName.SelStart = 4
	   t2 = Empty
   ElseIf i = 6 Then
	   t1 = Mid(TextBoxName.Text, 1, 5)
	   t2 = Mid(TextBoxName.Text, 6, 1)
	   TextBoxName.Text = Trim$(t1) & "/" & t2
	   TextBoxName.SelStart = 7
	   End If
   If i = 11 Then Exit Sub
End Sub
Public Function DateValidation(TextBoxName As TextBox) As Boolean
   If IsDate(Trim$(TextBoxName.Text)) = False Then
	   MsgBox "Enter valid date in dd/mm/yyyy format.", vbInformation, "System Info.."
	   TextBoxName.SetFocus
	   DateValidation = False
   ElseIf Not Len(Trim$(TextBoxName.Text)) = 10 Then
	   MsgBox "Enter valid date in dd/mm/yyyy format.", vbInformation, "System Info.."
	   TextBoxName.SetFocus
	   DateValidation = False
   Else
	   DateValidation = True
   End If
End Function
Private Sub Text1_KeyPress(KeyAscii As Integer)
Call AutoDate(Text1, 0)
End Sub
Private Sub Text1_LostFocus()
Call DateValidation(Text1)
End Sub

الأخ الفاضل ...

عند حفظ التاريخ فى الملف يمكنك حفظ ناتج الصيغة:

Format(MyDate1, "DD/MM/YYYY")

بدلاً من حفظ:

MyDate1

شكراً

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