Function func32698686(n As Integer) As String
Dim i1, i2, j1, j2, k1, k2, m As Integer
i1 = n \ 1000
j1 = n Mod 10
i2 = (n \ 100) Mod 10
j2 = (n \ 10) Mod 10
k1 = Fix((1 + Sgn(i1 - j1)) / 2)
k2 = Fix((2 - Sgn(i1 - j1)) / 2)
m = (n + 999 * (j1 - i1)) * k1 + (n + 90 * (j2 - i2)) * k2
func32698686 = str(n) & " " & str(m)
End Function
Excel VBA
