Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Задание ц...

Тема: Задание цвета текста

15.06.2007 19:58:07

Dmitriy

2 сообщения

Тема: Задание цвета текста

1. Как можно при соответствии заданному условию задать цвет текста в определенном поле в форме.
2. Как извлечь из текста дату для дальнейших операций с ней. Пример: у меня текст 123123/010101/12313 надо извлечь дату 01.01.01. Пробую CVDate (Mid(....)) но получается другая дата и год 2037. Чего я не так делаю?

P.S. Раздел для новичков
Автор: Dmitriy от 15.10.2001 14:55:47 Источник ...

15.06.2007 19:58:07

All

4316 сообщения

RE: Задание цвета текста

1. 19 пример в файле la_form1.mdb
2. Используйте для разбора строки Mid, конвертации в данные Day, Year, Month и сборки в поле типа дата: DateSerial.

P.S. Раздел для новичков
Автор: Виктор Конюков от 0:00:00 Источник ...

15.06.2007 19:58:07

All

4316 сообщения

RE: Задание цвета текста

странно, никак не могу получить из "010101" год 2037

Dim str As String
Dim astr() As String
Dim i As Long
Dim y As Single

str = "123123/010101/12313"
astr() = Split(str, "/")
astr(0) = ""
For i = 1 To 5 Step 2
astr(0) = astr(0) & " " & Mid(astr(1), i, 2)
Next i
i = CDate("01.01.01")
y = Now 'системная дата и время
Debug.Print CDate(astr(0)); i; CDate(i); CDate(36892); y; CDate(y); DateValue(CDate(y)); TimeValue(CDate(y))

P.S. Раздел для новичков
Автор: Anonymous от 0:00:00 Источник ...

15.06.2007 19:58:07

All

4316 сообщения

RE: Задание цвета текста

Период работы со временем в Windows ограничен рамками с 1980 по 2099 год, поэтому надо использовать промежуток времени в этом диапазоне.

P.S. Раздел для новичков
Автор: Виктор Конюков от 0:00:00 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Задание ц...

Поиск

Список форумов

Начало | Forums