Sección de códigos , trucos y ejemplos para visual basic

374 - Obtener el primer y último día de un mes en SQL Sever

Ejemplo enviado por David Reagalado

Funcion para obtener el 1er y ultimo dia de un mes ( Esta probado en SQL Server )

Código fuente

declare @d varchar(2),@m varchar(2),@a varchar(4), @FE varchar(50) , @FI varchar(50) , @FN varchar(50),@FcF varchar(50) --//recupera el dia ctual set @d=day(getdate()) --//recupera el mes actual set @m=month(getdate()) --//recupera el año actual set @a=year(getdate()) --//fecha dada por el sistema set @FE=@d + '/' + @m + '/' + @a --//Primer dia del Mes set @FI='01' + '/' + @m + '/' + @a --//Ultimo dia del mes set @FN=dateadd( month,1,@FI) -1 --//Ultimo dia del mes en formato dd/mm/yyyy set @FcF=cast(day(@FN)as varchar) + '/' + cast(month(@FN)as varchar) + '/' + cast(year(@FN)as varchar) Print 'Primer dia del Mes==>>' + @FI Print 'Ultimo dia del Mes==>>' + @FcF

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb