pedram_ns
یک شنبه 07 آذر 1389, 23:58 عصر
سلام
من یک گرید ویو دارم:
1. چطور کاری کنم با انتخاب یک سطر از گرید اطلاعات اون رکورد در چند تکس باکس قرار بگیره(واسه ادیت)
2.برای تبدیل تاریخ میلادی به شمسی یک تابع معرفی کرده بودند چطور یکی از فیلد های گرید رو که تاریخ میلادی داره با این تابع شمسی نشون بدم؟
Public Function MiladiToShamsi(ByVal MDate As Date) As String
MiladiToShamsi = ""
Dim pc As New Globalization.PersianCalendar
Dim Sal As Integer = pc.GetYear(MDate)
Dim Mah As Integer = pc.GetMonth(MDate)
Dim Roz As Integer = pc.GetDayOfMonth(MDate)
MiladiToShamsi = Format(Sal, "0000") & "/" & Format(Mah, "00") & "/" & Format(Roz, "00")
Return MiladiToShamsi
End Function
من یک گرید ویو دارم:
1. چطور کاری کنم با انتخاب یک سطر از گرید اطلاعات اون رکورد در چند تکس باکس قرار بگیره(واسه ادیت)
2.برای تبدیل تاریخ میلادی به شمسی یک تابع معرفی کرده بودند چطور یکی از فیلد های گرید رو که تاریخ میلادی داره با این تابع شمسی نشون بدم؟
Public Function MiladiToShamsi(ByVal MDate As Date) As String
MiladiToShamsi = ""
Dim pc As New Globalization.PersianCalendar
Dim Sal As Integer = pc.GetYear(MDate)
Dim Mah As Integer = pc.GetMonth(MDate)
Dim Roz As Integer = pc.GetDayOfMonth(MDate)
MiladiToShamsi = Format(Sal, "0000") & "/" & Format(Mah, "00") & "/" & Format(Roz, "00")
Return MiladiToShamsi
End Function