339r

ضريبة القيمة المضافة NSB

Feb 19th, 2020
552
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Function TextBox1_onkeyup()
  2. If TextBox1.value <> "" Then
  3.  Dim drbah  = TextBox1.value * 0.05
  4. Label1.textContent = "القيمة مع الضريبة هي: " & CSng(drbah + CSng(TextBox1.value)) & " ريالًا"
  5. Else If TextBox1.value = "" Then
  6.   Label1.textContent = "القيمة مع الضريبة هي: "
  7. End If
  8. End Function
RAW Paste Data