Календарь выставок РКФ на 2010 год

[Estrellero]

понятно, что в ручную стремно... А что за программулина?

примерно так:

Public Function DateEx(DatIn As String) As Date

Dim Y As String

Dim M As String

Dim D As String

Dim OutDat As Date

Dim sAux As String

Dim sArr() As String

Y = "2010"

sArr = Split(DatIn, ".")

M = sArr(1)

D = Mid$(sArr(0), 1, 2)

sAux = D + "-" + M + "-" + Y

'Debug.Print sAux

OutDat = CDate(sAux)

DateEx = OutDat

End Function

[Лена и Лана]

Ух ты!

А где таким программкам учать?

примерно так:

Public Function DateEx(DatIn As String) As Date

Dim Y As String

Dim M As String

Dim D As String

Dim OutDat As Date

Dim sAux As String

Dim sArr() As String

Y = "2010"

sArr = Split(DatIn, ".")

M = sArr(1)

D = Mid$(sArr(0), 1, 2)

sAux = D + "-" + M + "-" + Y

'Debug.Print sAux

OutDat = CDate(sAux)

DateEx = OutDat

End Function

[Авоська]

Ух ты!

А где таким программкам учать?

на Кибернетике))) факультет по-моему так назывался))) Хотя похоже эт уже-самообразование))

[Лена и Лана]

У меня просто нет слов!

Завидую белой завистью!

на Кибернетике))) факультет по-моему так назывался))) Хотя похоже эт уже-самообразование))

[РиЭра]

Поработал на сообщество:

Подготовленный файл с разными сортировками

1. дата

2. город-дата

3. ранг-дата

4. федерация дата

5. ранг-город-дата

Коля, какой ты молодец Просто СУПЕР

Большое человеческое спасибо!!!