PIPSの広場
[記事リスト] [新着記事] [ワード検索] [過去ログ] [管理用] [過去ログ(旧掲示板)]

タイトル Re^3: 令和になって…教えて下さい。
投稿日: 2019/05/17(Fri) 15:03
投稿者西村@豊田

>LET V30=FORM$(NUM$(TODAY-20180000),5); /*今日日付(全角) */

文字列(V30)から、年月日の抽出が原因だと思います。
原文は最初の2文字を抽出していると思われますので、関数KLENで文字数を求め。其々の抽出文字数を計算します。

LET X1=KLEN(V30); /*総文字数*/
LET X2=X1-4; /*年の文字数*/

$年: LET V2=KLEFT$(V30,X2);
$月: LET V3=KMID$(V30,(X2+1),2);
$日: LET V4=KRIGHT$(V30,(X1-X2));

LET V5="令和"+V2+"年"+V3+"月"+V4+"日";

なお、月日の「0」を削除するには
LET V3=FORM$(NUM$(VAL(V3)),5); /*0を削除 */
LET V4=FORM$(NUM$(VAL(V4)),5);
を追加する


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)
おなまえ  (実名 + 地名でお願いします [例: ぴっぷす 東京都])
Eメール
タイトル
メッセージ   手動改行 強制改行 図表モード
参照先
暗証キー (英数字で8文字以内)
投稿キー (投稿時 投稿キー を入力してください)
  プレビュー

- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No 暗証キー