سلام به همه
یک Structure برای تاریخ فارسی.
توانایی تبدیل رشته حاوی تاریخ شمسی به این ساختار و بهره برداری از آن برای تبدیل به تاریخ میلادی و...
Dim Shamsidate As PersianDate
Shamsidate = "1401/07/12"
تبدیل تاریخ میلادی به تاریخ شمسی بصورت مستقیم.
Dim Shamsidate As PersianDate
Shamsidate = Now
و یا یک تاریخ مشخص:
Dim Shamsidate As PersianDate
Shamsidate = #11/05/2022 14:05:18#
یا به اینصورت:
Dim Shamsidate As New PersianDate(#11/05/2022 14:05:18#)
یا:
Shamsidate = CDate("11/05/2022 14:05:18")
امکان برگرداندن روز هفته به فارسی با استفاده از خصوصیت DayOfWeek.
این ساختار شبیه ساختار Date با این تفاوت که از تاریخ فارسی و PersianCalendar بهره می برد.
کلاسی برای تبدیل تاریخ
پاسخ با نقل قول