رفع مشکل جستجو از طریق تاریخ شمسی برای همیشه

[amir200h]

از نوع رشته هم تبدیل کردم درج میشه اما نه صفر میذاره قبل از ماه وروز .و نه اگر ماهم بیشتر از دوازده بود ایرادی میگیره واسه روز هم همینطور.

بفرما. ببین کار میکنه یا نه.

Dim pc As New System.Globalization.PersianCalendar

        Dim sb As New System.Text.StringBuilder

 

        sb.Append(pc.GetYear(Now).ToString() & "/")

        sb.Append(Format(pc.GetMonth(Now), "0#") & "/")

        sb.Append(pc.GetDayOfMonth(Now).ToString())

 

        Label1.Text = sb.ToString()