dbo.pembulatanribuan

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) decimal 9
@nilai decimal 9

SQL Script

SET QUOTED_IDENTIFIER, ANSI_NULLS ON
GO
CREATE FUNCTION dbo.pembulatanribuan (
@nilai decimal(18,4)  )
RETURNS decimal(18,0)
WITH EXECUTE AS CALLER

AS
BEGIN
declare @iv decimal(18,0)
  if (@nilai is null)  or @nilai=0
 begin
   set @iv=0
 end
 else
 begin

 declare @pembagian  decimal(18,2)
 declare @sisa int
 if @nilai>1000
  begin
  set @iv=@nilai
  set @sisa=@iv % 1000
  if @sisa>0
   set @iv=(@iv-@sisa) + 1000
 end
 else if @nilai>100
  begin
  set @iv=@nilai
   set @sisa=@iv % 100
  if @sisa>0
   set @iv=(@iv-@sisa) + 100
 end
 else if @nilai>10
 begin
  set @iv=@nilai
   set @sisa=@iv % 10
  if @sisa>0
   set @iv=(@iv-@sisa) + 10
 end
 end
   return (@iv) 
END;


GO

Depends On

No items found

Used By

No items found