Function NormalizeDate(ByVal Value As String) As Date
Dim v1 As Long, v2 As Long, v3 As Long
v1 = Val(Mid$(Value, 1, 2))
v2 = Val(Mid$(Value, 4, 2))
v3 = Val(Mid$(Value, 6))
If v3 < 100 Then
If v3 < 38 Then
v3 = 2000 + v3
Else
v3 = 1900 + v3
End If
End If
If Mid$(Value, 3, 1) = "." Then
NormalizeDate = DateSerial(v1, v2, v3)
Else
NormalizeDate = DateSerial(v2, v1, v3)
End If
RayShade писал(а):Alibek, правильнее когда хочется 42
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 60