dbo.angka_bulan

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO

-- MS SQL Trim function
-- Removes leading and trailing white spaces from the supplied
-- text
CREATE FUNCTION dbo.angka_bulan(@input_tgl_ngaco varchar(200))
RETURNS varchar(200)
BEGIN
 declare @tglstr varchar(20) 
 declare @bln varchar(20)
 declare @retbln varchar(20)
 set @tglstr= SUBSTRING(@input_tgl_ngaco,3,3)
 IF @tglstr = 'JAN'
 BEGIN
 set @bln='01'
 END
 IF @tglstr = 'FEB'
 BEGIN
 set @bln='02'
 END
 IF @tglstr = 'MAR'
 BEGIN
 set @bln='03'
 END
 IF @tglstr = 'APR'
 BEGIN
 set @bln='04'
 END
 IF @tglstr = 'MEI'
 BEGIN
 set @bln='05'
 END
 IF @tglstr = 'JUN'
 BEGIN
 set @bln='06'
 END
 IF @tglstr = 'JUL'
 BEGIN
 set @bln='07'
 END
 IF @tglstr = 'AGS'
 BEGIN
 set @bln='08'
 END
 IF @tglstr = 'SEP'
 BEGIN
 set @bln='09'
 END
 IF @tglstr = 'OKT'
 BEGIN
 set @bln='10'
 END
 IF @tglstr = 'NOV'
 BEGIN
 set @bln='11'
 END
 IF @tglstr = 'DEC'
 BEGIN
 set @bln='12'
 END
 
 set @retbln =  SUBSTRING(@input_tgl_ngaco, 1,2)+'/'+@bln+'/'+SUBSTRING(@input_tgl_ngaco, 6,4)
 
 RETURN @retbln
END
GO