IF文の条件分岐の書き方、どのようにYYYYMM型にするのか

Question

コードCREATE OR REPLACE PROCEDURE  vs_five50(
    V_PLACE                IN    NUMBER,        --处理对象
    V_DATE                 IN    VARCHAR2,      --年月 YYYYMM形式
    V_GOODS_CD              IN    VARCHAR2,      --商品code
    V_CUST_CD               IN    VARCHAR2       --顧客code
    )
IS
 BEGIN
     --IF文を使って分岐させたいです
    --INパラメータで年月が入ってくるのですがもし、その年月がyyyyｍｍ形式でないなら。
    IF               THEN
        DBMS_OUTPUT.PUT_LINE('OK);
    --また下2桁が06、20以外の場合
    
    ELSIF          THEN
    DBMS_OUTPUT.PUT_LINE('NG');
    END IF;
    END vs_five50;
    /
```**ボールドテキスト**

コードの中にコメントが入っているように、条件分岐をしたいのですが、いまいちよくわからないです。
なんとなく、TO_CHARやSUBSTRを使うんじゃないかなと予測しているのですが、自分でいろいろやってみたのですが、
全部エラーになってしまい、お手上げ状態です。
わかる方よろしくお願いします。

Answer 1

以下のFUNCTIONを作っては？

CREATE OR REPLACE FUNCTION IS_YYYYMM
    (
    IN_YYYYMM IN VARCHAR2 -- YYYYMM
    )
    RETURN VARCHAR2 -- 'OK' or 'NG'
--  年月 YYYYMM が妥当な内容か判断する。
IS
    V_DATE DATE ;
BEGIN
    V_DATE := TO_DATE(IN_YYYYMM, 'YYYYMM') ;
    RETURN('OK') ;
EXCEPTION
    WHEN OTHERS THEN
        RETURN('NG') ; -- エラー
END IS_YYYYMM ;
/

PROCEDURE を修正

CREATE OR REPLACE PROCEDURE vs_five50(
    V_PLACE                IN    NUMBER,        --处理对象
    V_DATE                 IN    VARCHAR2,      --年月 YYYYMM形式
    V_GOODS_CD             IN    VARCHAR2,      --商品code
    V_CUST_CD              IN    VARCHAR2       --顧客code
    )
IS
BEGIN
    IF IS_YYYYMM(V_DATE) = 'NG' THEN  -- 年月がyyyyｍｍ形式でないなら
        DBMS_OUTPUT.PUT_LINE(V_DATE || ' INVALID YYYYMM');
    
    ELSIF SUBSTR(V_DATE, 5, 2) NOT IN('06', '10') THEN  -- 下2桁が06、20以外の場合
        DBMS_OUTPUT.PUT_LINE(V_DATE || ' MM NOT IN(06,10)');
    ELSE
        DBMS_OUTPUT.PUT_LINE(V_DATE || ' NG');
    END IF;
END vs_five50;
/

実行していませんが。
字下げはきちんと。コードが雑過ぎです。

Comments

[jingjing]

助かりました。ありがとうございました。