-- 配列の要素数を取得する
-- ※ カンマのあとの「1」は1次元の配列であることを表しています
array_length( 配列や配列の変数名 , 1 )

-- 1次元配列の要素数を取得する
select * from array_length(array[1,2,3,4,5],1);    --【結果】：5
select * from array_length(array['A','B','C'],1);  --【結果】：3

-- 2次元配列の1次元の要素数を取得する
select * from array_length(array[[1,2],[3,4],[5,6]],1);  --【結果】：3

-- 2次元配列の2次元の要素数を取得する
select * from array_length(array[[1,2],[3,4],[5,6]],2);  --【結果】：2

-- 例：'abcdefghijk'の先頭5文字を削除する
select * from char_remove('abcdefghijk',5);  -- fghijk

CREATE OR REPLACE FUNCTION char_remove(character varying,integer)
  RETURNS character varying AS
$BODY$
declare

	a_char  	alias for $1;	--引数1:削除する対象の文字列
	i_index  	alias for $2;	--引数2:削除する文字列

begin

	return substring(a_char , i_index + 1, length(a_char) - i_index + 1);
	
end;
$BODY$
  LANGUAGE plpgsql VOLATILE
  COST 100;
ALTER FUNCTION char_remove(character varying,integer)
  OWNER TO postgres;

select * from char_remove('abcde',2); --'abcde'の先頭2文字を削除する
--'cde'

CREATE OR REPLACE FUNCTION check_array_exists(
    character varying[],
    character varying)
  RETURNS boolean AS
$BODY$
declare
 
	a_array	        alias for $1; 	--引数1:チェックする配列
	c_check_char	alias for $2; 	--引数2:探す文字列
	
begin
  
	for temp_count in 1..array_length(a_array,1)
	loop
		if a_array[temp_count] = c_check_char then
			return true;
		end if;
 
	end loop;
 
	return false;
 
end;
$BODY$
  LANGUAGE plpgsql VOLATILE
  COST 100;
ALTER FUNCTION check_array_exists(character varying[], character varying)
  OWNER TO postgres;

select * from check_array_exists(array['a','b','c'],'b');
--True

CREATE OR REPLACE FUNCTION check_same_character(
	c_target character varying,
	c_comparison character varying)
    RETURNS boolean
    LANGUAGE 'plpgsql'

    COST 100
    VOLATILE 
    
AS $BODY$
declare 
BEGIN
 
	--１．trim
	c_target = trim(c_target);
	c_comparison = trim(c_comparison);

	--２．大文字へ変換、３．半角を全角に変換する
	c_target = translate(upper(c_target), '-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ ', '－０１２３４５６７８９ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ　');
	c_comparison = translate(upper(c_comparison), '-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ ', '－０１２３４５６７８９ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ　');
  
	--４．ロケールが「C」の時、全角小文字がupperされないためここで変換
	c_target = translate(c_target, 'ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ', 'ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ　');
	c_comparison = translate(c_comparison, 'ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ ', 'ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ　');
    
	--一致かの判定
	if c_target = c_comparison then
        --一致する
		return true;
	else
        --一致しない
		return false;
	end if;
  
END;
$BODY$;

-- 「小文字」と「小文字大文字混合」の比較
select check_same_character('postgresql','PostgreSQL');         --【結果】:true

-- 「小文字（半角）」と「小文字（全角）」の比較
select check_same_character('postgresql','ｐｏｓｔｇｒｅｓｑｌ'); --【結果】:true

-- 「小文字（半角）」と「小文字大文字混合（全角）」の比較
select check_same_character('postgresql','ｐｏｓｔｇｒｅＳＱＬ'); --【結果】:true

-- 全く異なる文字列の比較
select check_same_character('postgresql','oracle');             --【結果】:false

CREATE OR REPLACE FUNCTION array_merge(
    character varying[],
    character varying[])
  RETURNS character varying[] AS
$BODY$
declare
 
	a_array1	alias for $1; 	--引数1:結合する配列1（こちらの配列の後に↓の配列を挿入します）
	a_array2	alias for $2; 	--引数2:結合する配列2
 
	a_merge_array	character varying[];
	i_maxcount	integer;
	
	c_temp		character varying;
	
BEGIN

	i_maxcount = array_length(a_merge_array,1) + array_length(a_array2,1) ;
 
	a_merge_array = a_array1;
 
	for cnt in 1..array_length(a_array2,1)
	loop
		a_merge_array[array_length(a_array1,1) + cnt] = a_array2[cnt];
	end loop;
 
	return a_merge_array;
 
END;
$BODY$
  LANGUAGE plpgsql VOLATILE
  COST 100;
ALTER FUNCTION array_merge(character varying[], character varying[])
  OWNER TO postgres;

select * from array_merge(array['1','2','3'],array['a','b','c','d','e']);
--【結果】"1,2,3,a,b,c,d,e"

CREATE OR REPLACE FUNCTION convert_seireki_to_wareki(date)
  RETURNS character varying AS
$BODY$
declare

begin

	--$1:引数（変換する日付）
	if $1 > '20190430' then
		--令和
		return 'R' || cast(to_char(cast($1 as date),'YYYYMMDD') as numeric) - 20180000;
	elseif $1 > '19890107' then
		--平成
		return 'H' || cast(to_char(cast($1 as date),'YYYYMMDD') as numeric) - 19880000;
	elseif $1 > '19261224' then
		--昭和
		return 'S' || cast(to_char(cast($1 as date),'YYYYMMDD') as numeric) - 19250000;
	elseif $1 > '19120729' then
		--大正
		return 'T' || cast(to_char(cast($1 as date),'YYYYMMDD') as numeric) - 19110000;
	elseif $1 > '18680124' then
		--明治
		return 'M' || cast(to_char(cast($1 as date),'YYYYMMDD') as numeric) - 18670000;
	end if;

	return null;
    
end;
$BODY$
  LANGUAGE plpgsql VOLATILE
  COST 100;

select * From convert_seireki_to_wareki('1950/1/1');  --"S250101"

select * From convert_seireki_to_wareki('2000/1/1');  --"H120101"

CREATE OR REPLACE FUNCTION convert_seireki_to_wareki(date)
  RETURNS character varying AS
$BODY$
declare

	tmp character varying;
	jpn_history character varying; -- 和歴

begin

	--$1:引数（変換する日付）
	if $1 > '20190430' then
		--令和
		tmp = cast(to_char($1,'YYYYMMDD') as numeric) - 20180000;
		jpn_history = 'R';
		
	elseif $1 > '19890107' then
		--平成
		tmp = cast(to_char($1,'YYYYMMDD') as numeric) - 19880000;
		jpn_history = 'H';
		
	elseif $1 > '19261224' then
		--昭和
		tmp = cast(to_char($1,'YYYYMMDD') as numeric) - 19250000;
		jpn_history = 'S';
		
	elseif $1 > '19120729' then
		--大正
		tmp = cast(to_char($1,'YYYYMMDD') as numeric) - 19110000;
		jpn_history = 'T';
		
	elseif $1 > '18680124' then
		--明治
		tmp = cast(to_char($1,'YYYYMMDD') as numeric) - 18670000;
		jpn_history = 'M';
		
	end if;

	--return（スラッシュを入れた形式でリターン）
	if length(tmp) = 6 then
		return jpn_history || substring(tmp,1,2) || '/' || substring(tmp,3,2) || '/' || substring(tmp,5,2);
	elseif length(tmp) = 5 then
		return jpn_history || substring(tmp,1,1) || '/' || substring(tmp,2,2) || '/' || substring(tmp,4,2);
	else
		return null;	
	end if;

end;
$BODY$
  LANGUAGE plpgsql VOLATILE
  COST 100;

select * From convert_seireki_to_wareki('1950/1/1');  --"S25/01/01"

select * From convert_seireki_to_wareki('2000/1/1');  --"H12/01/01"

select * From convert_seireki_to_wareki('2020/3/1');  --"R2/03/01"

CREATE OR REPLACE FUNCTION public.mid(
	c_target_char character varying,
	i_cut_start integer,
	i_cut_num integer)
    RETURNS character varying
    LANGUAGE 'plpgsql'

    COST 100
    VOLATILE 
    
AS $BODY$
declare
BEGIN

	return substring(c_target_char,i_cut_start, i_cut_num); 

END;
$BODY$;

ALTER FUNCTION public.mid(character varying, integer, integer)
    OWNER TO postgres;

select * From mid('abcdef',2,3); 
--【結果】: 'bcd'

CREATE OR REPLACE FUNCTION calc_tax(
    integer,
    integer)
  RETURNS integer AS
$BODY$
declare

	c_target	alias for $1; 	--引数1: 消費税を計算する数値
	i_flg		alias for $2; 	--引数2: 1:10%で計算、それ以外:8%で計算
	
BEGIN

	if i_flg = 1 then
		c_target = cast(round(c_target * 1.1,1) as integer);
	else
		c_target = cast(round(c_target * 1.08,1) as integer);
	end if;
	
	return c_target; 

END;
$BODY$
  LANGUAGE plpgsql VOLATILE
  COST 100;
ALTER FUNCTION calc_tax(integer, integer)
  OWNER TO postgres;

select * From calc_tax(100,1);  --※10%で計算
--【結果】110

select * From calc_tax(100,2);  --※8%で計算
--【結果】108