تابعی برای اصلاح تاریخ های بدون صفر : مثلا تبدیل 1388/8/8 به 1388/08/08
Public Function EslahTarikh(ByVal Tarikh As String) As String
Dim TarikhArry = Split(Tarikh, "/")
If TarikhArry(1).Length < 2 Then
TarikhArry(1) = "0" & TarikhArry(1)
End If
If TarikhArry(2).Length < 2 Then
TarikhArry(2) = "0" & TarikhArry(2)
End If
Return TarikhArry(0) & "/" & TarikhArry(1) & "/" & TarikhArry(2)
End Function
پاسخ با نقل قول
