Легкие вопросы

[Ig]

Здравствуйте всем.

Похоже, что предыдущий вопрос оказалси сложноватым, поскольку я так и не получил ответа . Чтож задам два других... "полегче"..., но два...

Уважаемые...

1) Необходимо вычислить разницу между двумя днями, как днями недели, вне зависимости от их даты... Хм, словесная конструкция сложновата, но думаю пример поможет.
Итак, имеется два варианта решения этой задачи:

Код: Выделить всё

Private Sub tmp()
Dim a, b, c
a = Weekday(#5/25/2005#, vbMonday)
b = Weekday(#5/4/2005#, vbMonday)
' 1-й способ
c = DateDiff("w", #5/25/2005#, #5/4/2005#, vbMonday)
Debug.Print a, b, c
' 2-й способ
c = Weekday(a) - Weekday(b)
Debug.Print a, b, c
End Sub

Вопрос:
Это только у меня VBA так глючит, что получается два разных результата?
(забавно, но при:

Код: Выделить всё

' 1-й способ
c = DateDiff("w", a, b, vbMonday)
Debug.Print a, b, c
' 2-й способ
c = Weekday(#5/25/2005#, vbMonday) - Weekday(#5/4/2005#, vbMonday)
Debug.Print a, b, c
End Sub ,

результаты совпадают)

2) Как в Excel-e воткнуть "Progress bar" (Pb) в стандартный "Status bar" (тот, что - Application.StatusBar) с моим текстом или наоборот, к Pb прикрутить свой текст, чтобы это все дело отображалось в том же Sb?

[GSerg]

1. dd=d1-d2. Всё.
2. Лично я в этом случае выводил в таскбаре всякие глючные символы, которые кадратами выглядят Иллюзия прогресса полная.

[Ig]

2. Лично я в этом случае выводил в таскбаре всякие глючные символы, которые кадратами выглядят Иллюзия прогресса полная.

В смысле, все это дело к таймеру прикрутить (через определенное время - символ, крякозябла)? Или как-то Иначе?

А с DateDiff - это так, просто антирес: это у меня "композитор" или это и на самом деле - таракан дядюшки Билла?