TL yi YTL ye Dönüştürmek-VisualBasic.Net

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

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.