dbo.pajaktgl

Description

Properties

Name Value
ANSI Nulls ON

True

Quoted Identifier ON

True

Encrypted

False

Execute As
Null on Null Input

False

Schema Bound

False

Assembly

Parameters

Name Data Type Length Description
(Result) varchar 50
@tgl varchar 50

SQL Script

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO

create FUNCTION dbo.pajaktgl
(
 @tgl varchar(50)
)
RETURNS varchar(50)
AS
BEGIN
 declare @bulan varchar(50),  @hari varchar(50),  @tahun varchar(50),  @tanggal varchar(50)
 declare  @tang varchar(50)
 set @hari = (select SUBSTRING(@tgl,1,3))
 set @bulan = (select SUBSTRING(@tgl,5,4))
 set @tanggal =  (select SUBSTRING(@tgl,8,3))
 set @tahun =  (select SUBSTRING(@tgl,len(@tgl)-4,5))
 
 
  if dbo.trim(@bulan) = 'jan'
  begin
   set @bulan = '01'
  end
  if dbo.trim(@bulan) = 'feb'
  begin
   set @bulan = '02'
  end
  if dbo.trim(@bulan) = 'mar'
  begin
   set @bulan = '03'
  end
  if dbo.trim(@bulan) = 'apr'
  begin
   set @bulan = '04'
  end
  if dbo.trim(@bulan) = 'may'
  begin
   set @bulan = '05'
  end
  if dbo.trim(@bulan) = 'jun'
  begin
   set @bulan = '06'
  end
  if dbo.trim(@bulan) = 'jul'
  begin
   set @bulan = '07'
  end
  if dbo.trim(@bulan) = 'aug'
  begin
   set @bulan = '08'
  end
  if dbo.trim(@bulan) = 'sep'
  begin
   set @bulan = '09'
  end
  if dbo.trim(@bulan) = 'oct'
  begin
   set @bulan = '10'
  end
  if dbo.trim(@bulan) = 'nov'
  begin
   set @bulan = '11'
  end
  if dbo.trim(@bulan) = 'dec'
  begin
   set @bulan = '12'
  end
  if len(dbo.trim(@tahun) + '-' + @bulan + '-' +  dbo.trim(@tanggal) )  = 10
  begin
   set @tang = (
    dbo.trim(@tahun) + '-' + @bulan + '-' +  dbo.trim(@tanggal)
   )
  end else set @tang = NULL


    
  

 RETURN @tang

END
GO

Depends On

1

Used By

1