وظيفة التاكد من صحة تاريخ

5 أبريل 2004

تحياتي للجميع

التأكد من التاريخ او وضع صيغة معينة للتاريخ والتأكد منها

tofeee

FUNCTION isdate (
     p_data   IN VARCHAR2
  )
     RETURN DATE IS
  
  BEGIN RETURN TO_DATE (p_data, 'mm/dd/yyyy');
  EXCEPTION
     WHEN OTHERS THEN
        BEGIN RETURN TO_DATE (p_data, 'mm-dd-yyyy');
        EXCEPTION
           WHEN OTHERS THEN
              BEGIN RETURN TO_DATE (p_data, 'MON dd yyyy');
              EXCEPTION
                 WHEN OTHERS THEN
                    BEGIN RETURN TO_DATE (p_data, 'mm-dd-yy');
                    EXCEPTION
                       WHEN OTHERS THEN
                          BEGIN RETURN TO_DATE (p_data, 'mm/dd/yy');
                          EXCEPTION
                             WHEN OTHERS THEN
                                BEGIN RETURN TO_DATE (p_data, 'dd-mm-yy');
                                EXCEPTION
                                   WHEN OTHERS THEN
                                      BEGIN RETURN TO_DATE (2439856 + p_data, 'j');
                                      EXCEPTION
                                         WHEN OTHERS THEN
                                            RETURN TO_DATE (NULL);
                                      END;
                                END;
                          END;
                    END;
              END;
        END;
  END;

تم إضافة الملف بالمرفقات
إدارة المنتدي

isdate.txt