Форматирование дат к одному виду. Данила, I need help!

[erzhavin]

Имею столбец с датами вида 01.07.05 и 07/01/05. (Первое июля) Нужно привести все даты к виду день.месяц.год. (01.07.2005). Вообще реально ли преобразовать это? Что то никак не могу ссобразить...Это все нужно грузить потом в Access, поэтому все должно быть единообразно! Посоветуйте с кодом, если можно!

[GSerg]

Даты где?
Даты текстом?
Даты датами?

[alibek]

Код: Выделить всё

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


[erzhavin]

Ага, спасибо, тока не понял почему Mid$ а не просто Mid и что такое If v3 < 38 ? Откуда 38? Я тока учусь...Ногами не пинать!

[alibek]

Mid$ правильнее будет, это строковая функция, а Mid - Variant.
А 38... Ну захотелось мне 38.

[Sedge]

А чем Format$("01/07/05", "dd.mm.yyyy") не устраивает?

[RayShade]

Alibek, правильнее когда хочется 42

[alibek]

Alibek, правильнее когда хочется 42

Это смотря кто что читает
Если читать Адамса, то 42, если MS и пророка ее MSDN, то 30. Ну а таким закоренелым агностикам как я, в самый раз будет 38

[A.A.Z.]

2 erzhavin: это просто трактовка даты, например, "01.01.38" - это 01.01.1938 или 01.01.2038? alibek поставил "порог" на 38 год - все, что раньше - "20ХХ", все, что позже - "19ХХ".

[erzhavin]

Все понял! Сделал, разобрался! Спасибо!

[uhm]

[off]
Есть еще "случайное число" - 14.
[/off]