How do I convert Roman numerals to Arabic (reverse of ROMAN)?
Thanks - thought there might have been a function included, but this looks
neat enough.
Ian
"Gary''s Student" wrote:
Function arabic(RomanString As String) As Long
Dim i As Long
Dim TryString As String
arabic = 0
For i = 1 To 3999
TryString = Application.WorksheetFunction.Roman(i)
If TryString = RomanString Then
arabic = i
Exit For
End If
Next
End Function
--
Gary''s Student - gsnu200718
|