ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / найти даты в любом формате
6 сообщений из 6, страница 1 из 1
найти даты в любом формате
    #37277339
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
пользователи дату могут написать примерно в 10-20 форматах
как их все найти в ячейке таблицы Ворда??
Пробовал:
Код: plaintext
1.
Dim C_Date As String
C_Date = CDate(Ячейка_таблицы_Word(Количество_ячеек_таблицы))
но увы:
'последовательность элементов даты(день, месяц, год)
'в аргументе, распознаваемом как дата определяются установками текущего компьютера
...
Рейтинг: 0 / 0
24.05.2011, 18:34
| Ответить | Цитировать | Написать  
найти даты в любом формате
    #37277484
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
"Суббота для человека, а не человек для субботы" (с)
Так что пусть вводят данные в едином формате. Это не ваша забота...

На крайний случай - ячейки для ввода даты форматируются по единому шаблону.
...
Рейтинг: 0 / 0
24.05.2011, 21:07
| Ответить | Цитировать | Написать  
найти даты в любом формате
    #37277490
пробуй камнем
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пробуй камнем
Гость
Ципихович Эндрю...
как их все найти в ячейке таблицы Ворда??Встречный вопрос - а как они (даты) туда попадают ? И не говрите мне, что позволяете пользователям вносить данные в беззащитный докумен word, не поверю! Для ввода есть формы.
...
Рейтинг: 0 / 0
24.05.2011, 21:18
| Ответить | Цитировать | Написать  
найти даты в любом формате
    #37277501
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
пробуй камнем, что значит не поверю?
ну и зря
Обычная ячейка таблицы Ворда
Ну делал, но хотелось по взрослому, да и ещё с годом не управился и не все варианты предусмотрел

 
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
If Mid$(String:=Ячейка_таблицы_Word(Количество_ячеек_таблицы), Start:= 1 , Length:= 1 ) <> "0" Then
Дата_рождения_день = Left$(Ячейка_таблицы_Word(Количество_ячеек_таблицы),  2 )
Else
Дата_рождения_день = Mid$(String:=Ячейка_таблицы_Word(Количество_ячеек_таблицы), Start:= 1 , Length:= 2 )
End If

If LCase(Ячейка_таблицы_Word(Количество_ячеек_таблицы)) Like "*январ*"  Then
Дата_рождения_месяц = "1"
ElseIf  LCase(Ячейка_таблицы_Word(Количество_ячеек_таблицы)) Like "*феврал*" Then
Дата_рождения_месяц = "2"
ElseIf   LCase(LCase(Ячейка_таблицы_Word(Количество_ячеек_таблицы))) Like "*март*" Then
Дата_рождения_месяц = "3"
ElseIf  LCase(Ячейка_таблицы_Word(Количество_ячеек_таблицы)) Like "*апрел*" Then
Дата_рождения_месяц = "4"
'сделано, чтобы исколючить ошибки
ElseIf  LCase(Ячейка_таблицы_Word(Количество_ячеек_таблицы)) Like "*май*" Then
Дата_рождения_месяц = "5"
'сделано, чтобы исколючить ошибки
ElseIf  LCase(Ячейка_таблицы_Word(Количество_ячеек_таблицы)) Like "*мая*" Then
Дата_рождения_месяц = "5"
ElseIf  LCase(Ячейка_таблицы_Word(Количество_ячеек_таблицы)) Like "*июн*" Then
Дата_рождения_месяц = "6"
ElseIf  LCase(Ячейка_таблицы_Word(Количество_ячеек_таблицы)) Like "*июл*" Then
Дата_рождения_месяц = "7"
ElseIf  LCase(Ячейка_таблицы_Word(Количество_ячеек_таблицы)) Like "*август*" Then
Дата_рождения_месяц = "8"
ElseIf  LCase(Ячейка_таблицы_Word(Количество_ячеек_таблицы)) Like "*сентябр*" Then
Дата_рождения_месяц = "9"
ElseIf  LCase(Ячейка_таблицы_Word(Количество_ячеек_таблицы)) Like "*октябр*" Then
Дата_рождения_месяц = "10"
ElseIf  LCase(Ячейка_таблицы_Word(Количество_ячеек_таблицы)) Like "*ноябр*" Then
Дата_рождения_месяц = "11"
ElseIf  LCase(Ячейка_таблицы_Word(Количество_ячеек_таблицы)) Like "*декабр*" Then
Дата_рождения_месяц = "12"
End If
...
Рейтинг: 0 / 0
24.05.2011, 21:28
| Ответить | Цитировать | Написать  
найти даты в любом формате
    #37277592
пробуй камнем
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
пробуй камнем
Гость
Ципихович Эндрю,
 
гыгы "по-взрослому". Простите, не сдержался...
автор
Код: plaintext
1.
2.
3.
4.
If Mid$(String:=Ячейка_таблицы_Word(Количество_ячеек_таблицы), Start:= 1 , Length:= 1 ) <> "0" Then
Дата_рождения_день = Left$(Ячейка_таблицы_Word(Количество_ячеек_таблицы),  2 )
Else
Дата_рождения_день = Mid$(String:=Ячейка_таблицы_Word(Количество_ячеек_таблицы), Start:= 1 , Length:= 2 )
End If

Код: plaintext
1.
2.
3.
4.
if (какое-то условие) then
день_рождения = первые_два_знака_строки(содержимое_ячейки)
else
день_рождения = два_знака_строки_начиная_с_первого(содержимое_ячейки)
end if
Зачем условие проверять, если дню_рождения в обоих случаях присваиваете одно и тоже значение?
...
Рейтинг: 0 / 0
24.05.2011, 23:28
| Ответить | Цитировать | Написать  
найти даты в любом формате
    #37277707
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
пробуй камнем,

да просто не проверял
тогда вместо
Start:=1, Length:=2
надо
Start:=2, Length:=1
...
Рейтинг: 0 / 0
25.05.2011, 05:48
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / найти даты в любом формате
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&tid=2176843]:
 0ms
get settings:
 7ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 152ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 201ms
total:  430ms
созд. / загр.: 430ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]