تاريخ

[zahra1987]

به نام خدا
سلام به همه ي دوستان
دنبال كدي مي گردم كه تاريخ هايي كه ناقص وارد مي شن را به طور كامل در بياره . به طور مثال :88/3/9 را به صورت 1388/03/09 ويرايش كنه
ممنون

[anooshiran]

سلام دوست عزيز

براي اين كار روش هاي بسيار زيادي متصور است. كد زير يكي از اين روش ها است.




Dim _date As String = "87/9/3"
Dim _dArray = Split(_date, "/")
For i As Int16 = 0 To 2
If i = 0 And _dArray(i).ToString.Length = 2 Then
_date = Replace(_date, _dArray(i), "13" & _dArray(i))
ElseIf i > 0 And _dArray(i).ToString.Length = 1 Then
_date = Replace(_date, "/" & _dArray(i), "/" & "0" & _dArray(i))
End If
Next

[mina.net]

سلام دوستان
با اجازه استاد مون جناب anooshiran
در قسمت امضاء من یک لینک هست برای datatimepaker فارسی برو تو اون لینک دو تا فانکشن قرار دادم یکی چک می کنه که تاریخ درست باشه (حتی روزهای کبیسه) و فانکشن بعدی هم عدد رو به شکل مورد نظر شما در می آره.

[linux]

این هم یک مدلش هست

Public Function GetFullDate(ByVal smallDate As String)
If smallDate = String.Empty Or smallDate.Length < 8 Then
Return "error!"
End If
Dim _date() As String = smallDate.Split("/")
Dim yy, mm, dd As Integer
yy = _date(0)
mm = _date(1)
dd = _date(2)
Return String.Format("13{0}/{1:00}/{2:00}", yy, mm, dd)
End Function