CREATE OR REPLACE FUNCTION commaseparated(
    numeric)
  RETURNS character varying AS
$BODY$
declare

	i_target	alias for $1; 	--引数1:対象の数値
	
BEGIN
	
	return to_char(i_target, 'fm999,999,999,999,999'); 
	
END;
$BODY$
  LANGUAGE plpgsql VOLATILE
  COST 100;
ALTER FUNCTION commaseparated(numeric)
  OWNER TO postgres;

select * from commaseparated(1234567890);
--1,234,567,890

CREATE OR REPLACE FUNCTION lastindexof(
   c_target_char character varying,
   c_search_char character varying)
  RETURNS integer AS
$BODY$
declare

	c_tmp 		character varying;
	i_result 	integer;
	i_length	integer;

BEGIN

	--引数1がNullまたは空なら0でリターン
	if (c_target_char is null) or (c_target_char= '') then
		return 0;
	end if;

	--引数2がNullまたは空なら0でリターン
	if (c_search_char is null) or (c_search_char = '') then
		return 0;
	end if;

	i_length = length(c_target_char);
	c_target_char = reverse(c_target_char);
	c_search_char = reverse(c_search_char);

	c_tmp = substr(c_target_char, 0, length(c_target_char) + 1);
	i_result = strpos(c_tmp, c_search_char);

	IF i_result != 0 THEN
		--見つかった場合：その位置をリターン
		RETURN i_length - i_result + 1;
	ELSE
		--見つからなかった場合：0でリターン
		RETURN 0;
	END IF;

	return 0;

END;
$BODY$
  LANGUAGE plpgsql VOLATILE
  COST 100;

--探す文字列があった場合は、最初に見つかった位置が返る
select lastindexOf('abcabcabc', 'b')   --【結果】:8

--探す文字列がない場合は、0が返る
select lastindexOf('abcabcabc', 'de')  --【結果】:0

-- 型を変換する
cast( A as B )    -- Aを型Bに変換する

-- '0123'をintegerへ変換する
select cast('0123' as integer);     --　123

-- '0123.45'をnumericへ変換する
select cast('0123.45' as numeric);  --　123.45

-- 小数点第何位までで変換
-- numericの左の数値は全体の桁数、右は小数点の桁数
SELECT cast('1234567.345' as numeric(10,2) );  -- 小数点第2位まで：1234567.35
SELECT cast('1234567.345' as numeric(10,3) );  -- 小数点第3位まで：1234567.345
SELECT cast('1234567.345' as numeric(12,5) );  -- 小数点第5位まで：1234567.34500

-- マイナス値
SELECT cast('-123456.789' as numeric);        -- -123456.789
SELECT cast('-123456.789' as numeric(8,2) );  -- -123456.79

-- 'abc'をintegerへ変換する
select cast('abc' as integer);      --　エラーが発生

--上の例は、次のようにも書くこともできます（同じ意味です）
select '0123'::integer;             --　123
select '0123.45'::numeric;          --　123.45
select 'abc'::integer;              --　エラー

-- 12345をcharacter varyingへ変換する
select cast(12345 as character varying);     -- '12345'

-- 12345をcharacter varying(3)へ変換する
select cast(12345 as character varying(3));  -- '123'

-- 45678をtextへ変換する
select cast(45678 as text);                  -- '45678'

CREATE OR REPLACE FUNCTION rand(i_min integer,i_max integer)
  RETURNS numeric AS
$BODY$
declare
BEGIN

	return round(( random() * (i_min - i_max) )::numeric, 0) + i_max;

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

--1から100の範囲でランダム値を生成する
select * From rand(1 , 100);        --結果：50

--1,000から10,000の範囲でランダム値を生成する
select * From rand(1000 , 10000);   --結果：5000

CREATE OR REPLACE FUNCTION indexof(
	c_target_char character varying,
	c_search_char character varying)
    RETURNS integer LANGUAGE 'plpgsql' COST 100 VOLATILE 
AS $BODY$
declare
BEGIN

	--文字列と検索文字列が空かnullなら0とする
	if (c_target_char is null) or (c_target_char= '') then
		return 0;
	end if;
	if (c_search_char is null) or (c_search_char = '') then
		return 0;
	end if;

	RETURN strpos(c_target_char, c_search_char);

END;
$BODY$;

 select indexOf('abcdefgh', 'f');  --【結果】:6

CREATE OR REPLACE FUNCTION convert_hiragana_to_katakana(character varying)
  RETURNS character varying AS
$BODY$
declare
	c_hiragana	alias for $1;      --引数1:置換する文字列
	c_katakana	character varying;

begin

	return
	translate(
		c_hiragana,
		'ぁあぃいぅうぇえぉおかがきぎくぐけげこごさざしじすずせぜそぞただちぢっつづてでとどなにぬねのはばぱひびぴふぶぷへべぺほぼぽまみむめもゃやゅゆょよらりるれろゎわゐゑをんゕゖ',
		'ァアィイゥウェエォオカガキギクグケゲコゴサザシジスズセゼソゾタダチヂッツヅテデトドナニヌネノハバパヒビピフブプヘベペホボポマミムメモャヤュユョヨラリルレロヮワヰヱヲンヵヶ'
	);

end;
$BODY$
  LANGUAGE plpgsql VOLATILE
  COST 100;
ALTER FUNCTION convert_hiragana_to_katakana(character varying)
  OWNER TO postgres;

select * From convert_hiragana_to_katakana('あいうえお');
--【結果】アイウエオ

-- 構文（5行で一つのSQLです）
select translate(
	'ここに変換する文字を入力します',
	'ぁあぃいぅうぇえぉおかがきぎくぐけげこごさざしじすずせぜそぞただちぢっつづてでとどなにぬねのはばぱひびぴふぶぷへべぺほぼぽまみむめもゃやゅゆょよらりるれろゎわゐゑをんゕゖ',
	'ァアィイゥウェエォオカガキギクグケゲコゴサザシジスズセゼソゾタダチヂッツヅテデトドナニヌネノハバパヒビピフブプヘベペホボポマミムメモャヤュユョヨラリルレロヮワヰヱヲンヵヶ'
);
--【結果】ココニ変換スル文字ヲ入力シマス

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

	c_katakana	alias for $1;      --引数1:置換する文字列
	c_hiragana	character varying;

begin

	c_hiragana = translate(
	c_katakana,
	'ァアィイゥウェエォオカガキギクグケゲコゴサザシジスズセゼソゾタダチヂッツヅテデトドナニヌネノハバパヒビピフブプヘベペホボポマミムメモャヤュユョヨラリルレロヮワヰヱヲンヵヶ',
	'ぁあぃいぅうぇえぉおかがきぎくぐけげこごさざしじすずせぜそぞただちぢっつづてでとどなにぬねのはばぱひびぴふぶぷへべぺほぼぽまみむめもゃやゅゆょよらりるれろゎわゐゑをんゕゖ'
	);

	return c_hiragana;

end;
$BODY$
  LANGUAGE plpgsql VOLATILE
  COST 100;

select * From convert_katakana_to_hiragana('アメリカ');
--【結果】あめりか

-- 構文（5行で一つのSQLです）
select translate(
	'ココニ変換スル文字ヲ入力シマス',
	'ァアィイゥウェエォオカガキギクグケゲコゴサザシジスズセゼソゾタダチヂッツヅテデトドナニヌネノハバパヒビピフブプヘベペホボポマミムメモャヤュユョヨラリルレロヮワヰヱヲンヵヶ',
	'ぁあぃいぅうぇえぉおかがきぎくぐけげこごさざしじすずせぜそぞただちぢっつづてでとどなにぬねのはばぱひびぴふぶぷへべぺほぼぽまみむめもゃやゅゆょよらりるれろゎわゐゑをんゕゖ'
);
--【結果】ここに変換する文字を入力します

CREATE OR REPLACE FUNCTION isempty(
	c_target character varying)
    RETURNS boolean
    LANGUAGE 'plpgsql' COST 100 VOLATILE 
    
AS $BODY$
declare
	b_flg		boolean:=false; 
BEGIN

	--初期値セット
	b_flg = false;

	--""のチェック
	if trim(c_target) = '' then
		b_flg = true;
	end if;

	--nullチェック
	if c_target is null then
		b_flg = true;
	end if;

	return b_flg;

END;
$BODY$;

select isempty(null);    -- true（判定：空）
select isempty('');      -- true（判定：空）
select isempty('abc');   -- false（判定：空でない）

-- nullの時:'a' , 空文字の時:'b' , それ以外は'c'とする
select case 
when 'ここにチェックする文字を入れる' is null then 'a' 
when 'ここにチェックする文字を入れる' = '' then 'b' 
else 'c' end;

--曜日を取得する ※ 'dow' = Day of Weekの略
date_part('dow', timestamp)
date_part('dow', date)

--使用例
select date_part('dow', now());                  -- 3 (水曜日)
select date_part('dow', timestamp '2021/1/1');   -- 5（金曜日）
select date_part('dow', date '2021/2/1');        -- 1（月曜日）

CREATE OR REPLACE FUNCTION get_dayofweek(t_day timestamp without time zone)
  RETURNS character varying AS
$BODY$
declare
	c_dayofweek	character varying;
begin

	select	case 
		when date_part('dow', t_day) = 0 then '日'	
		when date_part('dow', t_day) = 1 then '月'
		when date_part('dow', t_day) = 2 then '火'	
		when date_part('dow', t_day) = 3 then '水'
		when date_part('dow', t_day) = 4 then '木'	
		when date_part('dow', t_day) = 5 then '金'
		when date_part('dow', t_day) = 6 then '土'	
	else	
		null
	end	into c_dayofweek;

	return c_dayofweek;

end;
$BODY$
  LANGUAGE plpgsql VOLATILE
  COST 100;

select get_dayofweek(timestamp '2021/01/01');  -- 金
select get_dayofweek(date '2021/1/10');        -- 日

CREATE OR REPLACE FUNCTION isdate(c_day character varying)
  RETURNS boolean AS
$BODY$
declare
	d_temp 		date;  --一時変数
BEGIN

	select cast(c_day as date) into d_temp;

    --castできる時はtrueでリターン
	return TRUE;
	
	EXCEPTION
	WHEN OTHERS THEN
	--castできずエラーになる時はfalseでリターン
	return FALSE;

END;
$BODY$
  LANGUAGE plpgsql VOLATILE
  COST 100;

select isdate('20190101');     -- true
select isdate('2019/01/01');   -- true
select isdate('abc');          -- false
select isdate('20190132');     -- false（存在しない日付はfalseとなる）