FormatPercent, FormatCurrency, FormatNumber

Bu örneğimizde FormatPercent, FormatCurrency ve FormatNumber metodlarını inceleyeceğiz. FormatPercent ile girilen sayı % li,  FormatCurrency ile parasal , FormatNumber ile sayının formatlı bir şekilde gösterimi sağlayacağız. (Şekil 1)

Şekil 1

Form1.vb

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'FormatPercent ile % li gösterim sağlıyabiliriz.

        Dim i As Single = 0.85

        ' Dönen değer"85.00%".

        Dim deger1 As String = FormatPercent(i)

        'FormatCurrency ile girilen değer para birimi formatında yazılır.

        Dim j As Integer = 10000

        ' Dönen değer"10.000 TL"

        Dim deger2 As String = FormatCurrency(j, 0)

        'FormatNumber ile girilen sayı formatlı yazılır. Örnekte

        'Ondalık kısımda 2 rakam gösterimi sağlandı.

        Dim k As Double

        k = 1234

        ' Dönen değer"1,234.00"

        Dim deger3 As String = FormatNumber(k, 2)

        MsgBox("Yüzdeli Gösterim: " & deger1 & vbCrLf & "Parasal Gösterim: " & deger2 & vbCrLf & "Formatlı Gösterim: " & deger3)

    End Sub

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle. Hoşçakalın. Bahadır ŞAHİN.