Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Anonymous
in reply to: Anonymous

You'll need to convert the iProp(k) string value to a numeric value....

  

SyntaxEditor Code Snippet

Option Explicit

Dim iprop(4) As String
iprop(1) = "GLASS_RUN"
iprop(2) = "GLASS_SET"
iprop(3) = "BPG_RUN"
iprop(4) = "BPG_SET"

Dim dRate As Double
Dim dTotalLabour As Double

For k = 1 To 4
    Try
        dRate = CDbl(iProperties.Value("Custom", iprop(k)))
        dTotalLabour = ((dRate/60)*20) + dTotalLabour
    Catch
    End Try
Next 

MessageBox.Show ("Total Labour : $" & CStr(Round(dTotalLabour,2)),"Debug Me")

 

 

Hope this helps.  Sorry for the delay, was away from computer and attempted to reply earlier via my phone...