تاریخ شمسی در کد نویسی vba

[zarrinkolah]

با سلام به دوستان عزیز
من کدی در VBA نوشته ام که به کمک آن و یک دکمه بتوانم یک شیت را با فرمت PDF ذخیره کنم اما مشکل این است که میخواهم بعد از نام فایل ذخیره شده تاریخ شمسی هم درج گردد در حالیکه این تاریخ به کمک تابع ()NOW به میلادی می باشد
آیا دوستان گرام میتوانند کمک نمایند

Private Sub CommandButton1_Click()


Worksheets("sheet6").ExportAsFixedFormat Filename:="C:\Users\Shahram\Desktop\ليست قيمت" & Format(Now(), " yyyy-MM-dd"), Type:=xlTypePDF


End Sub

---

[mokaram]

با سلام
می تونید از ماژول شمسی استفاده کنید و به جای استفاده از now از تابع today استفاده کنید