هذه هي الوحدة النمطية التي لم يتعرف عليها جهازك
وهي تعمل عندي على اكمل وجه
Public Function YMDToDate(varDate As Variant) As Variant
Dim strDMY As String
strDMY = Mid(varDate, 5, 2) & "/" & Left(varDate, 4)
If Len(varDate) = 8 Then strDMY = Mid(varDate, 7, 2) & "/" & strDMY
YMDToDate = Null
If IsDate(strDMY) Then YMDToDate = CDate(strDMY)
End Function
وعلى كل حال اليك طريقة اخرى للتحويل باستخدام تجزئة النص ثم اعادة تنسيقه كتاريخ
تحويل نص الى تاريخ بالدالة فقط.rar