اصلاح تاریخ فارسی به صورت 10 کاراکتری

**M_ExceL** · 2019/05/02, 21:58

نوشته اصلی توسط mohammad_news

با سلام دوستان عزیزم . یه مشکل دارم . تو فایل پیوست شده میخوام تاریخ به صورت 10 کاراکتری نمایش داده بشه
مثلا 1391/1/1 تبدیل به 1391/01/01 بشه
اگر زحمت نیست برام نمونه فایل رو اصلاح و پیوست کنید
کارم گیره
لطفا راهنمایی بفرمایید خیلی از شما متشکرم

سلام،
از تابع زیر می تونید استفاده کنید :

کد:

Function NormDate(Date_ As String) As String
Dim Y As String, M As String, d As String
Dim Slash1Pos As Integer
Dim Slash2Pos As Integer
Date_ = LTrim(RTrim(Date_))
Slash1Pos = InStr(Date_, "/")
Slash2Pos = InStr(Slash1Pos + 1, Date_, "/")
If Slash1Pos = 0 Or Slash2Pos = 0 Then
    NormDate = "#Error"
    Exit Function
End If
Y = Left(Date_, Slash1Pos - 1)
M = Mid(Date_, Slash1Pos + 1, Slash2Pos - Slash1Pos - 1)
d = Mid(Date_, Slash2Pos + 1)
Y = LTrim(RTrim(Y))
M = LTrim(RTrim(M))
d = LTrim(RTrim(d))
M = IIf(Len(M) < 2, "0" + M, M)
d = IIf(Len(d) < 2, "0" + d, d)
NormDate = Y & "/" & M & "/" & d
End Function

فایل های پیوست شده