TL yi YTL ye Dönüştürmek

Bu örnekte TL olan tutarı YTL ve YKrş a çevireceğiz. Formunuza 1 button ekleyin. Aşağıdaki şekli inceleyin.

Şekil 1

Public Class Form1
    Dim tl, ytl, ykr As Decimal
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text <> "" Then
            tl = Val(TextBox1.Text)
            ytl = Int(tl / 1000000)
            ykr = Int((tl Mod 1000000) / 10000)
            MessageBox.Show(ytl & "," & ykr & vbCrLf & ytl & " YTL " & ykr & " Yeni Kuruş")

            If TextBox1.Text Mod 10000 >= 5000 Then ykr = ykr + 1 Else ykr = ykr
        End If
    End Sub

   
End Class

Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN