arshias
شنبه 04 آذر 1391, 14:12 عصر
دوستان من با کد زیر از امکان تاریخ شمسی در برنامم استفاده کردم
از این پست :
http://barnamenevis.org/showthread.php?288563-%D8%AA%D9%82%D9%88%DB%8C%D9%85-%D8%B4%D9%85%D8%B3%DB%8C-VB.Net&p=1269594&viewfull=1#post1269594
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
حالا میخوام توی textbox که تاریخ نمایش داده میشه با ول موس (wheel mouse) تاریخ کم و زیاد بشه به صورت روز به روز یعنی اگر ول موس به سمت عقب بچرخه تاریخ روز به روز کم بشه و برعکس
لطفا کمکم کنید خیلی گشتم ولی چیزی پیدا نکردم :گریه::گریه:
از این پست :
http://barnamenevis.org/showthread.php?288563-%D8%AA%D9%82%D9%88%DB%8C%D9%85-%D8%B4%D9%85%D8%B3%DB%8C-VB.Net&p=1269594&viewfull=1#post1269594
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
حالا میخوام توی textbox که تاریخ نمایش داده میشه با ول موس (wheel mouse) تاریخ کم و زیاد بشه به صورت روز به روز یعنی اگر ول موس به سمت عقب بچرخه تاریخ روز به روز کم بشه و برعکس
لطفا کمکم کنید خیلی گشتم ولی چیزی پیدا نکردم :گریه::گریه: