Выделить каждые 2 дня (N дней)

[Sasha_Smirnov]

Собственно проекту уже скоро 8 лет.
То, что требуется тем, кто работает 2 через 2, даёт малюсенькая вставка (относительно всего проекта).

If Not НеПервыйЗапуск Then
MsgBox "Для разметки (выделения жирным) дней календаря 2 через 2 необходимо, поскольку программа" & _
Chr(13) & "ПРОБНАЯ, запускать её в ваш первый (из двух) выходной день." & _
Chr(13) & Chr(13) & "(Если русский — просто жмите ввод и... ждите.)" & _
Chr(13) & Chr(13) & "Примечание 1. На границе новых суток происходит сбой (на 1 день)." & _
Chr(13) & Chr(13) & "Примечание 2. В версии от 13.09.2010 выходные дни — не жирные (2 через 2).", vbInformation

NowadayNumber = DatePart("y", Date) ' ВЫЧИСЛЕНИЕ НОМЕРА СЕГОДНЯШНИХ СУТОК (считая с 1 января)
MsgBox "Идёт " & NowadayNumber & "-й день " & Year(Date) & " года.", vbInformation

End If

'366 - это чтобы перед взятием остатка не получать в скобках отрицательное число'
If (366 + DatePart("y", D) - NowadayNumber) Mod 4 < 2 Then
'выделяем дни года (D) 2 через 2, применяя:'
.Font.Bold = True                   '1) жирность
.Font.Name = "arial"                '2) шрифт Arial
End If
                .TypeText Day(D) 'ПЕЧАТЬ ДНЯ d
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

В приложенном документе — по Alt-F8 подпрограмма calendula_2after2().

И конечно, я бы с удовольствием посмотрел на нечто похожее, но более удобное.

[Sasha_Smirnov]

Вот наконец сделал N через 2!

Добавил белорусский и украинский, но не до конца!

Желающим поупражняться — список (извлечён из недр Windows):

ЯНВАРЬ - РУССКИЙ
СТУДЗЕНЬ - БЕЛОРУССКИЙ
СІЧЕНЬ - УКРАИНСКИЙ
JANVIER - ФРАНЦУЗСКИЙ
JANUARY - АНГЛИЙСКИЙ
JANUAR - ДАТСКИЙ
JANUAR - НОРВЕЖСКИЙ (НОНОРСК)
JANUAR - НОРВЕЖСКИЙ (БУКМОЛ)

ФЕВРАЛЬ - РУССКИЙ
ЛЮТЫ - БЕЛОРУССКИЙ
ЛЮТИЙ - УКРАИНСКИЙ
FEVRIER - ФРАНЦУЗСКИЙ
FEBRUARY - АНГЛИЙСКИЙ
FEBRUAR - ДАТСКИЙ
FEBRUAR - НОРВЕЖСКИЙ (НОНОРСК)
FEBRUAR - НОРВЕЖСКИЙ (БУКМОЛ)

МАРТ - РУССКИЙ
САКАВІК - БЕЛОРУССКИЙ
БЕРЕЗЕНЬ - УКРАИНСКИЙ
MARS - ФРАНЦУЗСКИЙ
MARCH - АНГЛИЙСКИЙ
MARTS - ДАТСКИЙ
MARS - НОРВЕЖСКИЙ (НОНОРСК)
MARS - НОРВЕЖСКИЙ (БУКМОЛ)

АПРЕЛЬ - РУССКИЙ
КРАСАВІК - БЕЛОРУССКИЙ
КВІТЕНЬ - УКРАИНСКИЙ
AVRIL - ФРАНЦУЗСКИЙ
APRIL - АНГЛИЙСКИЙ
APRIL - ДАТСКИЙ
APRIL - НОРВЕЖСКИЙ (НОНОРСК)
APRIL - НОРВЕЖСКИЙ (БУКМОЛ)

МАЙ - РУССКИЙ
МАЙ - БЕЛОРУССКИЙ
ТРАВЕНЬ - УКРАИНСКИЙ
MAI - ФРАНЦУЗСКИЙ
MAY - АНГЛИЙСКИЙ
MAJ - ДАТСКИЙ
MAI - НОРВЕЖСКИЙ (НОНОРСК)
MAI - НОРВЕЖСКИЙ (БУКМОЛ)

ИЮНЬ - РУССКИЙ
ЧЭРВЕНЬ - БЕЛОРУССКИЙ
ЧЕРВЕНЬ - УКРАИНСКИЙ
JUIN - ФРАНЦУЗСКИЙ
JUNE - АНГЛИЙСКИЙ
JUNI - ДАТСКИЙ
JUNI - НОРВЕЖСКИЙ (НОНОРСК)
JUNI - НОРВЕЖСКИЙ (БУКМОЛ)

ИЮЛЬ - РУССКИЙ
ЛІПЕНЬ - БЕЛОРУССКИЙ
ЛИПЕНЬ - УКРАИНСКИЙ
JUILLET - ФРАНЦУЗСКИЙ
JULY - АНГЛИЙСКИЙ
JULI - ДАТСКИЙ
JULI - НОРВЕЖСКИЙ (НОНОРСК)
JULI - НОРВЕЖСКИЙ (БУКМОЛ)

АВГУСТ - РУССКИЙ
ЖНІВЕНЬ - БЕЛОРУССКИЙ
СЕРПЕНЬ - УКРАИНСКИЙ
AOUT - ФРАНЦУЗСКИЙ
AUGUST - АНГЛИЙСКИЙ
AUGUST - ДАТСКИЙ
AUGUST - НОРВЕЖСКИЙ (НОНОРСК)
AUGUST - НОРВЕЖСКИЙ (БУКМОЛ)

СЕНТЯБРЬ - РУССКИЙ
ВЕРАСЕНЬ - БЕЛОРУССКИЙ
ВЕРЕСЕНЬ - УКРАИНСКИЙ
SEPTEMBRE - ФРАНЦУЗСКИЙ
SEPTEMBER - АНГЛИЙСКИЙ
SEPTEMBER - ДАТСКИЙ
SEPTEMBER - НОРВЕЖСКИЙ (НОНОРСК)
SEPTEMBER - НОРВЕЖСКИЙ (БУКМОЛ)

ОКТЯБРЬ - РУССКИЙ
КАСТРЫЧНІК - БЕЛОРУССКИЙ
ЖОВТЕНЬ - УКРАИНСКИЙ
OCTOBRE - ФРАНЦУЗСКИЙ
OCTOBER - АНГЛИЙСКИЙ
OKTOBER - ДАТСКИЙ
OKTOBER - НОРВЕЖСКИЙ (НОНОРСК)
OKTOBER - НОРВЕЖСКИЙ (БУКМОЛ)

НОЯБРЬ - РУССКИЙ
ЛІСТАПАД - БЕЛОРУССКИЙ
ЛИСТОПАД - УКРАИНСКИЙ
NOVEMBRE - ФРАНЦУЗСКИЙ
NOVEMBER - АНГЛИЙСКИЙ
NOVEMBER - ДАТСКИЙ
NOVEMBER - НОРВЕЖСКИЙ (НОНОРСК)
NOVEMBER - НОРВЕЖСКИЙ (БУКМОЛ)

ДЕКАБРЬ - РУССКИЙ
СНЕЖАНЬ - БЕЛОРУССКИЙ
ГРУДЕНЬ - УКРАИНСКИЙ
DECEMBRE - ФРАНЦУЗСКИЙ
DECEMBER - АНГЛИЙСКИЙ
DECEMBER - ДАТСКИЙ
DESEMBER - НОРВЕЖСКИЙ (НОНОРСК)
DESEMBER - НОРВЕЖСКИЙ (БУКМОЛ)

[Sasha_Smirnov]

Добавил наконец языки западных братьев-славян (украинский и белорусский)!

Но дни недели — русские. Перевести?

[Sasha_Smirnov]

http://programmersforum.ru/member.php?u=26717

А чего хотели-то, братия?

(Извините за бестолковый пост, толковый — предыдущий.)

[Sasha_Smirnov]

Вот, после опытов в Delphi, здесь (двумя постами выше) можете проверить любой год.

Запуск по F10. Меню проекта по Alt-F8.