| |
「秀丸エディタ」マクロ言語の AD2000 年対応について教えてください。
1. leftstr(date,2) は "00" ですか ?
2. date の機能拡張の予定があれば、機能を教えてください。
よろしくお願いします。次のテストマクロは単なるサンプルです。
//======================================================================
// AD2000 の対応例 without if
// #year = val(leftstr(date,2));
#year=95; #t = 10;
while( #t ){
call pp_test1; #year = (#year+1)%100; #t = #t - 1;
}
endmacro;
pp_test1:
#m2 = ( ( #year % 4 ) == 0 );
// message str(#m2);
$wk1 = rightstr(str(#year+100),2);
$tbl_1[00] = midstr("19,20",(!(#year<80)-1)*3,2) + $wk1;
#p = 1;
while( #p <= 12 ){
$wk1 = midstr("31,28,31,30,31,30,31,31,30,31,30,31",(#p-1)*3,2);
$wk1 = str(val($wk1) + ( #p == 2 && #m2 ) );
$tbl_1[#p] = str(#p) + " : " + $wk1;
#p = #p + 1;
}
menuarray $tbl_1, 12+1;//テストのための例です。
return;
//======================================================================
|
|