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

[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 

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.