Public Function i2r(i As Integer) As String
If i = 1 Then i2r = "I" ElseIf i = 2 Then i2r = "II" ElseIf i = 3 Then i2r = "III" ElseIf i = 4 Then i2r = "IV" ElseIf i = 5 Then i2r = "V" ElseIf i = 6 Then i2r = "VI" ElseIf i = 7 Then i2r = "VII" ElseIf i = 8 Then i2r = "VIII" End If
End Function
[1] One of my very experienced programmer friends told me that I could have refactored the code at this stage by sorting out the repeating “I”s, for example. But, to be honest, I’m not a programmer any more and I didn’t feel I could do so comfortably. |
