</ iframe > </noscript> <!-- End Google Tag Manager (noscript) --> <div id="BeforeHeaderContent"> </div> <div id="HeaderContent"> <div id="ProjectTitle">ComponentOne True DBInput Pro 8.0</div> <div id="PageTitle"><div id="PageTitleText">Tutorial 11 - Using TDBFinancialX</div></div> </div> <div id="AfterHeaderContent"> <!-- Spacing --> <span id="ToggleAllSectionsLink" class="FunctionLink"> <label id="CollapseAllLabel">Collapse All</label> <label id="ExpandAllLabel" style="display: none;">Expand All</label> </span> </div> <div class="BreadcrumbsContainer"><table><tr><td> <a href="tutorials1.html">Tutorials</a> > Tutorial 11 - Using TDBFinancialX</td></tr></table></div> <div id="BodyContent"> <p>In this tutorial, you will learn how to use the <a href="tdbfinancialxobject5.html">TDBFinancialX</a> object.</p> <ol> <li> <p>Start a new project.</p> </li> <li> <p>From the Visual Basic Project menu, select References, then check the box labeled ComponentOne True DBFinancialX 8.0. Click OK to add the <a href="tdbfinancialxobject5.html">TDBFinancialX</a> object to the project.</p> </li> <li> <p>Place a ListBox (List1) on the form (Form1) as shown in the following figure.</p><img alt="" src="ImagesExt/image305_23.png" width="371" height="436"> </li> <li> <p>We will use code to calculate the financial information that is displayed to the ListBox.</p> <div class="FilteredContentCS" data-title="CS" data-itemid="CS"> <table class="SyntaxTable"> <tbody> <tr> <th>Example Title</th> <th> <div class="CopyCodeWrapper"> <span class="CopyCode">Copy Code</span> </div> </th> </tr> <tr> <td colspan="2"> <pre> Private Sub Form_Load() Dim objTax As New TDBFinancialX6Lib.TDBFinancialX Dim bRet As Boolean With objTax .Value = 1500 .TaxRate = 5.5 <span style="COLOR: #800000">' After Tax. </span> .TaxType = dbiAfterTax .RateType = dbiRatePercentage .RoundType = dbiRound .RoundDigit = -2 bRet = .TaxCalc() If bRet Then List1.AddItem <span style="COLOR: #800000">"Price: "</span> & .Price List1.AddItem <span style="COLOR: #800000">"Tax: "</span> & .Tax List1.AddItem <span style="COLOR: #800000">"Total: "</span> & .Total List1.AddItem <span style="COLOR: #800000">"----------------------"</span> End If End With With objTax .Value = 1500 .TaxRate = 5.5 <span style="COLOR: #800000">' Pretax. </span> .TaxType = dbiPreTax .RateType = dbiRatePercentage .RoundType = dbiRound .RoundDigit = -2 bRet = .TaxCalc() If bRet Then List1.AddItem <span style="COLOR: #800000">"Price: "</span> & .Price List1.AddItem <span style="COLOR: #800000">"Tax: "</span> & .Tax List1.AddItem <span style="COLOR: #800000">"Total: "</span> & .Total List1.AddItem <span style="COLOR: #800000">"----------------------"</span> End If End With With objTax .Value = 450.755 .TaxRate = 0.055 <span style="COLOR: #800000">' After Tax. </span> .TaxType = dbiAfterTax <span style="COLOR: #800000">' Without percentage. </span> .RateType = dbiRateNormal bRet = .TaxCalc() If bRet Then List1.AddItem <span style="COLOR: #800000">"Price: "</span> & .Price List1.AddItem <span style="COLOR: #800000">"Tax: "</span> & .Tax List1.AddItem <span style="COLOR: #800000">"Total: "</span> & .Total List1.AddItem <span style="COLOR: #800000">"----------------------"</span> End If End With <span style="COLOR: #800000">' If set to 1-Percentage, the tax calculation will be performed in percentage: </span> With objTax .Value = 450.755 .TaxRate = 5.5 .TaxType = dbiAfterTax <span style="COLOR: #800000">'- After Tax </span> .RateType = dbiRatePercentage bRet = .TaxCalc() If bRet Then List1.AddItem <span style="COLOR: #800000">"Price: "</span> & .Price List1.AddItem <span style="COLOR: #800000">"Tax: "</span> & .Tax List1.AddItem <span style="COLOR: #800000">"Total: "</span> & .Total List1.AddItem <span style="COLOR: #800000">"----------------------"</span> End If End With <span style="COLOR: #800000">' If either the RoundType or the RoundDigit property is set to 0, or if the specified digit doesn'</span>t exist <span style="COLOR: #0000ff">in</span> the results, then the rounding will be ignored and not be processed. For example: With objTax .Value = 450.755 .RoundType = dbiRoundNone .RoundDigit = 0 .TaxRate = 5.5 .TaxType = dbiPreTax <span style="COLOR: #800000">'- Pretax </span> .RateType = dbiRatePercentage bRet = .TaxCalc() If bRet Then List1.AddItem <span style="COLOR: #800000">"Price: "</span> & .Price List1.AddItem <span style="COLOR: #800000">"Tax: "</span> & .Tax List1.AddItem <span style="COLOR: #800000">"Total: "</span> & .Total List1.AddItem <span style="COLOR: #800000">"----------------------"</span> End If End With End Sub </pre> </td> </tr> </tbody> </table> </div> </li> </ol> <h3>Run the program and observe the following:</h3> <p>The List1 should return the values that are commented out in each section of code above.</p><img alt="" src="ImagesExt/image305_24.png" width="373" height="439"> <p>This concludes Tutorial 11.</p> <a name="seealsobookmark"></a> </div> <div id="FooterContent"> <p> </p><p> </p><hr style="height: 1px"><p>Copyright (c) <script type="text/javascript"> var theDate=new Date() document.write(theDate.getFullYear()) </script> GrapeCity, inc. All rights reserved. <script> $(document).ready(function() { if (!(window.self !== window.top)) { // Not running in a frameset // Get the page name var pageName = location.href.substring(location.href.lastIndexOf("/") + 1); if (pageName.indexOf("#") != -1) { pageName = pageName.substring(0, pageName.indexOf("#")); } // Append to webframe.html var framePage = "webframe.html#" + pageName; location.href = framePage; } }); </script></p> <a target="_blank" href="http://our.componentone.com/groups/">Product Support Forum</a> | <a target="_blank" href="http://feedback.componentone.com/forums/255792-activex-documentation">Documentation Feedback</a> </div> </body> </html>