Code: Select all
Dim a As String = "1.25"
If IsDate(a) Then
a = CDate(a).ToShortDateString
End If
Это как???
Code: Select all
Dim a As String = "1.25"
If IsDate(a) Then
a = CDate(a).ToShortDateString
End If