Printable View
سلام
چظوزی میتونم تاریخ را به این صورت قالبندی کنم 0000/00/00 مثلا 1402/12/1 را به صورت 1402/12/01 و 1402/2/1 را به صورت 1402/02/01 و 1402/2/11 را به صورت 1402/02/11
البته ابنم بگم من یسری محاسبات روی تاریخ اصلی که قالب درستی داره انجام میدم با استفاده از تابع mid روز و ماه و سال را حدا میکنم ولی بعد محاسبات نمی تونم قالب بندی کنم - البته کدنویسی می خوام کم باشه-
سلام و روز خوش
مشخص نکردین که نوع دیتا تاریخ شما چی هست؟ number , string , یا date با persian culture
در هر صورت با تابع format یا formatdatetime دستتون برای هر نوع فرمت بندی بازه.
نقل قول:
نوشته شده توسط 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
دیتا تاریخ را هم از نوع String گذاشتم
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 انجام بدین.