dim StrVyvod, Strokes, stroke
dim Ejday
dim sobEj
dim VVV
dim WMvp, Udat, WMc, WDc
dim WNvp
dim dn, nn
dim WDNvp
'Vdat = date()
stroke=""
PoiskEj
StrVyvod = ""

Sub PoiskEj()
StrVyvod = ""
VVV=0
select case Weekday(Vdat, 1)
case 1
dn="вс"
case 2
dn="пн"
case 3
dn="вт"
case 4
dn="ср"
case 5
dn="чт"
case 6
dn="пт"
case 7
dn="сб"
end select
nn=FormatNumber(FormatNumber(Mid(Vdat,1,2)/7+0.9, 10) - (FormatNumber(Mid(Vdat,1,2)/7+0.9, 10) - Mid(FormatNumber(Mid(Vdat,1,2)/7+0.9, 10),1,1)), 0)
WD3 = Month(Vdat)
Select Case WD3
    Case 2
    WD3 = 28
    Case 4
    WD3 = 30
    Case 6
    WD3 = 30
    Case 9
    WD3 = 30
    Case 11
    WD3 = 30
    Case Else
    WD3 = 31
End Select
If WD3 - Day(Vdat) < 7 Then
    WD3 = 0
Else
    WD3 = nn
End If
Ejday=WD3&dn&mid(Vdat,4,2)
'msgbox Ejday 
PoiskEJDat
Udat=Vdat
PoiskDnja
end sub


sub SpisokDat()
VVV=1
StrVyvod = ""
for WM=1 to 12 Step 1
WMv=WM
WDc=0
select case WM
case 1
WMvp="января":WMc="01"
case 2
WMvp="февраля":WMc="02"
case 3
WMvp="марта":WMc="03"
case 4
WMvp="апреля":WMc="04"
case 5
WMvp="мая":WMc="05"
case 6
WMvp="июня":WMc="06"
case 7
WMvp="июля":WMc="07"
case 8
WMvp="августа":WMc="08"
case 9
WMvp="сентября":WMc="09"
case 10
WMvp="октября":WMc="10"
case 11
WMvp="ноября":WMc="11"
case 12
WMvp="декабря":WMc="12"
end select
if WM<10 then WMv="0"&WM
for WN=1 to 5 Step 1
WNv=WN:WNvp=WN
if WN=5 then WNv=0:WNvp="последн."
for WDN=1 to 7 Step 1
select case WDN
case 1
WDNv="вс":WDNvp=" воскресенье "
case 2
WDNv="пн":WDNvp=" понедельник "
case 3
WDNv="вт":WDNvp=" вторник "
case 4
WDNv="ср":WDNvp=" среда "
case 5
WDNv="чт":WDNvp=" четверг "
case 6
WDNv="пт":WDNvp=" пятница "
case 7
WDNv="сб":WDNvp=" суббота "
end select
Ejday = WNv & WDNv & WMv
WDc = WDc + 1
if WDc<10 then WDc = "0" & WDc
Udat = WDc & "." & WMc & "." & "2009"
'msgbox Udat 
PoiskEJDat
PoiskDnja
next
next
next
end sub


sub PoiskEJDat()
'msgbox(dn &" - "&Mid(Vdat,1,2))
if dn="пт" and Mid(Vdat,1,2)=13 then
stroke="0пт00#Пятница 13-ое."
'SDE()
StrVyvod = StrVyvod & "<div class='magnify'><a href='#'><img src='fotobd\zodiac\friday13.gif' alt='пятница, 13'><img src='fotobd\zodiac\friday13.gif' alt='пятница, 13' class='preview'></a></div>"
end if

select case Ejday
case "1чт06"
stroke="#День Проверки вывода данных."
SDE()
case "2сб02"
stroke="2сб02#День Аэрофлота."
SDE()
case "2сб03"
stroke="2сб03#День землеустроителя Украины."
SDE()
case "2вс03"
stroke="2вс03#С 2000 года - День работников геодезии и картографии."
SDE()
case "3вс03"
stroke="3вс03#День работников торговли, бытового обслуживания населения и жилищно-коммунального хозяйства."
SDE()
case "0вс03"
stroke="0вс03#В 03.00 Переход на Европейское летнее время (часы переводятся на 1 час вперед)."
SDE()
case "1вс04"
stroke="1вс04#День геолога."
SDE()
case "2вс04"
stroke="2вс04#День войск противовоздушной обороны страны."
SDE()
case "3сб04"
stroke="3сб04#День окружающей среды в Украине."
SDE()
case "3вс04"
stroke="3вс04#День советской науки."
SDE()
case "0вс04"
stroke="0вс04#Всемирный день породненных городов."
SDE()
case "2вс05"
stroke="2вс05#День матери."
SDE()
case "3сб05"
stroke="3сб05#День науки в Украине.<br>День Европы в Украине."
SDE()
case "0сб05"
stroke="0сб05#День работников издательств, полиграфии и книгораспространения Украины."
SDE()
case "0вс05"
stroke="0вс05#День химика."
SDE()
case "1вс06"
stroke="1вс06#День работников водного хозяйства Украины (мелиоратора)."
SDE()
case "2вс06"
stroke="2вс06#День работников текстильной и лёгкой промышленности."
SDE()
case "3вс06"
stroke="3вс06#День медицинского работника."
SDE()
case "0сб06"
stroke="0сб06#День изобретателя и рационализатора."
SDE()
case "0вс06"
stroke="0вс06#День Молодёжи."
SDE()
case "1сб07"
stroke="1сб07#Международный день кооперации."
SDE()
case "1вс07"
stroke="1вс07#День работников морского и речного флота.<br>День войск противовоздушной обороны Украины."
SDE()
case "2вс07"
stroke="2вс07#День рыбака."
SDE()
case "3вс07"
stroke="3вс07#В СНГ - День металлурга."
SDE()
case "0сб07"
stroke="0сб07#День системного администратора."
SDE()
case "0вс07"
stroke="0вс07#День Военно-Морского Флота России."
SDE()
case "1вс08"
stroke="1вс08#День Воздушных сил Вооруженных сил Украины.<br>День работников торговли."
SDE()
stroke="1вс08#День железнодорожника."
SDE()
case "2сб08"
stroke="2сб08#День физкультурника."
SDE()
stroke="2сб08#День города Ялта."
SDE()
case "2вс08"
stroke="2вс08#День строителя."
SDE()
case "0сб08"
stroke="0сб08#День Воздушного Флота (авиации)."
SDE()
case "0вс08"
stroke="0вс08#День шахтера."
SDE()
case "1вс09"
stroke="1вс09#День предпринимателя Украины."
SDE()
case "2сб09"
stroke="2сб09#День украинского кино.<br>День физической культуры и спорта Украины."
SDE()
case "2вс09"
stroke="2вс09#День танкиста.<br>День работников нефтяной, газовой, нефтеперерабатывающей промышленности и нефтепродуктообеспечения."
SDE()
case "3сб09"
stroke="3сб09#День изобретателя и рационализатора Украины.<br>День фармацевтического работника Украины."
SDE()
case "3вс09"
stroke="3вс09#День работников леса."
SDE()
case "0вс09"
stroke="0вс09#День машиностроителя."
SDE()
case "1пн10"
stroke="1пн10#Международный день врача."
SDE()
case "1сб10"
stroke="1сб10#День встречи 7-ки."
SDE()
case "1вс10"
stroke="1вс10#День работников образования (учителя)."
SDE()
case "2вс10"
stroke="2вс10#День работников сельского хозяйства и перерабатывающей промышленности.<br>День работников санитарно-эпидемиологической службы Украины.<br>День художника Украины."
SDE()
case "3вс10"
stroke="3вс10#День работников пищевой промышленности."
SDE()
case "0вс10"
stroke="0вс10#День работников автомобильного транспорта и дорожного хозяйства."
SDE()
stroke="0вс10#В 03.00 Переход на Европейское зимнее время (часы переводятся на 1 час назад)."
SDE()
stroke="0вс10#День инженера-механика."
SDE()
case "0вс11"
stroke="0вс11#День матери."
SDE()
case "1вс11"
stroke="1вс11#День работника социальной сферы Украины."
SDE()
case "1сб11"
stroke="1сб11#Дмитриевская родительская суббота."
SDE()
case "3вс11"
stroke="3вс11#День работников сельского хозяйства Украины."
SDE()
case "0сб11"
stroke="4сб11#В Украине - День памяти жертв голодомора."
SDE()
case "2вс12"
stroke="2вс12#День благотворительности в Украине."
SDE()
case "4сб12"
stroke="4сб12#День энергетика."
SDE()
case else

end select
end sub

function SDE()
datEj=mid(stroke,1,inStr(stroke,"#"))
stroke=mid(stroke,inStr(stroke,"#")+1,len(stroke))
sobEj=mid(stroke,1,len(stroke))
stroke=""
if VVV=1 then
sobEjvr="<span style='font-family: arial; color: #006600; font-size: 10pt'><strong>"&WNvp&WDNvp&WMvp&"</strong></span>"
sobEj=sobEjvr & "<span style='font-family: arial; color: #006600; font-size: 12pt'><strong>"& " - " & sobEj & "</strong></span>"
end if
Vyv="<h1><span style='font-family: fantasy; color: #0000cd; font-size: 24pt'><strong>" & sobEj & "</strong></span></h1>"

StrVyvod = StrVyvod & Vyv
'msgbox(StrVyvod)
end function

Sub PoiskDnja()
PoDnja = mid(Udat,4,2) & mid(Udat,1,2)
select case PoDnja
case "0102"
strokes="В Испании - день Гранады."
case "0106"
strokes="В православном мире - Навечерие Рождества Христова (РОЖДЕСТВЕНСКИЙ СОЧЕЛЬНИК)."
case "0107"
strokes="В православном мире - Рождество Христово."
case "0110"
strokes="Праздник Вуду в Бенине. "
case "0111"
strokes="День заповедников.<br>Всемирный день «спасибо»."
case "0112"
strokes="День работника прокуратуры Российской Федерации (1722)<br>Декларация прав трудящихся и эксплуатируемого народа (1918)."
case "0113"
strokes="В России - день печати."
case "0114"
strokes="В православном мире - Обрезание Господне."
case "0115"
strokes="В США - день Мартина Лютера Кинга."
case "0117"
strokes="День Зосимы (последние святочные гадания)."
case "0120"
strokes="День Иоана Крестителя.<br>День автономной республики Крым."
case "0121"
strokes="В России - День Инженерных войск."
case "0122"
strokes="В Украине - День соборности."
case "0125"
strokes="День студентов (Татьянин день)."
case "0127"
strokes="День снятия блокады Ленинграда.<br>Всемирный день таможенника."
case "0128"
strokes="Международный день мобилизации против ядерной войны. "
case "0129"
strokes="В Украине - День работников пожарной охраны.<br>День изобретения автомобиля."
case "0202"
strokes="В США и Канаде - День сурка. <br>День разгрома советскими войсками немецко-фашистских войск в Сталинградской битве (1943)."
case "0204"
strokes="Международный день запрета пыток."
case "0206"
strokes="Международный день бармена (День святого Аманда)."
case "0208"
strokes="День российской науки."
case "0209"
strokes="День создания Гражданской авиации (1923)."
case "0210"
strokes="В России - день памяти Пушкина."
case "0211"
strokes="В России - день «Аэрофлота». <br>Всемирный день больного."
case "0212"
strokes="В США - день Линкольна."
case "0215"
strokes="В православном мире - Сретение Господне. <br>В России - день памяти воинов-интернационалистов."
case "0216"
strokes="В КНДР - день Ким Чен Ира. Восточный новый год."
case "0219"
strokes="В США - день Вашингтона (день президента). В Канаде - день семьи."
case "0221"
strokes="Международный день родного языка."
case "0223"
strokes="В России (в СНГ, в Украине с 2004 года) - День защитника Отечества."
case "0224"
strokes="В Рио-де-Жанейро (Бразилия) - начало карнавала."
case "0226"
strokes="День Мартиниана - укротителя страстей."
case "0228"
strokes="День Калевалы."
case "0301"
strokes="Всемирный день гражданской обороны. <br>Старинный русский праздник - день Кикиморы. <br>Международный день борьбы с наркоманией и наркобизнесом."
case "0303"
strokes="Международный день мира для писателя."
case "0304"
strokes="В США - День Конституции."
case "0308"
strokes="Международный женский день."
case "0310"
strokes=""
case "0315"
strokes="Всемирный день прав потребителя. <br>В Белоруссии - день Конституции. "
case "0317"
strokes="День святого Патрика."
case "0318"
strokes="В СССР - день Парижской коммуны. <br>В России - день налоговой полиции. <br>В СНГ - день работников жилищно-коммунального хозяйства. "
case "0319"
strokes="День моряка-подводника."
case "0321"
strokes="День весеннего равноденствия. <br>Всемирный день поэзии. <br>Международный день борьбы за ликвидацию расовой дискриминации (против расизма). <br>Всемирный день Земли. "
case "0322"
strokes="Всемирный день воды (водных ресурсов)."
case "0323"
strokes="Всемирный метеорологический день."
case "0324"
strokes="Всемирный день борьбы с туберкулезом."
case "0325"
strokes="В Украине - день Службы безопасности."
case "0326"
strokes="В Украине - день внутренних войск."
case "0327"
strokes="Международный день театра. <br>День внутренних войск МВД РФ."
case "0330"
strokes="В барселоне, Испания - день цветов."
case "0401"
strokes="День смеха. <br>Международный день птиц."
case "0402"
strokes="День единения народов. <br>Международный день детской книги."
case "0406"
strokes="День рождения московского трамвая (1899)."
case "0407"
strokes="Всемирный день здоровья.<br>B России - День памяти погибших подводников. <br>Благовещение Пресвятой Богородицы."
case "0410"
strokes="В США - День Армии Спасения."
case "0411"
strokes="Международный день освобождения узников фашистских концлагерей."
case "0412"
strokes="В Украине - День работников ракетно-космической отрасли. <br>Всемирный день авиации и космонавтики."
case "0413"
strokes="Всемирный день рок-н-ролла."
case "0414"
strokes="День ГАИ МВД Украины."
case "0415"
strokes="День работников уголовного розыска Украины."
case "0417"
strokes="В России - День работников пожарной охраны."
case "0418"
strokes="Международный день памятников и исторических мест. <br>В Украине - День памятников истории и культуры."
case "0420"
strokes="Православный праздник Радуница."
case "0421"
strokes="В Украине - День окружающей среды, в России - День Тихоокеанского флота."
case "0422"
strokes="Всемирный день земли."
case "0423"
strokes="В Древнем Риме - День проститутки. <br>Всемирный день книги и защиты авторских прав.<br>Всеукраинский день психолога.<br>День велосипеда."
case "0424"
strokes="Международный день солидарности молодёжи. "
case "0426"
strokes="В Украине - День чернобыльской трагедии. <br>День памяти погибших в радиационных авариях и катастрофах."
case "0429"
strokes="Международный день танца."
case "0430"
strokes="День пожарной охраны. <br>Вальпургиева ночь."
case "0501"
strokes="Международный день солидарности трудящихся. <br>В РФ - День Весны и Труда."
case "0503"
strokes="Всемирный день свободы печати."
case "0505"
strokes="В СССР этот день отмечали как День печати. "
case "0506"
strokes="Православный праздник День святого Георгия Победоносца."
case "0507"
strokes="В России - День работников связи. День радио, праздник работников всех отраслей связи. Праздник Балтийского флота."
case "0508"
strokes="В Европе и Америке - День победы. <br>Всемирный День Красного Креста и красного полумесяца."
case "0509"
strokes="День Победы. <br>День поминовения вождей и воинов, погибших на полях ВОВ."
case "0512"
strokes="Международный день медицинской сестры."
case "0513"
strokes="В Украине и в США, Канаде, Австралии, Мексике - День матери. <br>Праздник Черноморского флота."
case "0515"
strokes="Международный день семьи."
case "0517"
strokes="Международный день телекоммуникаций. "
case "0518"
strokes="Международный день музеев."
case "0519"
strokes="В СССР - День пионерии, <br>в Украине - День науки, <br>в США - День Вооруженных Сил. "
case "0520"
strokes="День банковских работников Украины."
case "0521"
strokes="День памяти умерших от СПИДа. <br>День защиты от безработицы. <br>День борьбы против терроризма в Индии."
case "0522"
strokes="Православный прраздник Поминовение святителя и чудотворца Николая из мир Ликийских."
case "0524"
strokes="В России, Украине, Беларуси, Болгарии и Словакии - День Киррила и Мефодия (День славянской письменности и культуры). <br>День крещения руси. "
case "0526"
strokes="В Украине - День работников издательств, полиграфии и книгораспространения. "
case "0527"
strokes="Общероссийский день библиотек."
case "0528"
strokes="В России - День пограничника. "
case "0531"
strokes="День борьбы с курением. "
case "0601"
strokes="Международный день защиты детей.<br>В России - День Северного флота."
case "0603"
strokes="В России - День мелиоратора, <br>в Украине - День войск ПВО. "
case "0604"
strokes="Международный день детей-жертв агрессии. "
case "0605"
strokes="Всемирный день охраны окружающей среды. "
case "0606"
strokes="В России - Пушкинский день.<br>День эколога.<br>В Украине - День журналиста."
case "0608"
strokes="С 2000 года в России - День социального работника."
case "0610"
strokes="В 1936 году основана студия «Союзмультфильм»."
case "0612"
strokes="В России - День независимости. <br>День принятия декларации о государственном суверенитете Российской Федерации."
case "0617"
strokes="Всемирный день по борьбе с опустыниванием и засухой. "
case "0621"
strokes="День летнего солнцестояния."
case "0622"
strokes="В России - День памяти защитников отечества. <br>В Украине - День скорби и памяти жертв войны, а также всех войн за свободу и независимость нашего отечества."
case "0623"
strokes="Международный олимпийский день."
case "0625"
strokes="В Украине - День таможенной службы. <br>День дружбы, единения славян."
case "0626"
strokes="Международный день борьбы с наркоманией. "
case "0628"
strokes="В Украине - День конституции. "
case "0701"
strokes="Всемирный день архитектуры. <br>В православном мире - День Боголюбской иконы Божьей матери. "
case "0702"
strokes="Международный день спортивного журналиста.<br>День работника налоговой службы Украины."
case "0703"
strokes="В Беларуси - День независимости. "
case "0704"
strokes="В России - День морской авиации.<br>В США - День независимости.<br>День судебного эксперта Украины."
case "0706"
strokes="У русской православной церкви - Праздник Владимирской иконы Божьей Матери (главной чудотворной иконы России). "
case "0707"
strokes="Рождество святого Иоанна Предтечи, крестителя Господня."
case "0708"
strokes="День Петра и Февронии."
case "0709"
strokes="День российской почты."
case "0710"
strokes="День победы русской армии под командованием Петра Первого над шведами в Полтавском сражении (1709). "
case "0711"
strokes="Всемирный день народонаселения."
case "0712"
strokes="В православном мире - День апостолов Петра и Павла (Петровки). "
case "0716"
strokes="День бухгалтера Украины. "
case "0720"
strokes="Международный день шахмат. "
case "0723"
strokes="В России - День работников торговли."
case "0727"
strokes="В Беларуси - День независимости."
case "0730"
strokes="В Украине - День работников торговли. "
case "0731"
strokes="День африканской женщины. "
case "0801"
strokes="В Украине - День Военно-Морских Сил."
case "0802"
strokes="В православном мире - Ильин день (День Ильи Пророка) <br>В Украине - День аэромобильных войск <br>В России - День воздушно-десантных войск."
case "0806"
strokes="День Хиросимы. <br>Всемирный день борьбы за запрещение ядерного оружия. <br>В СНГ - день железнодорожника и железнодоржных войск. <br>Международный день «Врачи мира за мир»."
case "0808"
strokes="В Украине - День войск связи. "
case "0809"
strokes="Всемирный день коренных народов мира.<br> День победы русского флота над шведами в битве у мыса Гангут, 1714 г."
case "0812"
strokes="День Военно-воздушных сил (праздничные мероприятия, посвященные Дню Военно-воздушных сил, проводятся в День Воздушного Флота России)."
case "0813"
strokes="Международный день левшей."
case "0814"
strokes="Первый спас (Медовый спас)."
case "0816"
strokes="Международный день озонового слоя."
case "0819"
strokes="Православный праздник - Преображение Господне (Яблочный спас). <br>В Украине - День пасечника."
case "0822"
strokes="<img src='foto/19oth.gif' align=left>День Государственного Флага Российской Федерации.<br><br><br>"
case "0823"
strokes="<img src='foto/FlagUkraine.gif' align=left>В Украине - День Государственного флага (с 2004).<br><br><br>"
case "0824"
strokes="День независимости Украины."
case "0826"
strokes="В Украине - День авиации."
case "0827"
strokes="День Российского кино."
case "0828"
strokes="Православный праздник - Успение Пресвятой Богородицы. "
case "0829"
strokes="День празднования Феодоровской иконы Божией Матери."
case "0901"
strokes="Всемирный день мира. <br>День знаний. <br>День профсоюзных действий за мир."
case "0902"
strokes="День российской гвардии."
case "0907"
strokes="В Украине - День разведки. <br>День Бородино."
case "0908"
strokes="Международный день солидарности журналистов.<br>День поминовения в память защитников Ленинграда, павших и живых — день начала блокады.<br>Международный день искоренения неграмотности."
case "0909"
strokes="Всемирный день красоты. "
case "0910"
strokes="Международный день памяти жертв фашизма.<br>В России - День танкиста."
case "0911"
strokes="Православный праздник - День усекновения главы крестителя Иоанна Предтечи."
case "0916"
strokes="Международный день охраны озонового слоя."
case "0917"
strokes="В США - день гражданства.<br>День спасателя Украины."
case "0921"
strokes="Православный праздник - Рождество Пресвятой Богородицы.<br>Международный день мира."
case "0923"
strokes="День осеннего равноденствия."
case "0925"
strokes="Всемирный день моря."
case "0926"
strokes="Международный день глухонемых. "
case "0927"
strokes="Православный праздник - Воздвижение животворящего Креста Господня. <br>Международный день туризма."
case "0928"
strokes="На Тайване - День Конфуция (день учителя и образования). "
case "0929"
strokes="В Англии - Михайлов День (начало учебных занятий в ВУЗах, на обед подают гусей). "
case "0930"
strokes="Православный праздник - В память мучениц Веры, Надежды, Любови и матери их Софьи.<br>День усыновления в Украине.<br>Всеукраинский день библиотек."
case "1001"
strokes="Международный день пожилых людей.<br>Международный день музыки."
case "1004"
strokes="Международный день жилья.<br>Всемирный день архитектуры.<br>Международный день защиты животных.<br>День военно-космических сил РФ."
case "1005"
strokes="Международный день учителя."
case "1009"
strokes="Всемирный день почты.<br>Международный день борьбы за ликвидацию последствий стихийных бедствий."
case "1010"
strokes="Международный день психического здоровья."
case "1011"
strokes="День Колумба в США. "
case "1013"
strokes="Международный день по уменьшению опасности стихийных бедствий."
case "1014"
strokes="Покров Пресвятой Богородицы.<br>Международный день стандартизации.<br>В Украине - День украинского казачества.<br>Суккот (еврейский мир)."
case "1016"
strokes="Всемирный день продовольствия."
case "1017"
strokes="Международный день протеста против нищеты."
case "1020"
strokes="День моряка-надводника."
case "1024"
strokes="Международный день Организации Объединенных Наций.<br>Всемирный день информации в целях развития."
case "1025"
strokes="День таможенника Российской Федерации.<br>Международный день борьбы женщин за мир."
case "1028"
strokes="День освобождения Украины от немецко-фашистских захватчиков.<br>Международный день анимации.<br>В Украине - День спасателя. "
case "1029"
strokes="День рождения комсомола (1918)."
case "1030"
strokes="День памяти жертв политических репрессий.<br>Православный праздник - Дмитриевская суббота."
case "1031"
strokes="День Всех Святых «Хэллоуин».<br>Международный день Черного моря.<br>День автомобилиста."
case "1102"
strokes="День международного признания Петербурга."
case "1103"
strokes="Всемирный день мужчин.<br>В Украине - День инженерных войск.<br>День ракетных войск и артиллерии."
case "1104"
strokes="В Украине - день пограничных войск и день национальной гвардии.<br>День железнодорожника Украины."
case "1105"
strokes="В Англии - Ночь Гая Фокса<br>В Марокко - День зелёного движения<br>В Украине - День работника социальной сферы."
case "1106"
strokes="Международный день науки.<br>Православный праздник «Всех скорбящих радость»."
case "1107"
strokes="В России - День согласия и примирения.<br>День воинской славы России в честь освобождения Москвы в 1612 г."
case "1108"
strokes="В Непале - День королевы."
case "1109"
strokes="Всемирный день качества.<br>В Украине - День украинской письменности и языка."
case "1110"
strokes="Всемирный день молодёжи.<br>В России - День милиции."
case "1111"
strokes="В Канаде - День поминовения.<br>В США - День ветеранов.<br>В Польше - День независимости."
case "1112"
strokes="День банковского работника."
case "1113"
strokes="Международный день слепых."
case "1114"
strokes="Всемирный день борьбы против диабета. "
case "1115"
strokes="Всероссийский день призывника.<br>Всемирный день борьбы с табакокурением."
case "1116"
strokes="В Украине - День работников радио, телевидения и связи.<br>В России - День морской пехоты.<br>Международный день терпимости."
case "1117"
strokes="Международный день студентов."
case "1118"
strokes="В Латвии - День провозглашения республики."
case "1119"
strokes="Всемирный день приветствий.<br>Всемирный день телевидения.<br>Всемирный день эмигранта.<br>«День стеклодела» Украины.<br>День работников гидрометеорологической службы Украины."
case "1120"
strokes="В Мексике - День революции. "
case "1121"
strokes="С 2000 года День работника налоговых органов Российской Федерации.<br>У буддистов - День Катина."
case "1122"
strokes="С 2005 года День свободы Украины."
case "1124"
strokes="В послереволюционной России - «День Красного офицера»."
case "1125"
strokes=""
case "1126"
strokes="День Святого Иоанна Златоуста."
case "1127"
strokes="Всемирный день защиты женщин от насилия.<br>День морской пехоты в России (в память Указа Петра I о создании первого в России «полка морских солдат» (1709)."
case "1128"
strokes="Начало Рождественского поста."
case "1129"
strokes="В Албании - День освобождения от фашизма."
case "1130"
strokes="В Шотландии - День святого апостола Андрея. "
case "1201"
strokes="Международный день борьбы со СПИДом<br>День победы русской эскадры под командованием П.С.Нахимова над турецкой эскадрой у мыса Синоп (1853)."
case "1202"
strokes="В Америке - Панамериканский день здоровья."
case "1203"
strokes="Международный день инвалидов."
case "1204"
strokes="Православный праздник - Введение во Храм Пресвятой Богородицы."
case "1205"
strokes="Международный день добровольцев во имя экономического и социального развития.<br>День начала контрнаступления советских войск против немецко-фашистских войск в битве под Москвой (1941 г.)."
case "1206"
strokes="В Украине - день вооруженных сил."
case "1207"
strokes="Международный день гражданской авиации."
case "1208"
strokes="В католических странах — День Непорочного Зачатия. "
case "1209"
strokes="Православный праздник — Память Святого Великомученика и Победоносца Георгия (Юрьев день — зимний)."
case "1210"
strokes="День прав человека."
case "1211"
strokes="Всемирный день детского телевещания."
case "1212"
strokes="В России - День Конституции Российской Федерации."
case "1213"
strokes="Православный праздник — Память Святого Апостола Андрея Первозванного."
case "1214"
strokes="В Швейцарии - женский фестиваль."
case "1217"
strokes="В России - День ракетных войск стратегического назначения."
case "1219"
strokes="Международный день помощи бедным. <br>Православный праздник — Память святителя Николая-Чудотворца (Никола Зимний)."
case "1220"
strokes="В России - День работников органов госбезопасности<br>В Украине - день милиции."
case "1224"
strokes="У католиков - Рождественский сочельник."
case "1225"
strokes="У католиков - Рождество."
case "1226"
strokes="У католиков - День подарков."
case "1227"
strokes="В России - день спасателя.<br>В исламском мире - Ид аль-Фитр (Шаввал)."
case "1228"
strokes="У католиков - день избиения младенцев."
case "1229"
strokes="Международный день биологического разнообразия."
case "1230"
strokes="В СССР отмечался день образования и Конституции."
case else
strokes=""
end select
if strokes="" then
strokes="--проверка--"
else
if VVV=1 then
strokesvr = "<span style='font-family: arial; color: #006600; font-size: 10pt'><strong>" & WDc & " " & WMvp & "</strong></span>"
strokes = strokesvr & "<span style='font-family: arial; color: #006600; font-size: 12pt'><strong>" & " - " & strokes & "</strong></span>"
end if
strokes="<h1><span style='font-family: fantasy; color: #0000cd; font-size: 24pt'><strong>" & strokes & "</strong></span></h1>"
StrVyvod = StrVyvod & strokes
end if
end sub