Format, Date

[jetcom]

Всем привет!

str = "24 Июля 2003 г."
str = Format(str, "dd.mm.yy")

Мне нужно получить 24.07.03
А выдает все-равно почему-то "24 Июля 2003 г."
В чем моя ошибка?

[skiperski]

Почимучто на входе функции тип параметра должен быть Date или Double, или Single, или Long и т.д., но никак не String.

[ASD]

Почимучто на входе функции тип параметра должен быть Date или Double, или Single, или Long и т.д., но никак не String.

Тем более что дата которую ты переводишь имеет текст.
Если передавать чтото типа "10.10.1999" тогда и стринг пройдет.

[Calvin]

вот если написать так, то получится (если же конечно это устроит)
str = "24 Июля 2003"
str = Format(str, "dd.mm.yy")

или даже вот так
str = "24 Июля 2003 г."
str = Format(Left(str, Len(str) - 3), "dd.mm.yy")

[noemotion]

...А еще есть интересная функция CDate()

[jetcom]

2noemotion: Ты сам то пробовал ее в данном случае применить?
Помогло?
Так вот то-ж!...
2Calvin: Получается, не спорю,... а если иногда " г." отсутствует?...
Так вот то-ж!...
Но все-равно спасибо, хоть вижу к чему стремиться нужно! И какими путями!
Если не получится, буду еще беспокоить, не обессудьте! Универсального ответа пока нет:)

[Calvin]

может тогда все-таки так

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

i=0
Do While IsNumeric(Mid(Str, Len(Str) - i, 1)) = False
i = i + 1
If i > Len(Str) Then End
Loop
Str = Format(Left(Str, Len(Str) - i), "dd.mm.yy")


[skiperski]

А зачем такие заморочки? Почему бы не использовать проверенные и заведомо рабочие варианты? Где тут сермяжная правда?

[alibek]

А почему бы не сделать свой парсер?
В выражении всего одно строковое значение. Разбиваешь строку по пробелам и анализируешь части. Если одна или две цифры -- это день месяца, если четыре -- это год. Самое сложное это название месяца, но тут всего 12 вариантов. Переводишь все в UCase$, делаешь Left$(,3) и дальше Select Case с двенадцатью условиями. Все остальное игнорируешь.
Я даже могу предложить тебе функцию (аналог Oracle-функции Decode):

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

Function Decode(ByVal Value As Variant, ParamArray Pairs() As Variant) As Variant
Dim N As Long, I As Long
N = UBound(Pairs) - LBound(Pairs) + 1
N = N Mod 2
If N = 1 Then OraDecode = Pairs(UBound(Pairs))
For I = LBound(Pairs) To UBound(Pairs) - N Step 2
  If Value = Pairs(I) Then
    OraDecode = Pairs(I + 1)
    Exit Function
  End If
Next I
End Function


Использование:
Decode(Значение, Значение1,Пара1[, Значение2,Пара2, ...][, ПараПоУмолчанию])
Значение будет сопоставляться с каждым из ЗначениеN и если найдено соответствие, то возвратится ПараN, если не найдено соответствие ни для одного значения, то возвратится ПараПоУмолчанию

Т.е. определение месяца будет выглядеть так

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

'MStr - строка, в которой указан месяц
MStr = Left$(UCase$(MStr),3)
M = Decode(MStr, "ЯНВ",1, "ФЕВ",2, "МАР",3, "АПР",4, "МАЙ",5, "ИЮН",6, "ИЮЛ",7, "АВГ",8, "СЕН",9, "ОКТ",10, "НОЯ",11, "ДЕК",12)


[skiperski]

А почему бы не сделать свой парсер?

Эт, конечно, мона, но зачем?

[jetcom]

2alibek: Парсер, - вещЧь, конечно, веселенькая, но решать такую простую задачу такой ценой?!?...
Дешевле уж по совету Calvin убивать " г.", если оно есть
Но если эта str получена путем Format(Date, 'LONG DATE'), неужели нельзя просто ее привести к необходимому виду при помощи "SHORT DATE"???
2skiperski: Мне кажется, что у тебя есть что сказать, но ты никак не решаешься!
Так говори-же!!!

[skiperski]

2skiperski: Мне кажется, что у тебя есть что сказать, но ты никак не решаешься!
Так говори-же!!!

Да как всегда всё о том же. Никак не пойму зачем усложнять и без того нелёгкую жизнь, а потом героически преодолевать самими же созданные проблемы. Возьми дату в формате Date и работай с ней. Или объясни зачем нужны эти извращения с текстом.

[jetcom]

2skiperski:
Написал программу для печати ценников, она дату берет из накладной, в которой бывает: ".......... г.", бывает без него, или еще как-нибудь иначе, а мне нужно привести это к вышеуказанному формату. Вот откуда эта проблема...
Т. е. нет смысла анализировать кучу форматов дат в строковом виде (программе), а есть смысл распознать в строке дату и каким-то образом конвертировать в нужный формат

[ПЕТР]

А, что трудно строку просто проанализировать, если в ней как-то не по правилам дата написана. Небольшая функция, читаещь по символу, С начала если цифра собираешь день, далее пробелы пропускаешь, если буква собираешь месяц (месяцев по моему всего 12), ну идалее собираешь год. Если что-то не подходит ну извините, никакие форматы не распознают 34 июлу 2003г.

[jetcom]

Аналогичное уже было предложено выше alibek-ом.
Ну если иначе никак, тогда придется именно так!