タイトル | : Re: 令和になって…教えて下さい。 |
投稿日 | : 2019/05/16(Thu) 08:39 |
投稿者 | : 西村@豊田 |
(日付表示の例)
日付が西暦で8桁入っている前提でどちらか選択。
和暦で入力する場合は別途西暦換算するルーチンが必要。
$日付: LET V1="20190601";
$本日: LET V1=NUM$(TODAY);
LET Z2=DATE(DATEVAL((V1));
$年: LET X39=YEAR(DATENUM(Z2))-2018;
$月: LET X38=MONTH(DATENUM(Z2)):
$日: LET X37=DAY(DATENUM(Z2));
$和暦:
LET V3="令和"+NUM$(X39)+"年"+NUM$(X38)+"月"+NUM$(X37)+"日";