I keep getting a BC30389 \'System.Currency\' is not accessible in this context b
ID: 3666665 • Letter: I
Question
I keep getting a BC30389 'System.Currency' is not accessible in this context because it is a 'Friend' on my code below for my contstants as Currency. I sort of undertand what it means but not how to fix it?
Public Class Form2
Private Sub BtnClear_Click(sender As Object, e As EventArgs) Handles BtnClear.Click
TxtJobNumber.Text = ""
TxtName.Text = ""
TxtParts.Text = ""
TxtHours.Text = ""
End Sub
Private Sub BtnOk_Click(sender As Object, e As EventArgs) Handles BtnOk.Click
Me.Close()
End Sub
'Declare Constants
Const LABOR_COST As Currency = 50
Const SALES_TAX As Currency = 0.08
Private Sub BtnCalculate_Click(sender As Object, e As EventArgs) Handles BtnCalculate.Click
Dim parts As String
Dim laborhrs As String
Dim laborcharges As Integer
Dim partscost As Integer
Dim subtotal As Integer
Dim total As Integer
Dim tax As Integer
parts = TxtParts.Text
laborhrs = TxtHours.Text
laborcharges = LABOR_COST * laborhrs
partscost = parts
tax = SALES_TAX * parts
subtotal = partscost + laborcharges
total = subtotal + tax
TxtPartsCharges.Text = partscost.ToString("C")
TxtLaborCharges.Text = laborcharges.ToString("C")
TxtSalesTax.Text = tax.ToString("C")
TxtSubTotal.Text = subtotal.ToString("C")
TxtTotal.Text = total.ToString("C")
End Sub
End Class
Explanation / Answer
To fix this problem you must use Decimal Datatype instead Currency.