Управление документами Word и Excel на VBA - eDrive
Управление документами Word и Excel на VBA - eDrive
Управление документами Word и Excel на VBA - eDrive
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
26<br />
If CheckBox.Value = False Then<br />
дс = days<br />
мс = months<br />
<strong>на</strong>дп<strong>и</strong>сь.Caption = "Срок: дней, месяцев, лет"<br />
Else<br />
дс = d<br />
мс = years * 12 + months<br />
<strong>на</strong>дп<strong>и</strong>сь.Caption = "Полных дней, месяцев, лет"<br />
End If<br />
гс = years<br />
Exit Sub<br />
ош<strong>и</strong>бка:<br />
дс = "": мс = "": гс = ""<br />
сообщен<strong>и</strong>е = "Ввод<strong>и</strong>те день месяц год" _<br />
& Chr(13) & "- Конец позднее Начала"<br />
MsgBox сообщен<strong>и</strong>е, , "Срок<strong>и</strong>"<br />
днПоле.SetFocus<br />
End Sub<br />
Function ДнейВМесяце (m, y)<br />
‘ Сколько дней в месяце (m) с учетом года (y) <br />
Select Case m<br />
Case 1, 3, 5, 7, 8, 10, 12<br />
ДнейВМесяце = 31<br />
Case 4, 6, 9, 11<br />
ДнейВМесяце = 30<br />
Case 2<br />
If В<strong>и</strong>сокосныйГод (y) = True Then ДнейВМесяце = 29 _<br />
Else ДнейВМесяце = 28<br />
Case Else<br />
ДнейВМесяце = 0<br />
End Select<br />
End Function<br />
Function В<strong>и</strong>сокосныйГод (y)<br />
‘ В<strong>и</strong>сокосный л<strong>и</strong> год<br />
В<strong>и</strong>сокосныйГод = False<br />
If (y Mod 100) = 0 Then<br />
If (y Mod 400) = 0 Then В<strong>и</strong>сокосныйГод = True<br />
Else<br />
If (y Mod 4) = 0 Then В<strong>и</strong>сокосныйГод = True<br />
End If<br />
End Function<br />
Sub КалейдоскопКвадратов<strong>Excel</strong> ()<br />
номерЦвета = 1<br />
Л<strong>и</strong>ст1.Activate