CREATE FUNCTION dbo.kgv(@zahl1 int, @zahl2 int )
RETURNS INT
AS
BEGIN
RETURN (@zahl1 * @zahl2) / dbo.ggt(@zahl1, @zahl2)
END
GO
SELECT dbo.kgv(24,36)
DROP FUNCTION dbo.kgv
-----------
72
(1 row(s) affected)
Der Vollständigkeit halber hier noch einmal die Funktion zur Ermittlung des grösssten gemeinsamen Teilers:
CREATE FUNCTION dbo.ggt(@zahl1 int, @zahl2 int)
RETURNS INT
AS
BEGIN
DECLARE @zahl3 INT
SET @zahl3=1
WHILE (@zahl3 <> 0)
BEGIN
SET @zahl3=@zahl1 % @zahl2
SET @zahl1=@zahl2
SET @zahl2=@zahl3
END
RETURN @zahl1
END
GO
Dies ist dies Adaption der Excel Funktion KGV.