Progress Monitor for IdealProgrammer.com

Take Swift, Intelligent, Massive, Planned, Loving, Effective (S.I.M.P.L.E.) Action to Transform Self into Ideal

Skip Repetitive Navigational Links

Home

News

Presenters

Contact

Please login

VB.NET ASP.NET FormatCurrency() Source Code Syntax Example

Description: Illustrates using FormatCurrency with Source Code Syntax Example in VB.NET ASP.NET.

Example Webform Code:

< %@ Page Language="VB" AutoEventWireup="false" CodeFile="FormatCurrency.aspx.vb" Inherits="FormatCurrency" %>
 
< !DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title></title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <h1><asp:label ID="Label1" runat="server" Text="Label"></asp:label> </h1>
        <asp:label ID="Label2" runat="server" Text="Label"></asp:label><br />
 
    </div>
    </form>
</body>
</html>

Example Code Behind:

Imports System
Imports System.IO
Imports System.Data
 
 
' This example is from http://idealprogrammer.com
' It shows how you can use FormatCurrency syntax in VB.NET ASP.NET
'****************************************************************************************
' Syntax: 	FormatCurrency (Expression As Object, _
' NumDigitsAfterDecimal As Integer, _
' IncludeLeadingDigit As TriState, _
' UseParensForNegativeNumbers As TriState, _
' GroupDigits As TriState _
' ) As String
' 
' Expression - Required - Expression to be formatted
' NumDigitsAfterDecimal - Optional - Numeric value indicating how many places are displayed
' to the right of the decimal. Default value is –1, which indicates that the computer's 
' regional settings are used.
' IncludeLeadingDigit - Optional. TriState enumeration that indicates whether or not a 
' leading zero is displayed for fractional values. 
' UseParensForNegativeNumbers - Optional. TriState enumeration that indicates whether 
' or not to place negative values within parentheses. 
' GroupDigits - Optional. TriState enumeration that indicates whether or not numbers are
' grouped using the group delimiter specified in the computer's regional settings. 
 
'****************************************************************************************
 
Partial Class FormatCurrency
    Inherits System.Web.UI.Page
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Label1.Text = "Example #1: 	FormatCurrency (Expression As Object," & _
        " NumDigitsAfterDecimal As Integer," & _
        " IncludeLeadingDigit As TriState," & _
         " UseParensForNegativeNumbers As TriState," & _
        " GroupDigits As TriState " & _
         " ) As String "
        Dim dblNumber As Double = -5432.43
 
        ' Returns "($5,432.43)".
        Label2.Text = Microsoft.VisualBasic.FormatCurrency(dblNumber, , , TriState.True, TriState.True) 'Returns Zero
    End Sub
End Class

Example Connection String: