تغيير التاريخ الى يوم شهر سنة

[mishoexcel]

السلام عليكم,,

لو سمحت كنت محتاج معادلة بالملف المرفق لتغيير التاريخ الى يوم شهر سنة

New Microsoft Excel Worksheet.xlsx

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته

ادا كان هدا  ما تقصده 

 

جرب هدا

=IFERROR(TEXT(DATE(2000+LEFT(B2,2),MID(B2,3,2),RIGHT(B2,2)),"DD/MM/YYYY"),"")

 او 

Option Explicit
Sub ConvertDate()
    
    Dim lr As Long, r As Long, xDate As String, n As String
    Dim scWS As Worksheet: Set scWS = Sheets("Sheet1")
    
    lr = scWS.Cells(scWS.Rows.Count, "B").End(xlUp).Row
    
    For r = 2 To lr
        xDate = scWS.Cells(r, "B").Value
        If xDate <> "" Then
            n = Format(DateSerial(2000 + Left(xDate, 2), _
                                             Mid(xDate, 3, 2), _
                                             Right(xDate, 2)), "dd/mm/yyyy")
            scWS.Cells(r, "D").Value = n
        End If
    Next r
End Sub

 

New Microsoft Excel Worksheet.xlsx

تم تعديل ديسمبر 16, 2024 بواسطه محمد هشام.