Función StrZero FoxPro en Sql Server

Supongo que muchos de vosotros extrañáis la función StrZero, en esta oportunidad les presento la forma de crearla en Sql Server, El tamaño de la cadena esta limitado a 100, pero esta en vosotros cambiarlo.

-- =============================================
-- Author:	
-- Create date: <11/08/2015>
-- Description:	
-- =============================================
CREATE FUNCTION [dbo].[StrZero](@cadena varchar(100), @intLen Int) 

RETURNS varchar(100)
AS
BEGIN

IF @intlen > 24
   SET @intlen = 24

RETURN REPLICATE('0',@intLen-LEN(RTRIM(@cadena))) 
    + @cadena
END

GO

Espero sea de vuestra utilidad,

Saludos