--Crea un Prodecimiento almacenado
CREATE PROCEDURE P_CREA_MODULOS
AS
BEGIN
    DECLARE @DURACION_MODULO AS SMALLINT
    DECLARE @INICIO_CLASES AS DATETIME --8:30
    DECLARE @TERMINO_CLASES AS DATETIME -- 22:45
    DECLARE @HORA_CLASES AS DATETIME --GUARDARA LA SUMA DE 45'
   
    SET @DURACION_MODULO = 45
    SET @INICIO_CLASES='20090101 8:30'
    SET @TERMINO_CLASES='20090101 22:45'
   
    WHILE @INICIO_CLASES < @TERMINO_CLASES
        BEGIN
        SET @HORA_CLASES = DATEADD(mi,@DURACION_MODULO,@INICIO_CLASES)
        IF @INICIO_CLASES > '20090101 8:30'
            BEGIN
            SET @INICIO_CLASES = DATEADD(mi,1,@INICIO_CLASES)           
            END

        INSERT INTO MODULOS VALUES(@INICIO_CLASES,@HORA_CLASES,'S')
        IF @INICIO_CLASES > '20090101 8:30'
            BEGIN
            SET @INICIO_CLASES = DATEADD(mi,-1,@INICIO_CLASES)           
            END

        SET @INICIO_CLASES=@HORA_CLASES
    END

END
GO

execute  P_CREA_MODULOS