Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Функция разности даты (вычесть из даты - дату) / 5 сообщений из 5, страница 1 из 1
12.04.2006, 06:17
    #33659894
rockhead
rockhead
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция разности даты (вычесть из даты - дату)
Для примера
Начало периода: 15/09/1954
Окончание периода: 15/02/1955
Результат (гг мм дд): 0 5 1

Делаю так:
=============
Dim vbDDMMYYYY

vbDDMMYYYY = DateSerial(Format(ADOrs7.Fields(3).Value, "yy"), Format(ADOrs7.Fields(3).Value, "mm"), Format(ADOrs7.Fields(3).Value, "dd")) - DateSerial(Format(ADOrs7.Fields(2).Value, "yy"), Format(ADOrs7.Fields(2).Value, "mm"), Format(ADOrs7.Fields(2).Value, "dd"))
=============
Результат выходит неверный (гг мм дд): 0 6 1

Вопрос: Подскажите как решить из Даты вычесть Дату? Или у кого есть функция решения.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.04.2006, 08:27
    #33659976
Worobjoff
Worobjoff
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция разности даты (вычесть из даты - дату)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Dim d1 As date, d2 As date
Dim i As long, j As long
d1 = "2006-02-01"
d2 = "2006-03-01"
i = DateDiff("d", d1, d2)
d2 = "2006-05-01"
j = DateDiff("m", d1, d2)
MsgBox Format(j, "YY dd MM")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.04.2006, 08:28
    #33659979
Worobjoff
Worobjoff
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция разности даты (вычесть из даты - дату)
первое выражение-разница в днях
второе-разница в месяцах
3. форматировать можно и число Long. Если надо увидеть разницу в месяцах-днях
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.04.2006, 02:51
    #33662998
rockhead
rockhead
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция разности даты (вычесть из даты - дату)
При вычислении разности даты по дням
дает результат 00 06 01 для моего примера,
добавляю: - 31 (минус месяц) результат: 0 5 1

Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.04.2006, 09:00
    #33666147
AndreyF
AndreyF
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция разности даты (вычесть из даты - дату)
Если нужна функция вычисления интервала между датами в полных датах/месяцах/..., т.е так как считается возраст или стаж, то смотрите сюда:

http://bbs.vbstreets.ru/viewtopic.php?t=19775
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Функция разности даты (вычесть из даты - дату) / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 430ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2166049]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 147ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 222ms
total:  430ms
x
x
Закрыть


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