|
|
|
Функция разности даты (вычесть из даты - дату)
|
|||
|---|---|---|---|
|
#18+
Для примера Начало периода: 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 Вопрос: Подскажите как решить из Даты вычесть Дату? Или у кого есть функция решения. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.04.2006, 06:17 |
|
||
|
Функция разности даты (вычесть из даты - дату)
|
|||
|---|---|---|---|
|
#18+
Код: plaintext 1. 2. 3. 4. 5. 6. 7. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.04.2006, 08:27 |
|
||
|
Функция разности даты (вычесть из даты - дату)
|
|||
|---|---|---|---|
|
#18+
первое выражение-разница в днях второе-разница в месяцах 3. форматировать можно и число Long. Если надо увидеть разницу в месяцах-днях ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.04.2006, 08:28 |
|
||
|
Функция разности даты (вычесть из даты - дату)
|
|||
|---|---|---|---|
|
#18+
При вычислении разности даты по дням дает результат 00 06 01 для моего примера, добавляю: - 31 (минус месяц) результат: 0 5 1 Спасибо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.04.2006, 02:51 |
|
||
|
|
start [/forum/topic.php?fid=60&msg=33659976&tid=2166049]: |
0ms |
get settings: |
10ms |
get forum list: |
15ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
186ms |
get topic data: |
11ms |
get forum data: |
2ms |
get page messages: |
57ms |
get tp. blocked users: |
1ms |
| others: | 250ms |
| total: | 538ms |
| 0 / 0 |
