西暦 to 和暦 in なでしこ DouKaku?

西暦を和暦に変換するプログラムを書いてください。元号の切り替わる日など、複数の表記が可能な場合には両方表示し、西暦が無効な日付の場合には「範囲外」と表示するようにしてください。対応すべき日付は明治元年以降とします。

>a.py 1868/12/2
明治1年12月2日

>a.py 1926/12/24
大正15年12月24日

>a.py 2007/12/01
平成19年12月1日

>a.py 1926/12/25
大正15年12月25日昭和1年12月25日

>a.py 1868/1/2
範囲外

>a.py 1868/100/2
範囲外

see: 和暦西暦対応表

お察しの通りなでしこには「和暦変換」という関数が標準でありますが、すべてグレゴリオ暦で処理するようです。

「1868/12/2」を和暦変換して表示
「1926/12/25」を和暦変換して表示
/*
 * 結果
 明治元年12月2日
 昭和元年12月25日
*/

明治6年以降対応版を自前で。

●Date2Wareki(date)
    tmpとは文字列
    dとは整数=Date2Int(date)
    もし(d<18730101)ならば
        "範囲外"で戻る
    もし(d<=19120730)ならば
        もし(d=19120730)ならば
            "明治45年7月30日 大正元年7月30日"で戻る
        Date2JADate("明治",1867,date)
    もし(d>=19120731&&d<=19261225)ならば
        もし(d=19261225)ならば
            "大正15年12月25日 昭和元年12月25日"で戻る
        Date2JADate("大正",1911,date)
    もし(d>=19261226&&d<=19890107)ならば
        Date2JADate("昭和",1925,date)
    もし(d>=19890108)ならば
        Date2JADate("平成",1988,date)
●Date2JADate(nengou,sa,date)
    date=dateを"/"で区切る
    "{nengou}{date[0]-sa}年{TOINT(date[1])}月{TOINT(date[2])}日"で戻る
●Date2Int(date)
    date=dateを"/"で区切る
    TOSTR(date[0]を4でゼロ埋め)&TOSTR(date[1]を2でゼロ埋め)&TOSTR(date[2]を2でゼロ埋め)で戻る

Date2Wareki("1926/12/25")を表示

DouKaku?

西暦 to 和暦

Posted feedbacks - なでしこ

Index

Feed

Other

Link

Pathtraq