سلام دوست عزيز
كامپوننتي كه براي تبديلات در سايت گذاشتم امكان تبديل شمسي به ميلادي رو هم به شما ميده.
به هر حال من كد تبديل شمسي به ميلادي رو يرات ميذارم
PublicSharedFunction PersianToGregorian(ByVal [Date] AsString) AsString
Dim pDate AsNew PersianCalendar
Dim spl = Split([Date], "/")
If spl(0).ToString.Length < 4 Then
If spl(0).ToString.Length = 3 Then
spl(0) = "1" & spl(0)
EndIf
If spl(0).ToString.Length = 2 Then
spl(0) = "13" & spl(0)
EndIf
EndIf
Dim year AsInteger = CInt(spl(0))
Dim month AsInteger = CInt(spl(1))
Dim day AsInteger = CInt(spl(2))
Return Mid(pDate.ToDateTime(year, month, day, 0, 0, 0, 0, PersianCalendar.PersianEra), 1, 10)
EndFunction
در مورد select هم لطف كن كد كارتو بزار ببينم