Le portail francophone de la géomatique

with tmp as (
  values ('15 Novembre 2017'),
    ('05 Août 2016'),
    ('30 Juillet 2016')
) SELECT to_date(
    replace(
      replace(
        replace(column1, 'Novembre', 'November'),
        'Août', 'August'),
      'Juillet', 'July'),
      -- ...
    'DD Month YYYY')
from tmp;

CREATE OR REPLACE FUNCTION correction_date(TEXT) 
RETURNS DATE
AS
$$
DECLARE
    date_ok date ;
    calendrier varchar[] := ARRAY[['janvier','january'],['février','february'],['mars','march'],['avril','april'],['mai','may'],['juin','june'],['juillet','july'],['août','august'],['septembre','september'],['octobre','october'],['novembre','november'],['décembre','december']] ;
    mois integer ;
    chaine text ;

BEGIN
---FOREACH mois IN ARRAY calendrier LOOP
FOR mois in 1..12 LOOP
    chaine := '^[0-9]{1,2} '||calendrier[mois][1]||' [0-9]{4}$'  ;
    CASE 
        WHEN $1 ~ chaine
            THEN date_ok = to_date(regexp_replace(lower($1), calendrier[mois][1], calendrier[mois][2]),'DD Month YYYY') ;
        ELSE date_ok = null ;
    END CASE ;
END LOOP ;

RETURN date_ok ;

END
$$ LANGUAGE plpgsql;

select correction_date('25 janvier 2014');
 correction_date 
-----------------
 
(1 ligne)

CREATE OR REPLACE FUNCTION donnees.correction_date(TEXT,DATE) 
RETURNS DATE
AS
$$
DECLARE
    datearg text ;
    date_ok date ;
    calendrier varchar[] := ARRAY[['janvier','january'],['f.vrier','february'],['mars','march'],['avril','april'],['mai','may'],['juin','june'],['juillet','july'],['a..t','august'],['septembre','september'],['octobre','october'],['novembre','november'],['d.cembre','december']] ;
    mois integer ;
    extrdate text ; 
    correcdate text ;
    jjmmmmaaaa text ;
    jjmmaaaa text ;
    aaaammjj text ;
    mmmaaaa text ;
    mmaaaa text ;
    datesaisie date := $2 ;
    avanthier text ;
    hier text ;
    saisons text ;
    saison text ;

BEGIN

    datearg := lower(regexp_replace(regexp_replace($1,' {1,}',' ','g'),' {1,}$','')) ;
    avanthier := '.*avant( |\-)hier.*' ;
    hier := '.*hier.*' ;
    saisons := ARRAY['printemps','été','automne','hiver'] ;

--- si l'année ne figure pas en fin de colonne, on ajoute celle de la date de saisie
IF datearg ~ '.* {1,}[0-9]{2,}$'
    THEN datearg = datearg ;
    ELSE datearg = regexp_replace(datearg, '(.* {1,})[0-9]{2,}$','\1'||extract(year from $2)) ;
END IF ;

CASE
--- cas des dates relatives par rapport à la date de saisie
    WHEN datearg ~ avanthier
        THEN
            date_ok = datesaisie-2 ;
        RETURN date_ok ;
    WHEN datearg ~ hier
        THEN
            date_ok = datesaisie-1 ;
        RETURN date_ok ;
--- cas des heures avec omission de la date, a priori celle du jour de saisie
    WHEN datearg ~ '^[0-9]{1,2} {0,1}h$'
        THEN 
            date_ok = datesaisie ;
        RETURN date_ok ;
--- cas des années sans plus de précision
    WHEN datearg ~ '^[0-9]{4}$'
        THEN 
            date_ok = to_date(datearg||'-01-01','YYYY-MM-DD') ;
        RETURN date_ok ;
--- cas des saisons, avec indication de l'année
    WHEN string_to_array(lower(datearg),' ') && saisons
        THEN
            FOREACH saison SLICE 1 IN ARRAY saisons
            LOOP
            --- à finir
             ;
            END LOOP  ;
 
    ELSE
--- cas des dates avec au moins l'année et le mois
        FOR mois in 1..12 LOOP
            jjmmmmaaaa := '(^|.*)[0-9]{1,2} '||calendrier[mois][1]||' [0-9]{4}$'  ;
            jjmmaaaa := '(^|.*)[0-9]{1,2}(\.|\/|\-)[0]{0,1}'||mois||'(\.|\/|\-)[0-9]{4}$' ;
            aaaammjj := '^[0-9]{4}(\.|\/|\-)'||mois||'(\.|\/|\-)[0-9]{2}$' ;
            mmmaaaa := '(^|[^0-9]{0,})'||calendrier[mois][1]||' {0,}([0-9]{4})$' ;
            mmaaaa := '^[0-9]{1,2}(\/|\-|\.)[0-9]{4}$' ;
        
            CASE 
                WHEN datearg ~ jjmmmmaaaa
                    THEN 
                        extrdate := '(^|[^0-9]{1,}|.*au |.*le )([0-9]{1,2}) '||calendrier[mois][1]||' ([0-9]{4})$' ;
                        correcdate := '\2 '||calendrier[mois][2]||' \3' ;
                        date_ok = to_date(regexp_replace(datearg,extrdate, correcdate),'DD Month YYYY') ;
                    RETURN date_ok ;
                WHEN datearg ~ jjmmaaaa
                    THEN
                        extrdate := '(^|[^0-9]{1,}|.*au |.*le )([0-9]{1,2})(\.|\/|\-)[0]{0,1}'||mois||'(\.|\/|\-)([0-9]{4})$' ;
                        correcdate := '\2/'||mois||'/\5' ;
                        date_ok = to_date(regexp_replace(datearg,extrdate, correcdate),'DD/MM/YYYY') ;
                    RETURN date_ok ;
                WHEN datearg ~ mmaaaa
                    THEN
                        extrdate := '(0{0,1})'||mois||'(\.|\/|\-)([0-9]{4})$' ;
                        correcdate := '01/'||mois||'/\3' ;
                        date_ok = to_date(regexp_replace(datearg,extrdate, correcdate),'DD/MM/YYYY') ;
                    RETURN date_ok ;
                WHEN datearg ~ aaaammjj
                    THEN
                        extrdate := '^([0-9]{4})(\.|\/|\-)[0]{0,1}'||mois||'(\.|\/|\-)([0-9]{2})$' ;
                        correcdate := '\1-'||mois||'-\4' ;
                        date_ok = to_date(regexp_replace(datearg,extrdate, correcdate),'YYYY-MM-DD') ;
                    RETURN date_ok ;
                WHEN datearg ~ mmmaaaa
                    THEN
                        extrdate := '(^|.*[^0-9]{1,}) {0,}'||calendrier[mois][1]||' {0,}([0-9]{4})$' ;
                        correcdate := '\2-'||mois||'-01' ;
                        date_ok = to_date(regexp_replace(datearg,extrdate, correcdate),'YYYY-MM-DD') ;
                    RETURN date_ok ;
                    ELSE mois := mois+1 ;
                        IF mois > 12
                            THEN date_ok = null ;
                            RETURN date_ok ;
                        END IF ;
            END CASE ;
        END LOOP ;

END CASE ;

END
$$ LANGUAGE plpgsql ;