VB.NET Küsüratlı Türk Lirası Toplamak

VB.NET Küsüratlı Türk Lirası Toplamak için internet te hiç kaynak yok, ben de biraz zaman harcayarak sorunsuz ve çok kolay bir şekilde bu problemi hallettim.

Öncelikle formumuza 2 adet TextBox oluşturuyoruz.
Sonra altına bir tane Button oluşturuyoruz.
Altına da bir adet label ekliyoruz.

Kodda da gördüğünüz gibi a ve b değişkenlerinin veri tipini Double olarak ayarlıyoruz, sonra FormatCurrency fonksiyonu ile a ile b değerini topluyoruz, çıkan sonuç tam küsüratlı olarak hem de TL işareti ile bize veriliyor.

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' TextBox1 değeri 1.561,17  // Bin Beşyüz Altmış Bir TL On Yedi Kuruş
        ' TextBox2 değeri 2,5       // İki TL Elli Kuruş
        Dim a As Double = TextBox1.Text
        Dim b As Double = TextBox2.Text
        Label1.Text = FormatCurrency(a + b)
    End Sub
End Class

Sonuç

Programı çalıştırdığınızda formata uygun TL ve kuruş değeri para birimlerini sıkıntısız toplayabilirsiniz.