今日はノー残業デー、早々と会社を追い出されるので、水曜日はリズボクの日です。 運動ばかりしている様に見えますが、実際に費やす時間は２時間。 後は気を失うまで本業の技術鍛錬をしているつもり。です。が。。。今日は都島店のエレベーターを上がってい…

Set objRE = New RegExp '書式設定 objRE.Pattern = "\d\d\d\d/\d+/\d+" myVal = objRE.Test(入力日付値) If Not myVal Then 書式外の処理 End IF

'入力値が少数かどうかチェック IF StrComp(CDbl(入力値Ａ),Clng(入力値Ａ)) <> 0 then 判定後処理 END IF