Ş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
0 comments:
Yorum Gönder