Console.WriteLine Method (Decimal)

' System.Console.WriteLine 

Imports Microsoft.VisualBasic
Imports System

Public Class TipCalculator
   Private Const tipRate As Double = 0.18

   Public Shared Sub Main()
      System.Environment.ExitCode = Calculator(System.Environment.GetCommandLineArgs())
   End Sub 

   Public Shared Function Calculator(args() As String) As Integer 
      Dim billTotal As Double 
      If args.Length < 2 Then
         Console.WriteLine("usage: TIPCALC total")
         Return 1
      Else 
         Try
            billTotal = Double.Parse(args(1))
         Catch
            Console.WriteLine("usage: TIPCALC total")
            Return 1
         End Try 
         Dim tip As Double = billTotal * tipRate
         Console.WriteLine()
         Console.WriteLine("Bill total:" & vbTab & "{0,8:c}", billTotal)
         Console.WriteLine("Tip total/rate:" & vbTab & "{0,8:c} ({1:p1})", tip, tipRate)
         Console.WriteLine("".PadRight(24, "-"c))
         Console.WriteLine("Grand total:" & vbTab & "{0,8:c}", billTotal + tip)
         Return 0
      End If 
   End Function 'Main
End Class 'TipCalculator

'Example Output: 
'--------------- 
' 
'Bill total:       $52.23 
'Tip total/rate:    $9.40 (18.0 %) 
'------------------------ 
'Grand total:      $61.63