Управление документами 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.
25<br />
‘ выражая его в днях, месяцах <strong>и</strong> годах, а пр<strong>и</strong> необход<strong>и</strong>мост<strong>и</strong> —<br />
‘ в полных днях <strong>и</strong>л<strong>и</strong> месяцах. Для этого в форму помещены поля:<br />
‘ днПоле, мнПоле, гнПоле <strong>на</strong>чальной даты <strong>и</strong> дкПоле, мкПоле, гкПоле<br />
‘ конечной даты, <strong>на</strong>дп<strong>и</strong>с<strong>и</strong> для вывода срока <strong>и</strong> флажок CheckBox,<br />
‘ определяющ<strong>и</strong>й в<strong>и</strong>д результата.<br />
On Error GoTo ош<strong>и</strong>бка<br />
d0 = Val (днПоле)<br />
m0 = Val (мнПоле)<br />
y0 = Val (гнПоле)<br />
d1 = Val (дкПоле)<br />
m1 = Val (мкПоле)<br />
y1 = Val (гкПоле)<br />
If m0 < 1 Or m0 > 12 Then GoTo ош<strong>и</strong>бка<br />
If d1 < 1 Or m1 > 12 Then GoTo ош<strong>и</strong>бка<br />
If y0 < -9999 Or y0 > 9999 Then GoTo ош<strong>и</strong>бка<br />
If y1 < -9999 Or y1 > 9999 Then GoTo ош<strong>и</strong>бка<br />
If d1 > ДнейВМесяце (m1, y1) Or d1 < 1 Then GoTo ош<strong>и</strong>бка<br />
If d0 > ДнейВМесяце (m0, y0) Or d0 < 1 Then GoTo ош<strong>и</strong>бка<br />
If d0 12 Then m = m - 12<br />
d = d + ДнейВМесяце (m, y1)<br />
Next<br />
End If<br />
d = d + days