PoshCode Archive  Artifact [82a2c23199]

Artifact 82a2c231990d936843a8c7ff3df9f43394d3e15eb145a0c7ffbad2194d78c1ec:

• File ConvertTo-RomanNumeral.ps1 — part of check-in [c2cc882db2] at 2018-06-10 13:58:46 on branch trunk — This is submitted as a companion to the ConvertFrom-RomanNumeral function just (user: Vince Ypma size: 2328)

# encoding: ascii
# api: powershell
# title: ConvertTo-RomanNumeral
# description: This is submitted as a companion to the ConvertFrom-RomanNumeral function just
# version: 0.1
# type: function
# author: Vince Ypma
# license: CC0
# function: ConvertTo-RomanNumeral
# x-poshcode-id: 5660
# x-archived: 2016-05-19T06:29:50
# x-published: 2016-01-03T01:14:00
#
# because I feel that a ‘ConvertFrom-’ should always be complemented by a
# ‘ConvertTo-’.
#
function ConvertTo-RomanNumeral
{
  <#
    .SYNOPSIS
        Converts a number to a Roman numeral.
    .DESCRIPTION
        Converts a number - in the range of 1 to 3,999 - to a Roman numeral.
    .PARAMETER Number
        An integer in the range 1 to 3,999.
    .INPUTS
        System.Int32
    .OUTPUTS
        System.String
    .EXAMPLE
        ConvertTo-RomanNumeral -Number (Get-Date).Year
    .EXAMPLE
        (Get-Date).Year | ConvertTo-RomanNumeral
  #>
    [CmdletBinding()]
    [OutputType([string])]
    Param
    (
        [Parameter(Mandatory=$true,
                   HelpMessage="Enter an integer in the range 1 to 3,999",
                   ValueFromPipeline=$true,
                   Position=0)]
        [ValidateRange(1,3999)]
        [int]
        $Number
    )

    Begin
    {
        $DecimalToRoman = @{
            Thousands = "","M","MM","MMM"
            Hundreds  = "","C","CC","CCC","CD","D","DC","DCC","DCCC","CM"
            Tens      = "","X","XX","XXX","XL","L","LX","LXX","LXXX","XC"
            Ones      = "","I","II","III","IV","V","VI","VII","VIII","IX"
        }
    
        $column = @{
            Thousands = 0
            Hundreds  = 1
            Tens      = 2
            Ones      = 3
        }
    }
    Process
    {
        [int[]]$digits = $Number.ToString().PadLeft(4,"0").ToCharArray() |
                            ForEach-Object { [Char]::GetNumericValue($_) }

        $RomanNumeral  = ""
        $RomanNumeral += $DecimalToRoman.Thousands[$digits[$column.Thousands]]
        $RomanNumeral += $DecimalToRoman.Hundreds[$digits[$column.Hundreds]]
        $RomanNumeral += $DecimalToRoman.Tens[$digits[$column.Tens]]
        $RomanNumeral += $DecimalToRoman.Ones[$digits[$column.Ones]]

        $RomanNumeral
    }
    End
    {
    }
}