crystal-reports - Crystal Reports でシリアル番号をローマ字で表示する

Question

Crystal Reports でシリアル番号をローマ字 (i、ii、iii、iv など) で表示する必要があります。シリアル番号をレコード番号 (1,2,3,4...) として取得しました。そのため、Crystal Report で何をしなければなりませんか。

Answer 1

私はあまり信用できません。この VB Helper の記事のコードを Crystal に移植しただけですが、これは楽しい作業でした。

NumberVar iCounter := 0;
Local StringVar ch := "";
Local NumberVar result := 0;
Local NumberVar new_value := 0;
Local NumberVar old_value := 0;
Local StringVar temp := "";

temp := UpperCase({?@Roman});

old_value = 1000;

For iCounter := 1 To Len(temp) do
(
    // See what the next character is worth.
    ch := Mid(temp, iCounter, 1);

    if ch = "I" then new_value := 1
    else if ch = "V" then new_value := 5
    else if ch = "X" then new_value := 10
    else if ch = "L" then new_value := 50
    else if ch = "C" then new_value := 100
    else if ch = "D" then new_value := 500
    else if ch = "M" then new_value := 1000;

    // See if this character is bigger
    // than the previous one.
    If new_value > old_value Then
        // The new value > the previous one.
        // Add this value to the result
        // and subtract the previous one twice.
        result := result + new_value - 2 * old_value
    Else
        // The new value <= the previous one.
        // Add it to the result.
        result := result + new_value;

    old_value := new_value;
);

// Format the number without commas or decimals
ToText(result, 0, "");

{?@Roman}パラメーターのプレースホルダーを変数に置き換えるだけで、準備は完了です。