元号特定プログラム
前に当ブログで西暦、和暦相互変換のプログラムを載せたが、今回はPowerShell_ISEで西暦年月日でその日がどの元号に当たるかを特定するプログラムである。Ad-Conversion 20190502④で関数を呼び出し結果を表示する。今回は月日も考慮する。
Function Ad-Conversion($indate){
$ERA_MEIJI = "明治"
$ERA_TAISYOU = "大正"
$ERA_SYOUWA = "昭和"
$ERA_HEISEI = "平成"
$ERA_REIWA = "令和"
$DATE_MEIJI = 18680908
$DATE_TAISYOU = 19120730
$DATE_SYOUWA = 19261225
$DATE_HEISEI = 19890108
$DATE_REIWA = 20190501
if($indate -lt $DATE_MEIJI){
Write-Host("明治以前の日付には対応していません。")
}elseif($indate -lt $DATE_TAISYOU){
Write-Host("元号は" + $ERA_MEIJI + "です。")
}elseif($indate -lt $DATE_SYOUWA){
Write-Host("元号は" + $ERA_TAISYOU + "です。")
}elseif($indate -lt $DATE_HEISEI){
Write-Host("元号は" + $ERA_SYOUWA + "です。")
}elseif($indate -lt $DATE_REIWA){
Write-Host("元号は" + $ERA_HEISEI + "です。")
}else{
Write-Host("元号は" + $ERA_REIWA + "です。")
}
}
Ad-Conversion 19300101①
Ad-Conversion 18700101②
Ad-Conversion 20190101③
Ad-Conversion 20190502④
Ad-Conversion 20200101⑤
Ad-Conversion 19510717⑥
*******************************************************
PS C:\Users\prog> C:\Users\prog\Desktop\File\Gengo.ps1
元号は昭和です。①
元号は明治です。②
元号は平成です。③
元号は令和です。④
元号は令和です。⑤
元号は昭和です。⑥
*************以下は実行結果
スペース（インデント）が表現できないこと、済みません。
「野性の証明」をご覧ください。
URLは
です。
（写真はY.O.氏から借用）
←人気ブログランキングに参加しています。ポチっと１票を！
