カテゴリー

2020年12月25日

これはボックスのタイトルです。

22/04/10 CAMEO Candyのギターソロ
22/04/10 カレンダーをクリックして日付を入れて、その入った文字をドラッグして好きな場所に動かす
22/03/22 Windows11のモヤモヤ解消、、、、「右クリック」のメニュー
22/03/22 Selectboxで選んだ項目によって特定の要素の背景色を変える
22/02/09 ブラウザの位置情報をhtmlに表示する方法
22/01/26 クリッカブルマップ
22/01/22 CompornentOne
22/01/13 VisualStudioでCurl
21/11/22 RSS Antennaの389エラー
21/09/22 データベースで更新するときは、文字型格納先はvarchar型ではなくnvarchar型に！

CAMEO Candyのギターソロ

投稿: 2022年4月10日

80年代によく聞いたCAMEOのCandyっていう歌。この歌のサックスが吹けたらええなあ、、、と思って20代の時にアルトサックスを買ったんですが、結局挫折。ギターのことはまったく考えてもいなかった。メロディは知ってい […]

コメントなし

カレンダーをクリックして日付を入れて、その入った文字をドラッグして好きな場所に動かす

投稿: 2022年4月10日

コメントなし

Windows11のモヤモヤ解消、、、、「右クリック」のメニュー

投稿: 2022年3月22日

Windows11でのストレスといえば「右クリック」です。私は永年の間、イラレでもワードでもエクセルでも「まずファイルをコピーして、それを名前を変えて、それから編集する」という方法でやっています。「名前を付けて保存」 […]

コメントなし

Selectboxで選んだ項目によって特定の要素の背景色を変える

投稿: 2022年3月22日

>ABC Change the select この世の宝おいしい自分でアゴをかくこのドキュメントは重要です。取り扱いに注意してください。

コメントなし

ブラウザの位置情報をhtmlに表示する方法

投稿: 2022年2月9日

ヘッダに

<script>
// geolocationを利用できるか確認
if (navigator.geolocation) {

	//現在位置を取得する
	navigator.geolocation
		.getCurrentPosition(success,error,options); 

	var options = {
		// enableHighAccuracyは、GPSの精度でtrueかfalseをセットする
		// trueだと精度が高くなる
		enableHighAccuracy: true, 
		//timeoutは、タイムアウト時間でミリ秒単位
		timeout: 1000,
		// maximumAgeは、キャッシュ有効時間でミリ秒で表す
		// 0の場合、常に最新の情報を取得する
		maximumAge: 0
	};

	// 成功時
	function success(position) {
		var crd = position.coords;
var target = document.getElementById("btn-a");

		// Positionオブジェクトの中にあるcoordsオブジェクトの
		// latitudeとlongitudeプロパティを参照
		document.getElementById("ido")
			.textContent = "経度 : " + crd.latitude;
		document.getElementById("keido")
			.textContent = "緯度 : " + crd.longitude;
		document.getElementById("idokeido")
			.textContent = + crd.latitude +"," + crd.longitude;
target.href = "https://www.google.co.jp/maps/place/" + crd.latitude +"," + crd.longitude; ;


	};

	// 失敗時
	function error(err) {
		// PositionErrorオブジェクトの
		// codeとmessageプロパティを参照
		document.getElementById("ido").textContent 
			= "エラーコード : " + err.code;
		document.getElementById("keido").textContent 
			= "エラーメッセージ : " + err.message;
	};

} else {
    document.getElementById("test1").textContent
			= "このブラウザではGeolocationの使用はできません";
}
</script>

// geolocationを利用できるか確認

if (navigator.geolocation) {

//現在位置を取得する

navigator.geolocation

.getCurrentPosition(success,error,options);

var options = {

// enableHighAccuracyは、GPSの精度でtrueかfalseをセットする

// trueだと精度が高くなる

enableHighAccuracy: true,

//timeoutは、タイムアウト時間でミリ秒単位

timeout: 1000,

// maximumAgeは、キャッシュ有効時間でミリ秒で表す

// 0の場合、常に最新の情報を取得する

maximumAge: 0

};

// 成功時

function success(position) {

var crd = position.coords;

var target = document.getElementById("btn-a");

// Positionオブジェクトの中にあるcoordsオブジェクトの

// latitudeとlongitudeプロパティを参照

document.getElementById("ido")

.textContent = "経度 : " + crd.latitude;

document.getElementById("keido")

.textContent = "緯度 : " + crd.longitude;

document.getElementById("idokeido")

.textContent = + crd.latitude +"," + crd.longitude;

target.href = "https://www.google.co.jp/maps/place/" + crd.latitude +"," + crd.longitude; ;

};

// 失敗時

function error(err) {

// PositionErrorオブジェクトの

// codeとmessageプロパティを参照

document.getElementById("ido").textContent

= "エラーコード : " + err.code;

document.getElementById("keido").textContent

= "エラーメッセージ : " + err.message;

};

} else {

document.getElementById("test1").textContent

= "このブラウザではGeolocationの使用はできません";

}

</script>

そして書きたい場所に

<p id="ido"></p>
<p id="keido"></p>

1 2	<p id="ido"></p> <p id="keido"></p>

と書けば、 ↓↓↓↓↓↓↓↓ グーグルマップで見るとき […]

コメントなし

CrystalReportsで日付（月日）を縦書きにするために、苦肉の策

投稿: 2021年12月3日

年月でグループ化したデータを縦書きにするために、、、、出力されるデータがyyyy/mmなので強制的に日本語和暦漢字に置換する方が早い

Local StringVar target := totext(GroupName ({フィールド}, "monthly"));
target := Replace(target,"2019","令和元年");
target := Replace(target,"2020","令和二年");
target := Replace(target,"2021","令和三年");
target := Replace(target,"2022","令和四年");
target := Replace(target,"2023","令和五年");
target := Replace(target,"2024","令和六年");
target := Replace(target,"2025","令和七年");
target := Replace(target,"2026","令和八年");
target := Replace(target,"2027","令和九年");
target := Replace(target,"2028","令和十年");
target := Replace(target,"/12"," 十二月");
target := Replace(target,"/11"," 十一月");
target := Replace(target,"/10"," 十月");
target := Replace(target,"/09"," 九月");
target := Replace(target,"/08"," 八月");
target := Replace(target,"/07"," 七月");
target := Replace(target,"/06"," 六月");
target := Replace(target,"/05"," 五月");
target := Replace(target,"/04"," 四月");
target := Replace(target,"/03"," 三月");
target := Replace(target,"/02"," 二月");
target := Replace(target,"/01"," 一月");

Local StringVar target := totext(GroupName ({フィールド}, "monthly"));

target := Replace(target,"2019","令和元年");

target := Replace(target,"2020","令和二年");

target := Replace(target,"2021","令和三年");

target := Replace(target,"2022","令和四年");

target := Replace(target,"2023","令和五年");

target := Replace(target,"2024","令和六年");

target := Replace(target,"2025","令和七年");

target := Replace(target,"2026","令和八年");

target := Replace(target,"2027","令和九年");

target := Replace(target,"2028","令和十年");

target := Replace(target,"/12"," 十二月");

target := Replace(target,"/11"," 十一月");

target := Replace(target,"/10"," 十月");

target := Replace(target,"/09"," 九月");

target := Replace(target,"/08"," 八月");

target := Replace(target,"/07"," 七月");

target := Replace(target,"/06"," 六月");

target := Replace(target,"/05"," 五月");

target := Replace(target,"/04"," 四月");

target := Replace(target,"/03"," 三月");

target := Replace(target,"/02"," 二月");

target := Replace(target,"/01"," 一月");

コメントなし

CrystalReportsの不可解なRecordNumber—cstr

投稿: 2021年9月19日

私のパソコン（いわゆる日本語Windows10）では cstr(RecordNumber)＝9.00 となるところが、違うパソコンでは cstr(RecordNumber)＝9.000 となる（0が1コ多い（泣）「そ […]

コメントなし

CrystalReports9でのｶﾅ→カナが、、、、

投稿: 2020年10月20日

関数がない！トホホ、仕方がないので、、、、チカラワザ

Local StringVar target := {Old2.BuddhistNameKana};
target := Replace(target, "ァ","ぁ");
target := Replace(target, "ィ","ぃ");
target := Replace(target, "ゥ","ぅ");
target := Replace(target, "ェ","ぇ");
target := Replace(target, "ォ","ぉ");
target := Replace(target, "ガ","が");
target := Replace(target, "ギ","ぎ");
target := Replace(target, "グ","ぐ");
target := Replace(target, "ゲ","げ");
target := Replace(target, "ゴ","ご");
target := Replace(target, "ザ","ざ");
target := Replace(target, "ジ","じ");
target := Replace(target, "ズ","ず");
target := Replace(target, "ゼ","ぜ");
target := Replace(target, "ゾ","ぞ");
target := Replace(target, "ダ","だ");
target := Replace(target, "ヂ","ぢ");
target := Replace(target, "ヅ","づ");
target := Replace(target, "デ","で");
target := Replace(target, "ド","ど");
target := Replace(target, "バ","ば");
target := Replace(target, "ビ","び");
target := Replace(target, "ブ","ぶ");
target := Replace(target, "ベ","べ");
target := Replace(target, "ボ","ぼ");
target := Replace(target, "パ","ぱ");
target := Replace(target, "ピ","ぴ");
target := Replace(target, "プ","ぷ");
target := Replace(target, "ペ","ぺ");
target := Replace(target, "ポ","ぽ");
target := Replace(target, "ア","あ");
target := Replace(target, "イ","い");
target := Replace(target, "ウ","う");
target := Replace(target, "エ","え");
target := Replace(target, "オ","お");
target := Replace(target, "カ","か");
target := Replace(target, "キ","き");
target := Replace(target, "ク","く");
target := Replace(target, "ケ","け");
target := Replace(target, "コ","こ");
target := Replace(target, "サ","さ");
target := Replace(target, "シ","し");
target := Replace(target, "ス","す");
target := Replace(target, "セ","せ");
target := Replace(target, "ソ","そ");
target := Replace(target, "タ","た");
target := Replace(target, "タ","ち");
target := Replace(target, "ッ","っ");
target := Replace(target, "ツ","つ");
target := Replace(target, "テ","て");
target := Replace(target, "ト","と");
target := Replace(target, "ナ","な");
target := Replace(target, "ニ","に");
target := Replace(target, "ヌ","ぬ");
target := Replace(target, "ネ","ね");
target := Replace(target, "ノ","の");
target := Replace(target, "ハ","は");
target := Replace(target, "ヒ","ひ");
target := Replace(target, "フ","ふ");
target := Replace(target, "ヘ","へ");
target := Replace(target, "ホ","ほ");
target := Replace(target, "マ","ま");
target := Replace(target, "ミ","み");
target := Replace(target, "ム","む");
target := Replace(target, "メ","め");
target := Replace(target, "モ","も");
target := Replace(target, "ャ","ゃ");
target := Replace(target, "ヤ","や");
target := Replace(target, "ュ","ゅ");
target := Replace(target, "ユ","ゆ");
target := Replace(target, "ョ","ょ");
target := Replace(target, "ヨ","よ");
target := Replace(target, "ラ","ら");
target := Replace(target, "リ","り");
target := Replace(target, "ル","る");
target := Replace(target, "レ","れ");
target := Replace(target, "ロ","ろ");
target := Replace(target, "ヮ","ゎ");
target := Replace(target, "ワ","わ");
target := Replace(target, "ヲ","を");
target := Replace(target, "ン","ん");
target := Replace(target, "ｧ","ぁ");
target := Replace(target, "ｨ","ぃ");
target := Replace(target, "ｩ","ぅ");
target := Replace(target, "ｪ","ぇ");
target := Replace(target, "ｫ","ぉ");
target := Replace(target, "ｶﾞ","が");
target := Replace(target, "ｷﾞ","ぎ");
target := Replace(target, "ｸﾞ","ぐ");
target := Replace(target, "ｹﾞ","げ");
target := Replace(target, "ｺﾞ","ご");
target := Replace(target, "ｻﾞ","ざ");
target := Replace(target, "ｼﾞ","じ");
target := Replace(target, "ｽﾞ","ず");
target := Replace(target, "ｾﾞ","ぜ");
target := Replace(target, "ｿﾞ","ぞ");
target := Replace(target, "ﾀﾞ","だ");
target := Replace(target, "ﾁﾞ","ぢ");
target := Replace(target, "ﾂﾞ","づ");
target := Replace(target, "ﾃﾞ","で");
target := Replace(target, "ﾄﾞ","ど");
target := Replace(target, "ﾊﾞ","ば");
target := Replace(target, "ﾋﾞ","び");
target := Replace(target, "ﾌﾞ","ぶ");
target := Replace(target, "ﾍﾞ","べ");
target := Replace(target, "ﾎﾞ","ぼ");
target := Replace(target, "ﾊﾟ","ぱ");
target := Replace(target, "ﾋﾟ","ぴ");
target := Replace(target, "ﾌﾟ","ぷ");
target := Replace(target, "ﾍﾟ","ぺ");
target := Replace(target, "ﾎﾟ","ぽ");
target := Replace(target, "ｱ","あ");
target := Replace(target, "ｲ","い");
target := Replace(target, "ｳ","う");
target := Replace(target, "ｴ","え");
target := Replace(target, "ｵ","お");
target := Replace(target, "ｶ","か");
target := Replace(target, "ｷ","き");
target := Replace(target, "ｸ","く");
target := Replace(target, "ｹ","け");
target := Replace(target, "ｺ","こ");
target := Replace(target, "ｻ","さ");
target := Replace(target, "ｼ","し");
target := Replace(target, "ｽ","す");
target := Replace(target, "ｾ","せ");
target := Replace(target, "ｿ","そ");
target := Replace(target, "ﾀ","た");
target := Replace(target, "ﾁ","ち");
target := Replace(target, "ｯ","っ");
target := Replace(target, "ﾂ","つ");
target := Replace(target, "ﾃ","て");
target := Replace(target, "ﾄ","と");
target := Replace(target, "ﾅ","な");
target := Replace(target, "ﾆ","に");
target := Replace(target, "ﾇ","ぬ");
target := Replace(target, "ﾈ","ね");
target := Replace(target, "ﾉ","の");
target := Replace(target, "ﾊ","は");
target := Replace(target, "ﾋ","ひ");
target := Replace(target, "ﾌ","ふ");
target := Replace(target, "ﾍ","へ");
target := Replace(target, "ﾎ","ほ");
target := Replace(target, "ﾏ","ま");
target := Replace(target, "ﾐ","み");
target := Replace(target, "ﾑ","む");
target := Replace(target, "ﾒ","め");
target := Replace(target, "ﾓ","も");
target := Replace(target, "ｬ","ゃ");
target := Replace(target, "ﾔ","や");
target := Replace(target, "ｭ","ゅ");
target := Replace(target, "ﾕ","ゆ");
target := Replace(target, "ｮ","ょ");
target := Replace(target, "ﾖ","よ");
target := Replace(target, "ﾗ","ら");
target := Replace(target, "ﾘ","り");
target := Replace(target, "ﾙ","る");
target := Replace(target, "ﾚ","れ");
target := Replace(target, "ﾛ","ろ");
target := Replace(target, "ヮ","ゎ");
target := Replace(target, "ﾜ","わ");
target := Replace(target, "ｦ","を");
target := Replace(target, "ﾝ","ん");

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

Local StringVar target := {Old2.BuddhistNameKana};

target := Replace(target, "ァ","ぁ");

target := Replace(target, "ィ","ぃ");

target := Replace(target, "ゥ","ぅ");

target := Replace(target, "ェ","ぇ");

target := Replace(target, "ォ","ぉ");

target := Replace(target, "ガ","が");

target := Replace(target, "ギ","ぎ");

target := Replace(target, "グ","ぐ");

target := Replace(target, "ゲ","げ");

target := Replace(target, "ゴ","ご");

target := Replace(target, "ザ","ざ");

target := Replace(target, "ジ","じ");

target := Replace(target, "ズ","ず");

target := Replace(target, "ゼ","ぜ");

target := Replace(target, "ゾ","ぞ");

target := Replace(target, "ダ","だ");

target := Replace(target, "ヂ","ぢ");

target := Replace(target, "ヅ","づ");

target := Replace(target, "デ","で");

target := Replace(target, "ド","ど");

target := Replace(target, "バ","ば");

target := Replace(target, "ビ","び");

target := Replace(target, "ブ","ぶ");

target := Replace(target, "ベ","べ");

target := Replace(target, "ボ","ぼ");

target := Replace(target, "パ","ぱ");

target := Replace(target, "ピ","ぴ");

target := Replace(target, "プ","ぷ");

target := Replace(target, "ペ","ぺ");

target := Replace(target, "ポ","ぽ");

target := Replace(target, "ア","あ");

target := Replace(target, "イ","い");

target := Replace(target, "ウ","う");

target := Replace(target, "エ","え");

target := Replace(target, "オ","お");

target := Replace(target, "カ","か");

target := Replace(target, "キ","き");

target := Replace(target, "ク","く");

target := Replace(target, "ケ","け");

target := Replace(target, "コ","こ");

target := Replace(target, "サ","さ");

target := Replace(target, "シ","し");

target := Replace(target, "ス","す");

target := Replace(target, "セ","せ");

target := Replace(target, "ソ","そ");

target := Replace(target, "タ","た");

target := Replace(target, "タ","ち");

target := Replace(target, "ッ","っ");

target := Replace(target, "ツ","つ");

target := Replace(target, "テ","て");

target := Replace(target, "ト","と");

target := Replace(target, "ナ","な");

target := Replace(target, "ニ","に");

target := Replace(target, "ヌ","ぬ");

target := Replace(target, "ネ","ね");

target := Replace(target, "ノ","の");

target := Replace(target, "ハ","は");

target := Replace(target, "ヒ","ひ");

target := Replace(target, "フ","ふ");

target := Replace(target, "ヘ","へ");

target := Replace(target, "ホ","ほ");

target := Replace(target, "マ","ま");

target := Replace(target, "ミ","み");

target := Replace(target, "ム","む");

target := Replace(target, "メ","め");

target := Replace(target, "モ","も");

target := Replace(target, "ャ","ゃ");

target := Replace(target, "ヤ","や");

target := Replace(target, "ュ","ゅ");

target := Replace(target, "ユ","ゆ");

target := Replace(target, "ョ","ょ");

target := Replace(target, "ヨ","よ");

target := Replace(target, "ラ","ら");

target := Replace(target, "リ","り");

target := Replace(target, "ル","る");

target := Replace(target, "レ","れ");

target := Replace(target, "ロ","ろ");

target := Replace(target, "ヮ","ゎ");

target := Replace(target, "ワ","わ");

target := Replace(target, "ヲ","を");

target := Replace(target, "ン","ん");

target := Replace(target, "ｧ","ぁ");

target := Replace(target, "ｨ","ぃ");

target := Replace(target, "ｩ","ぅ");

target := Replace(target, "ｪ","ぇ");

target := Replace(target, "ｫ","ぉ");

target := Replace(target, "ｶﾞ","が");

target := Replace(target, "ｷﾞ","ぎ");

target := Replace(target, "ｸﾞ","ぐ");

target := Replace(target, "ｹﾞ","げ");

target := Replace(target, "ｺﾞ","ご");

target := Replace(target, "ｻﾞ","ざ");

target := Replace(target, "ｼﾞ","じ");

target := Replace(target, "ｽﾞ","ず");

target := Replace(target, "ｾﾞ","ぜ");

target := Replace(target, "ｿﾞ","ぞ");

target := Replace(target, "ﾀﾞ","だ");

target := Replace(target, "ﾁﾞ","ぢ");

target := Replace(target, "ﾂﾞ","づ");

target := Replace(target, "ﾃﾞ","で");

target := Replace(target, "ﾄﾞ","ど");

target := Replace(target, "ﾊﾞ","ば");

target := Replace(target, "ﾋﾞ","び");

target := Replace(target, "ﾌﾞ","ぶ");

target := Replace(target, "ﾍﾞ","べ");

target := Replace(target, "ﾎﾞ","ぼ");

target := Replace(target, "ﾊﾟ","ぱ");

target := Replace(target, "ﾋﾟ","ぴ");

target := Replace(target, "ﾌﾟ","ぷ");

target := Replace(target, "ﾍﾟ","ぺ");

target := Replace(target, "ﾎﾟ","ぽ");

target := Replace(target, "ｱ","あ");

target := Replace(target, "ｲ","い");

target := Replace(target, "ｳ","う");

target := Replace(target, "ｴ","え");

target := Replace(target, "ｵ","お");

target := Replace(target, "ｶ","か");

target := Replace(target, "ｷ","き");

target := Replace(target, "ｸ","く");

target := Replace(target, "ｹ","け");

target := Replace(target, "ｺ","こ");

target := Replace(target, "ｻ","さ");

target := Replace(target, "ｼ","し");

target := Replace(target, "ｽ","す");

target := Replace(target, "ｾ","せ");

target := Replace(target, "ｿ","そ");

target := Replace(target, "ﾀ","た");

target := Replace(target, "ﾁ","ち");

target := Replace(target, "ｯ","っ");

target := Replace(target, "ﾂ","つ");

target := Replace(target, "ﾃ","て");

target := Replace(target, "ﾄ","と");

target := Replace(target, "ﾅ","な");

target := Replace(target, "ﾆ","に");

target := Replace(target, "ﾇ","ぬ");

target := Replace(target, "ﾈ","ね");

target := Replace(target, "ﾉ","の");

target := Replace(target, "ﾊ","は");

target := Replace(target, "ﾋ","ひ");

target := Replace(target, "ﾌ","ふ");

target := Replace(target, "ﾍ","へ");

target := Replace(target, "ﾎ","ほ");

target := Replace(target, "ﾏ","ま");

target := Replace(target, "ﾐ","み");

target := Replace(target, "ﾑ","む");

target := Replace(target, "ﾒ","め");

target := Replace(target, "ﾓ","も");

target := Replace(target, "ｬ","ゃ");

target := Replace(target, "ﾔ","や");

target := Replace(target, "ｭ","ゅ");

target := Replace(target, "ﾕ","ゆ");

target := Replace(target, "ｮ","ょ");

target := Replace(target, "ﾖ","よ");

target := Replace(target, "ﾗ","ら");

target := Replace(target, "ﾘ","り");

target := Replace(target, "ﾙ","る");

target := Replace(target, "ﾚ","れ");

target := Replace(target, "ﾛ","ろ");

target := Replace(target, "ヮ","ゎ");

target := Replace(target, "ﾜ","わ");

target := Replace(target, "ｦ","を");

target := Replace(target, "ﾝ","ん");

コメントなし

Crystalreports 指定行数で改ページ

投稿: 2020年10月20日

ページヘッダに「式フィールド」を追加して次の式を記入 WhilePrintingRecords; numberVar line := 0; 次に詳細(行数を指定するセクション)に式フィールドを追加して次の式を記入 Whi […]

コメントなし

CrystalReports9での和暦漢数字年号を横書きの時には算用数字にする（その逆もついでに）

投稿: 2020年7月16日

いつもながらのチカラワザ、、、15年くらいたっても進化しないのはあたりまえ。 15年前のCrystalReportsで作っているからであります。

Local StringVar target := {Old.JapanYear};
target
:=
Replace(target,"百","100");
target
:=
Replace(target,"九十九","99");
target
:=
Replace(target,"九十八","98");
target
:=
Replace(target,"九十七","97");
target
:=
Replace(target,"九十六","96");
target
:=
Replace(target,"九十五","95");
target
:=
Replace(target,"九十四","94");
target
:=
Replace(target,"九十三","93");
target
:=
Replace(target,"九十二","92");
target
:=
Replace(target,"九十一","91");
target
:=
Replace(target,"九十","90");
target
:=
Replace(target,"八十九","89");
target
:=
Replace(target,"八十八","88");
target
:=
Replace(target,"八十七","87");
target
:=
Replace(target,"八十六","86");
target
:=
Replace(target,"八十五","85");
target
:=
Replace(target,"八十四","84");
target
:=
Replace(target,"八十三","83");
target
:=
Replace(target,"八十二","82");
target
:=
Replace(target,"八十一","81");
target
:=
Replace(target,"八十","80");
target
:=
Replace(target,"七十九","79");
target
:=
Replace(target,"七十八","78");
target
:=
Replace(target,"七十七","77");
target
:=
Replace(target,"七十六","76");
target
:=
Replace(target,"七十五","75");
target
:=
Replace(target,"七十四","74");
target
:=
Replace(target,"七十三","73");
target
:=
Replace(target,"七十二","72");
target
:=
Replace(target,"七十一","71");
target
:=
Replace(target,"七十","70");
target
:=
Replace(target,"六十九","69");
target
:=
Replace(target,"六十八","68");
target
:=
Replace(target,"六十七","67");
target
:=
Replace(target,"六十六","66");
target
:=
Replace(target,"六十五","65");
target
:=
Replace(target,"六十四","64");
target
:=
Replace(target,"六十三","63");
target
:=
Replace(target,"六十二","62");
target
:=
Replace(target,"六十一","61");
target
:=
Replace(target,"六十","60");
target
:=
Replace(target,"五十九","59");
target
:=
Replace(target,"五十八","58");
target
:=
Replace(target,"五十七","57");
target
:=
Replace(target,"五十六","56");
target
:=
Replace(target,"五十五","55");
target
:=
Replace(target,"五十四","54");
target
:=
Replace(target,"五十三","53");
target
:=
Replace(target,"五十二","52");
target
:=
Replace(target,"五十一","51");
target
:=
Replace(target,"五十","50");
target
:=
Replace(target,"四十九","49");
target
:=
Replace(target,"四十八","48");
target
:=
Replace(target,"四十七","47");
target
:=
Replace(target,"四十六","46");
target
:=
Replace(target,"四十五","45");
target
:=
Replace(target,"四十四","44");
target
:=
Replace(target,"四十三","43");
target
:=
Replace(target,"四十二","42");
target
:=
Replace(target,"四十一","41");
target
:=
Replace(target,"四十","40");
target
:=
Replace(target,"三十九","39");
target
:=
Replace(target,"三十八","38");
target
:=
Replace(target,"三十七","37");
target
:=
Replace(target,"三十六","36");
target
:=
Replace(target,"三十五","35");
target
:=
Replace(target,"三十四","34");
target
:=
Replace(target,"三十三","33");
target
:=
Replace(target,"三十二","32");
target
:=
Replace(target,"三十一","31");
target
:=
Replace(target,"三十","30");
target
:=
Replace(target,"二十九","29");
target
:=
Replace(target,"二十八","28");
target
:=
Replace(target,"二十七","27");
target
:=
Replace(target,"二十六","26");
target
:=
Replace(target,"二十五","25");
target
:=
Replace(target,"二十四","24");
target
:=
Replace(target,"二十三","23");
target
:=
Replace(target,"二十二","22");
target
:=
Replace(target,"二十一","21");
target
:=
Replace(target,"二十","20");
target
:=
Replace(target,"十九","19");
target
:=
Replace(target,"十八","18");
target
:=
Replace(target,"十七","17");
target
:=
Replace(target,"十六","16");
target
:=
Replace(target,"十五","15");
target
:=
Replace(target,"十四","14");
target
:=
Replace(target,"十三","13");
target
:=
Replace(target,"十二","12");
target
:=
Replace(target,"十一","11");
target
:=
Replace(target,"十","10");
target
:=
Replace(target,"九","9");
target
:=
Replace(target,"八","8");
target
:=
Replace(target,"七","7");
target
:=
Replace(target,"六","6");
target
:=
Replace(target,"五","5");
target
:=
Replace(target,"四","4");
target
:=
Replace(target,"三","3");
target
:=
Replace(target,"二","2");
target:=
Replace(target,"一","1");

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

Local StringVar target := {Old.JapanYear};

target

Replace(target,"百","100");

target

Replace(target,"九十九","99");

target

Replace(target,"九十八","98");

target

Replace(target,"九十七","97");

target

Replace(target,"九十六","96");

target

Replace(target,"九十五","95");

target

Replace(target,"九十四","94");

target

Replace(target,"九十三","93");

target

Replace(target,"九十二","92");

target

Replace(target,"九十一","91");

target

Replace(target,"九十","90");

target

Replace(target,"八十九","89");

target

Replace(target,"八十八","88");

target

Replace(target,"八十七","87");

target

Replace(target,"八十六","86");

target

Replace(target,"八十五","85");

target

Replace(target,"八十四","84");

target

Replace(target,"八十三","83");

target

Replace(target,"八十二","82");

target

Replace(target,"八十一","81");

target

Replace(target,"八十","80");

target

Replace(target,"七十九","79");

target

Replace(target,"七十八","78");

target

Replace(target,"七十七","77");

target

Replace(target,"七十六","76");

target

Replace(target,"七十五","75");

target

Replace(target,"七十四","74");

target

Replace(target,"七十三","73");

target

Replace(target,"七十二","72");

target

Replace(target,"七十一","71");

target

Replace(target,"七十","70");

target

Replace(target,"六十九","69");

target

Replace(target,"六十八","68");

target

Replace(target,"六十七","67");

target

Replace(target,"六十六","66");

target

Replace(target,"六十五","65");

target

Replace(target,"六十四","64");

target

Replace(target,"六十三","63");

target

Replace(target,"六十二","62");

target

Replace(target,"六十一","61");

target

Replace(target,"六十","60");

target

Replace(target,"五十九","59");

target

Replace(target,"五十八","58");

target

Replace(target,"五十七","57");

target

Replace(target,"五十六","56");

target

Replace(target,"五十五","55");

target

Replace(target,"五十四","54");

target

Replace(target,"五十三","53");

target

Replace(target,"五十二","52");

target

Replace(target,"五十一","51");

target

Replace(target,"五十","50");

target

Replace(target,"四十九","49");

target

Replace(target,"四十八","48");

target

Replace(target,"四十七","47");

target

Replace(target,"四十六","46");

target

Replace(target,"四十五","45");

target

Replace(target,"四十四","44");

target

Replace(target,"四十三","43");

target

Replace(target,"四十二","42");

target

Replace(target,"四十一","41");

target

Replace(target,"四十","40");

target

Replace(target,"三十九","39");

target

Replace(target,"三十八","38");

target

Replace(target,"三十七","37");

target

Replace(target,"三十六","36");

target

Replace(target,"三十五","35");

target

Replace(target,"三十四","34");

target

Replace(target,"三十三","33");

target

Replace(target,"三十二","32");

target

Replace(target,"三十一","31");

target

Replace(target,"三十","30");

target

Replace(target,"二十九","29");

target

Replace(target,"二十八","28");

target

Replace(target,"二十七","27");

target

Replace(target,"二十六","26");

target

Replace(target,"二十五","25");

target

Replace(target,"二十四","24");

target

Replace(target,"二十三","23");

target

Replace(target,"二十二","22");

target

Replace(target,"二十一","21");

target

Replace(target,"二十","20");

target

Replace(target,"十九","19");

target

Replace(target,"十八","18");

target

Replace(target,"十七","17");

target

Replace(target,"十六","16");

target

Replace(target,"十五","15");

target

Replace(target,"十四","14");

target

Replace(target,"十三","13");

target

Replace(target,"十二","12");

target

Replace(target,"十一","11");

target

Replace(target,"十","10");

target

Replace(target,"九","9");

target

Replace(target,"八","8");

target

Replace(target,"七","7");

target

Replace(target,"六","6");

target

Replace(target,"五","5");

target

Replace(target,"四","4");

target

Replace(target,"三","3");

target

Replace(target,"二","2");

target:=

Replace(target,"一","1");

[cra […]

コメントなし