Anonymous
in reply to:
Anonymous
06-24-2016
06:17 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-24-2016
06:17 PM
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...