日付

◆TextBoxに入力された値を日付判断し、YYYY/MM/DD形式に変換、表示する

TextBox TextBox1 {

    Function OnLostFocus( e ) {
        len = length( TRIM(Value) );/* 余分な空白を除去 */

        for ( i=0; i < len; i = i+1){

            /* 入力された文字を１文字ずつ判断 */
            txt = mid( Value, i, 1);
            if ( txt >= "0" & txt <= "9"){
                buf = buf + txt;
                s  = s + 1;
            } else {
                buf = buf + "/";
                cnt = cnt + 1;
            }
        }

        /* 日付の補完 */
        if (cnt == 0 ) {
            if (s <= 2){
                buf = str(year(sysdate())) + "/" + str(month(sysdate())) +
                                "/" +  buf;
            } else if (s == 3){
                buf = str(year(sysdate())) + "/" + mid( buf, 0, 1) + "/" +
                                mid( buf, 1, 2);
            } else if (s == 4){
                buf = str(year(sysdate())) + "/" + mid( buf, 0, 2) + "/" +
                                mid( buf, 2, 2);
            } else if (s >= 5){
                buf = mid( buf, 0, s-4) + "/" + mid( buf, s-4, 2) + "/" +
                                mid( buf, s-2, 2);
            }
        } else if ( cnt == 1 ){
            buf = str(year(sysdate())) + "/" +  buf;
        }

        if ( dateval(buf) == 0) {
            MessageBox("日付が不正です。");
        } else {
            /* 日付の整形 */
            Value = str(dateval(buf),"YYYY/MM/DD");
        }
    }
}