Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проверить корректность даты / 8 сообщений из 8, страница 1 из 1
11.11.2005, 16:01:34
    #33374095
Сухов
Сухов
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверить корректность даты
Есть колонка тектового формата в ней пользователи набили дату в следющем виде:

01.01.2005
21.02.2005
44.02.2005 - нет такой даты
28.13.2005 - нет такого месяца

Вопрос как проверить корректность набора даты, потом данные нужно перелить в другую систему.
И еще вопрос как программно поменять региональные установки даты на компьютере пользователя? Чтобы дата 07.11.2005 не переворачивалась как 11.07.2005 ?


Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2005, 16:19:15
    #33374149
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверить корректность даты
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    Dim intI As Integer
    
    For intI =  1  To  4 
        If IsDate(Range("A" & intI)) Then
            Range("A" & intI).Offset( 0 ,  1 ) = "Дата"
        Else
            Range("A" & intI).Offset( 0 ,  1 ) = "Не дата"
        End If
    Next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2005, 16:27:30
    #33374178
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверить корректность даты
СуховИ еще вопрос как программно поменять региональные установки даты на компьютере пользователя?

Поменять в реестре значение HKEY_CURREMT_USER/Control Panel/Internation/sShortDate.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2005, 16:37:15
    #33374205
Сухов
Сухов
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверить корректность даты
Пользователь2
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    Dim intI As Integer
    
    For intI =  1  To  4 
        If IsDate(Range("A" & intI)) Then
            Range("A" & intI).Offset( 0 ,  1 ) = "Дата"
        Else
            Range("A" & intI).Offset( 0 ,  1 ) = "Не дата"
        End If
    Next


колонка содержит текстовый формат а не дата !!!
таких столбцов очень много ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.11.2005, 17:14:42
    #33374289
ывапывап
ывапывап
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверить корректность даты
1. Так переведи текст в дату! Функция ДатаЗнач.
2. Столкнулся с необходимостью переводить даты из американского стандарта mm/dd/yy в российский dd.mm.yy (из текстовых файлов). Написал функцию:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Public Function DateConvert(amdate As String) As String
Dim strTemp As String
    strTemp = Mid$(amdate,  4 ,  2 ) & "/" & Left$(amdate,  2 ) & "/" & Right$(amdate,  2 )
    If IsDate(strTemp) Then
        DateConvert = strTemp
    Else
        DateConvert = "неправильный формат"
    End If
   'Debug.Assert IsDate(strTemp)

End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.11.2005, 01:16:34
    #33374819
100g
100g
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверить корректность даты
СуховВопрос как проверить корректность набора даты
А через проверку вводимых значений не помогает?
Меню - Данные - Проверка.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2005, 09:56:44
    #33375925
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверить корректность даты
A1 - формат текстовый. 01.01.2005

Код: plaintext
1.
?IsDate(Range("A1"))
True
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.11.2005, 10:09:52
    #33375960
Сухов
Сухов
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проверить корректность даты
Спасибо isDate работает ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Проверить корректность даты / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 279ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2185563]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 30ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 26ms
get tp. blocked users:
 1ms
others: 193ms
total:  279ms
x
x
Закрыть


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