ابزارهای تبدیل تاریخ برای دات نت

[UnLiMiTeD]

یک textbox که عدد رو وارد میکنیم (0 تا 6) و بعد در یک textbox روز هفته (شنبه تا 5 شنبه ) نمایان میشه !!

[amirferdowsi]

سلام
دوست عزیز تا اونجا که من اطلاع دارم PersianCalender این امکان رو نداره و باید خودت با Select Case اون رو دربیاری

Dim intday AsInteger

Dim StrName AsString

intday = textbox1.text  ' عدد 0 تا 6
 

Select Case intday

Case 0

StrName = "شنبه"
Case 1

StrName = "یک شنبه"

Case 2

StrName = "دوشنبه"

Case 3

StrName = "سه شنبه"

Case 4

StrName = "چهارشنبه"

Case 5

StrName = "پنج شنبه"

Case 6

StrName = "جمعه"
End Select

 

textbox2.text = StrName