DouKaku? 5250 99yen: お察しの通りなでしこには「和暦変換」とい...(西暦 to 和暦)

Comment detail

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

「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?

Comment detail

Index

Feed

Other

Link

Pathtraq