HSPTV!掲示板

HSPで西暦から和暦に変換したいです。
どのようにすればいいのでしょうか？

・大正元年は1912年7月30日から
・昭和元年は1926年12月25日から
・平成元年は1989年1月8日から
・令和元年は2019年5月1日から
これらを踏まえた上で西暦年・月・日からその時代の元号を求め、
あとは元号に応じた年を西暦年から引けば良いでしょう(たとえば平成なら西暦年-1988)。

こんな感じですかね。元年表記や範囲外の日付の処理は省いてます。

input year,,,4
mes "年"
input month,,,2
mes "月"
input day,,,2
mes "日"
mes
button goto "計算",*calc
mes

stop


*calc

date=year*10000+month*100+day

if date<19120730 {
  mes ""+year+"年"+month+"月"+day+"日は、明治以前です。"

}else:if date<19261225 {
  mes ""+year+"年"+month+"月"+day+"日は、大正"+(year-1911)+"年です。"

}else:if date<19890108 {
  mes ""+year+"年"+month+"月"+day+"日は、昭和"+(year-1925)+"年です。"

}else:if date<20190501 {
  mes ""+year+"年"+month+"月"+day+"日は、平成"+(year-1988)+"年です。"

}else {
  mes ""+year+"年"+month+"月"+day+"日は、令和"+(year-2018)+"年です。"

}

stop

返信が遅くなってすみません!
ありがとうございます!