قالب بندی تاریخ

[mazoolagh]

Dim sal, mah, rooz az Integer

Dim datecmp1, datecmp2 As String

sal = Mid(lblDate.Text, 1, 4)

mah = Mid(lblDate.Text, 6, 2)

rooz = Mid(lblDate.Text, 9, 2)





datecmp1 = sal.ToString + "/" +mah.ToString + "/" +rooz.ToString

از کد مشخص هست که تاریخ رو به فرمت YYYY/MM/DD میخونین.

برای تفکیک اجزای تاریخ میتونین به این شکل هم عمل کنین:

DIM tarikh1 AS STRING = lblDate.Text

DIM sal , mah, rooz AS INTEGER

DIM tarikh_parts = tarikh1.split("/"c)

sal = CINT(tarikh_parts(0))

mah = CINT(tarikh_parts(1))

rooz = CINT(tarikh_parts(2))

برای ساختن تاریخ از روی سال و ماه و روز:

DIM tarikh2 AS STRING = STRING.FORMAT("{0:0000}/{1:00}/{2:00}" , sal , mah , rooz)

فقط یک validation فرمت تاریخ روی lblDate.Text هم نیاز هست که برنامه تون به خطای runtime برنخوره،
اینو میتونین با regexp انجام بدین.