http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FLanguage_Basics%2FConst
VBA/Excel/Access/Word/Language Basics/Const - История изменений
2026-04-06T00:13:52Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Language_Basics/Const&diff=1146&oldid=prev
в 16:33, 26 мая 2010
2010-05-26T16:33:00Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:33, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Language_Basics/Const&diff=1147&oldid=prev
Admin: 1 версия
2010-05-26T12:46:29Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Constants can be declared on one line if separated by commas==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Const Age As Integer = 25, City As String = "Denver", PayCheck As Currency = 350<br />
Sub severalConst()<br />
MsgBox Age<br />
MsgBox City<br />
MsgBox PayCheck<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Make a constant available to all modules in your application, use the Public keyword in front of the Const statement.==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Public Const NumOfChar = 255<br />
Sub publicConst()<br />
MsgBox NumOfChar<br />
End Sub<br />
<br />
</source><br />
<br />
<br />
<br />
<br />
==To make a constant available within a single procedure, you declare it at the procedure level==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub ageSub()<br />
Const Age As Integer = 25<br />
"...instructions...<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Use a constant in all the procedures of a module, use the Private keyword in front of the Const statement==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Private Const dsk = "B:"<br />
Sub privateConst()<br />
MsgBox dsk<br />
End Sub<br />
<br />
</source><br />
<br />
<br />
<br />
<br />
==use a Constant to store the PI==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub constDemo()<br />
Const Pi = 3.14159265358979<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==When declaring a constant, you can use any one of the following data types: Boolean, Byte, Integer, Long, Currency, Single, Double, Date, String, or Variant==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub constDec()<br />
Const dialogName = "Enter Data"<br />
Const slsTax = 8.5<br />
Const Discount = 0.5<br />
Const ColorIdx = 3<br />
MsgBox slsTax<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Working with Date type value Constants==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub constDemo()<br />
Const conVenue As String = "Hall"<br />
Const conDate As Date = #12/31/2005#<br />
MsgBox "The concert is at " & conVenue & " on " & conDate & "."<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Working with pre-defined Constant==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub CalcManual()<br />
Application.Calculation = xlCalculationManual<br />
MsgBox xlCalculationAutomatic<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Working with Symbolic Constants==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Private Const TAXRATE As Currency = 0.0875<br />
Function TotalAmount(curSaleAmount As Currency)<br />
TotalAmount = curSaleAmount * TAXRATE<br />
End Function<br />
</source></div>
Admin