تغير تاريخ بك آپ از ميلادي به هجري شمسي

[beheshty]

سلام دوستان
من در فايلم از ماكروي زير براي بكاپ كيري استفاده ميكنم كه تاريخ و ساعت سيستمم را به عنوان نام بكاپ ثبت ميكنه
حالا ميخواستم كاري كنم كه بكاپها با تاريخ شمسي ذخيره بشه
آيا راهي وجود داره؟

Sub BACKUPFile()
    Dim Zaman, files
    Zaman = Format(Now(), "yyyy mm dd" & " - " & "hh dd ss")
    files = Application.GetSaveAsFilename("BACKUP soper javan " & Zaman)
    ActiveWorkbook.SaveCopyAs Filename:=files & ".xlsm"
End Sub 

[mokaram]

لطفا به لینک زیر مراجعه کنید

اکسل ایران & بک آپ گیری

[beheshty]

ممنونم دوست عزيز
فقط يه راهنمايي ديگه
فايل شما تاريخ را به صورت 930901time230425 ذخيره ميكند
من براي قسمت ساعتش از جدا كننده استفاده كرم به اين صورت23;11;17 13930901time

چگونه بايد باي قسمت تاريخش هم جدا كننده تايين كرد

 Dim s, M, h, t, yyyy, mm, dd, file As String
    Dim Zaman
    Dim Fn
Public Sub SaveFaileNow()
     
     Call Addres
         

     Fn = Application.GetSaveAsFilename(Zaman)
     ActiveWorkbook.SaveCopyAs Filename:=Fn & ".xls"

End Sub

Public Sub Addres()
    file = ActiveWorkbook.Path
    s = Second(Time)
    M = Minute(Time)
    h = Hour(Time)
    t = J_NORMDATE(J_TODAY(1))
    yyyy = Year(Now)
    mm = Month(Now)
    dd = day(Now)
    If Len(mm) = 1 Then mm = "0" & mm
    If Len(dd) = 1 Then dd = "0" & dd
    If Len(h) = 1 Then h = "0" & h
    If Len(M) = 1 Then M = "0" & M
    If Len(s) = 1 Then s = "0" & s
    
     Zaman = "BACKUP" & t & " sa@t " & (h) & ";" & (M) & ";" & (s)
End Sub 

[khakzad]

سلام
تلاش کردم که مستقیم فرمت بدم. اما نشد.
اینو بعد از ریختن تاریخ در متغیر t (قبل از تفکیک سال و ماه و . . .) اضافه کنید:

 l = Left(t, 2)
    r = Right(t, 2)
    M = Mid(t, 3, 2)
    t = l & "/" & M & "/" & r

[beheshty]

ممنونم
به اين صورت تاريخ كامل ميوفته

l = Left(t, 4)
    r = Right(t, 2)
    M = Mid(t, 5, 2)
    t = l & ";" & M & ";" & r