Member Avatar for shuncyk

Private Sub cmdCalc_Click()

Dim Commission_Percent As Double
Dim Total_Commission As Double
Dim Sales_Price As Integer
Dim Highest_Commission as Integer

Sales_Price = txtSales_Price.Text

Total_Commission = Sales_Price + Commission_Percent

If Sales_Price < Total_Commission Then
[Total_Commission = Highest_Commission]
End If
lblTotal_Commission .Caption = Total_Commission

End Sub

  • 2 Contributors
  • 1 Reply
  • 39 Views
  • 9 Hours Discussion Span
  • Latest Post Latest Post by Jx_Man
Member Avatar for Jx_Man

so what the effort???

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.