Visual Basicte %18 kdv hesaplama kodları

PCWoRMS

" Bilgisayar parçaları için %18 kdv hesaplayıcı ..."

Kod:

Private Sub Command1_Click()
Dim a, sonuc As Integer
a = InputBox("ÜCRETİ GİRİNİZ")
If a > 0 Then
sonuc = a * 1.18
MsgBox sonuc
End If
End Sub

_________________

Resmin büyük halini görmek için lütfen üzerine tıklayınız.
Resmin orjinal boyutunu görmek için üzerine tıklayın.

spawn42

basit
_________________
Ey zaman, bilmez misin ettiğin kötülükleri ?
Sana düşer azapların, tövbelerin beteri.
Alçakları besler, yoksulları ezer durursun:
Ya bunak bir ihtiyarsın, ya da eşeğin biri.