| 2018/01/16(Tue) 09:37:28 編集(投稿者)
2018/01/15(Mon) 22:27:31 編集(投稿者)
2018/01/15(Mon) 21:28:41 編集(投稿者)
2018/01/15(Mon) 21:27:00 編集(投稿者)
2018/01/15(Mon) 21:23:59 編集(投稿者)
2018/01/15(Mon) 21:23:18 編集(投稿者)
2018/01/15(Mon) 21:12:57 編集(投稿者)
■No10837に返信(Vision Makerさんの記事)
> 修正したものをサンプルであげております。
> 名札 メイン
> 変数宣言 局所 文字列{&日曜年月日}
> ＊
>
> 手続き定義開始 cmd日曜年月日Click()
> ケース開始
> ケース(#曜日( #日時値 )="月")
> &日曜年月日 = #日数加算(&年月日,6)
> ケース(#曜日( #日時値 )="火")
> &日曜年月日 = #日数加算(&年月日,5)
> ケース(#曜日( #日時値 )="水")
> &日曜年月日 = #日数加算(&年月日,4)
> ケース(#曜日( #日時値 )="木")
> &日曜年月日 = #日数加算(&年月日,3)
> ケース(#曜日( #日時値 )="金")
> &日曜年月日 = #日数加算(&年月日,2)
> ケース(#曜日( #日時値 )="土")
> &日曜年月日 = #日数加算(&年月日,1)
> ケース(#曜日( #日時値 )="日")
> &日曜年月日 = #日数加算(&年月日,7)
> ケース終了
> メソッド呼び出し @フォーム.再描画()
> 手続き定義終了
プロシージャ：cmd日曜年月日Click( )のロジックは、その通りで間違えないですが、似たような記述の繰り返しがミスを誘発しかねません。
このような単調なコピペの繰り返しは、うっかりミスを起こすことがよくあります。
もしも、私だったら、次のように書きますよ。
↓
手続き定義開始 cmd日曜年月日Click( )
変数宣言 自動，文字列｛ &icon, &title = "cmd日曜年月日Click( )", &msg ｝
変数宣言 自動，文字列｛ &dayOfWeek ｝
変数宣言 自動，文字列｛ &dayOfWeekList = "月,火,水,木,金,土,日" ｝/* 半角コンマで区切ったリスト */
変数宣言 自動，文字列｛ &stringList = "６,５,４,３,２,１,７" ｝/* 半角コンマで区切ったリスト */
変数宣言 自動，文字列｛ &string ｝
変数宣言 自動，整数 ｛ &at ｝
変数宣言 自動，整数 ｛ &addNum ｝
&dayOfWeek = #曜日( #日時値 )
&at = #対応番号( &dayOfWeekList, &dayOfWeek )
&string = #対応文字列( &stringList, &at )
&addNum = #num( &string )
&日曜年月日 = #日数加算( &年月日, &addNum )
メソッド呼び出し @フォーム.再描画()
手続き定義終了
|
