Roman(Value: Integer; Form: Integer): String;
Roman(Value: integer; Form: integer): string;
Value. Целое число, которое необходимо преобразовать;
Form. Число, задающее нужную форму записи римского числа.
Метод Roman преобразует арабское число в римское в текстовом формате.
Значение параметра Value должно принадлежать промежутку [1;3999].
Для выполнения примера добавьте ссылку на системную сборку MathFin.
Sub UserProc;
Var
r: String;
Begin
r := Math.Roman(9,1);
Debug.WriteLine(r);
End Sub UserProc;
В результате выполнения примера в окно консоли будет выведен результат преобразования.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.MathFin;
…
Public Shared Sub Main(Params: StartParams);
Var
r: String;
Math: MathClass = New MathClass();
Begin
r := Math.Roman(9,1);
System.Diagnostics.Debug.WriteLine(r);
End Sub;
См. также: