VB.NET Truncate Example – Code Sample Syntax

VB.NET Truncate Example – Code Sample Syntax

Purpose: – Illustrates using .

Purpose:
takes a decimal or double as input parameter1
and returns the number truncated without the
fractional decimals.

Syntax:
1. Truncate(decimal)
2. Truncate(double)

Parameters Description
decimal Any valid System.Decimal data type number
double – any valid System.Double data type.
Parameter1 specifies the number to be Truncated

Result Data Type Description
decimal or double depends on data type
of parameter1. It is decimal, if parameter1 is
decimal. If parameter1 is double, result is double.

Step 1: Click Visual Basic to Cut-n-paste code into clsTruncate.vb

Imports System.Math
Public Class clsTruncate
 
    Public Sub Main()
 
 
        '********************************************************************************
        ' Purpose: takes a decimal or double as input parameter1
        ' and returns the number truncated without the
        ' fractional decimals. 
        '
        ' Syntax: 	1. Truncate(decimal)
        ' 2. Truncate(double)
 
        '  
        ' Parameter1: decimal - Any valid System.Decimal data type number
        ' double - any valid System.Double data type.
        ' Parameter1 specifies the number to be Truncated
        '
        ' Result: decimal or double - depends on data type
        ' of parameter1. It is decimal, if parameter1 is 
        ' decimal. If parameter1 is double, result is double.
        '
        '********************************************************************************
        ' This example is from http://idealprogrammer.com
 
        Console.WriteLine("Example #1: 	Truncate(decimal)")
 
        Console.WriteLine("Truncate(3.5) = {0}", Truncate(3.5)) ' Returns 3
 
        'write blank line to make output easier to read
        Console.WriteLine()
 
        Console.WriteLine("Example #2: 	Truncate(double)")
        Dim myDouble As Double = 6.5
        Console.WriteLine("Truncate(myDouble) = {0}", _
                          Truncate(myDouble)) ' Returns 6
        'write blank line to make output easier to read
        Console.WriteLine()
 
        Console.WriteLine("Example #3: 	Truncate(decimal)")
 
 
 
        Console.WriteLine("Truncate(0.9) = {0}", _
                          Truncate(0.9)) ' Returns 0
 
        'Prevent console from closing before you press enter
        Console.ReadLine()
 
    End Sub
 
End Class

Step 2: Click Visual Basic to Cut-n-paste code into Module1.vb

Module Module1
 
    Sub Main()
 
 
        Dim myclsTruncate As New clsTruncate
        myclsTruncate.Main()
 
 
 
    End Sub
 
End Module

Prerequistes:

  1. Install Visual Basic (Express or Standard Edition)
  2. Install SQL Server Express
  3. Download Northwind and pubs Database
  4. Attach Northwind Database to Databases in Sql Express
  5. Attach pubs Database to Databases in Sql Express

Notes:

  • Console Application is used to simplify things, but Windows Forms or Web Forms could also be used
  • You can build a library of syntax examples by using same project over and over and just commenting out what you do not want to execute in Module1.vb

Instructions:
VB.NET Syntax Functions Truncate

  1. Use Visual Basic 2010 Express or Standard Edition
  2. Create new project;
    • Click File/New Project
    • Select Console Application Template
    • Select Visual Basic for Language
    • name of project could be VBNET_Syntax.
  3. Add New folder named “Functions”
    • Right-click project name in solution explorer;
    • add new folder;
    • name of folder could be: Functions
  4. Add New subfolder named “MathFunctions”
    • Right-click Functions folder in solution explorer;
    • add new folder;
    • name of folder could be: MathFunctions
  5. Add Class Named clsTruncate to MathFunctions folder
    • Right-click MathFunctions folder;
    • add new item;
    • Select class
    • Class name could be clsTruncate
  6. Click on Visual Basic in code in step 1 above to copy code into clsTruncate.vb
  7. Click on Visual Basic in code in step 2 above to copy code into Module1.vb
  8. Click green arrow or press F5 to run program