年号が変わったとき

日付

１

年号が変わったとき
[内容]
将来、新しい年号に変わったとき、和暦の表示をしているBiz/Browserアプリ
ケーションに反映するにはどうすればよいか

１

RootクラスのSetWarekiメソッドでは、新しい年号と期間を指定することが可能です。
Rootクラスのメソッドですので、最初に実行されるCRSのスクリプトで実行すれば、以降の
画面全てに新しい年号が適用されます。

例えば、DateEditクラスまたはTextBoxクラスで日付型の入力項目を作成し、
Formatプロパティへ以下の和暦表示の設定を行った場合

Format = "WRWYY\"年 \"MM\"月\"DD\"日\"";

表示項目にセットされる日付が「2050/04/01」であれば、「令和32年04月01日」と
表示されます。
令和未対応のバージョンは「平成62年04月01日」と表示されます。

最初に実行されるCRSで、例えば

if ( !$DESIGNTIME ) {
　　//.SetWareki( "年号", "N", "2050/04/01" );
}

と指定した場合、和暦表示の設定をされている項目は全て「年号01年04月01日」と
表示されます。

[ サンプルコード ]

if ( !$DESIGNTIME ) {
	/* 新しい年号をセット */
	//.SetWareki( "年号", "N", "2050/04/01" );
}
Form Form1 {
	Width = 360;
	Height = 299;
	Label Label1 {
		X = 16;
		Y = 18;
		Width = 140;
		Height = 22;
		Value = "DateEdit";
		FontFace = $BOLD;
		VerticalAlign = $BOTTOM;
	}
	DateEdit DateEdit1 {
		X = 16;
		Y = 44;
		Width = 140;
		Height = 36;
		format = "WRWYY\"年\"MM\"月\"DD\"日\""; 
		value = "2050/04/01";
	}
	Label Label2 {
		X = 16;
		Y = 91;
		Width = 140;
		Height = 22;
		Value = "TextBox (日付型)";
		FontFace = $BOLD;
		VerticalAlign = $BOTTOM;
	}
	TextBox:Date TextBox1 {
		X = 16;
		Y = 117;
		Width = 140;
		Height = 36;
		format = "WRWYY\"年\"MM\"月\"DD\"日\""; 
		value = "2050/04/01";
	}
	Label Label3 {
		X = 15;
		Y = 163;
		Width = 140;
		Height = 22;
		Value = "Label (日付型)";
		FontFace = $BOLD;
		VerticalAlign = $BOTTOM;
	}
	Label:Date Label_date {
		X = 15;
		Y = 189;
		Width = 140;
		Height = 36;
		BgColor = 18;
		format = "WRWYY\"年\"MM\"月\"DD\"日\""; 
		value = "2050/04/01";
	}
}

管理番号：DatSd_001


		Biz-Collections Bizの宝箱トップへ
		Biz/Browser HT・Biz/Browser SmartDevice・Biz/Browser AI TIPS集トップへ