PDA

View Full Version : سوال: ِNext And Prev In DateTimePickerX1



پرستو پارسایی
سه شنبه 02 دی 1399, 17:38 عصر
با سلام در رابطه با تغییر تاریخ در این کامپوننت : چطور میشه تاریخ رو با کدنویسی چند روز تغییر داد . لطفا اساتید در صورت اطلاع پاسخ دهید سپاسگزارم

the king
پنج شنبه 04 دی 1399, 01:56 صبح
با سلام در رابطه با تغییر تاریخ در این کامپوننت : چطور میشه تاریخ رو با کدنویسی چند روز تغییر داد . لطفا اساتید در صورت اطلاع پاسخ دهید سپاسگزارم

یا از کلاس PersianDateTime خود کمپوننت استفاده کنید (که یک ترکیب نه چندان مناسب از DateTime و PersianCalendar ئه)

Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click
Dim current = DateTimePickerX1.GetSelectedDateInPersianDateTime( )
DateTimePickerX1.SetSelectedDate( current.AddDays(5))
End Sub

Private Sub btnBack_Click(sender As Object, e As EventArgs) Handles btnBack.Click
Dim current = DateTimePickerX1.GetSelectedDateInPersianDateTime( )
DateTimePickerX1.SetSelectedDate( current.AddDays(-5))
End Sub


یا از PersianCalendar استفاده کنید :

Private Shared ReadOnly Persian As New System.Globalization.PersianCalendar

Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click
Dim current = DateTimePickerX1.GetSelectedDateInDateTime()
DateTimePickerX1.SetSelectedDate( Persian.AddDays(current, 5))
End Sub

Private Sub btnBack_Click(sender As Object, e As EventArgs) Handles btnBack.Click
Dim current = DateTimePickerX1.GetSelectedDateInDateTime()
DateTimePickerX1.SetSelectedDate( Persian.AddDays(current, -5))
End Sub

پرستو پارسایی
پنج شنبه 04 دی 1399, 13:15 عصر
با تشکر از پاسخ شما . یک پاسخ کامل و آموزنده .