Funcion de Fecha Habiles y Dias Transcurridos
Publicado por Alejandro (52 intervenciones) el 23/01/2008 20:23:14
Hola que tal tengo uan funcion de fechas para varios reportes en uno es esta esta de fecha sin hora
sqlcommand.CommandText = " CREATE FUNCTION dbo.[Fecha_sin_hora]"
sqlcommand.CommandText = sqlcommand.CommandText + vbNewLine + " ("
sqlcommand.CommandText = sqlcommand.CommandText + vbNewLine + " @Fecha datetime"
sqlcommand.CommandText = sqlcommand.CommandText + vbNewLine + " )"
sqlcommand.CommandText = sqlcommand.CommandText + vbNewLine + "RETURNS datetime"
sqlcommand.CommandText = sqlcommand.CommandText + vbNewLine + " WITH ENCRYPTION"
sqlcommand.CommandText = sqlcommand.CommandText + vbNewLine + "AS"
sqlcommand.CommandText = sqlcommand.CommandText + vbNewLine + "BEGIN"
sqlcommand.CommandText = sqlcommand.CommandText + vbNewLine + " RETURN DATEADD(ms, -DATEPART(ms, @Fecha), DATEADD(ss, -DATEPART(ss, @Fecha), DATEADD(mi, -DATEPART(mi, @Fecha), DATEADD(hh, -DATEPART(hh, @Fecha), @Fecha))))"
sqlcommand.CommandText = sqlcommand.CommandText + vbNewLine + "END"
sqlcommand.Execute
Pero ahora deseo hacer una de dias habiles y otra de dias transcurridos del mes. espero me puedan ayudar. gracias
sqlcommand.CommandText = " CREATE FUNCTION dbo.[Fecha_sin_hora]"
sqlcommand.CommandText = sqlcommand.CommandText + vbNewLine + " ("
sqlcommand.CommandText = sqlcommand.CommandText + vbNewLine + " @Fecha datetime"
sqlcommand.CommandText = sqlcommand.CommandText + vbNewLine + " )"
sqlcommand.CommandText = sqlcommand.CommandText + vbNewLine + "RETURNS datetime"
sqlcommand.CommandText = sqlcommand.CommandText + vbNewLine + " WITH ENCRYPTION"
sqlcommand.CommandText = sqlcommand.CommandText + vbNewLine + "AS"
sqlcommand.CommandText = sqlcommand.CommandText + vbNewLine + "BEGIN"
sqlcommand.CommandText = sqlcommand.CommandText + vbNewLine + " RETURN DATEADD(ms, -DATEPART(ms, @Fecha), DATEADD(ss, -DATEPART(ss, @Fecha), DATEADD(mi, -DATEPART(mi, @Fecha), DATEADD(hh, -DATEPART(hh, @Fecha), @Fecha))))"
sqlcommand.CommandText = sqlcommand.CommandText + vbNewLine + "END"
sqlcommand.Execute
Pero ahora deseo hacer una de dias habiles y otra de dias transcurridos del mes. espero me puedan ayudar. gracias
Valora esta pregunta


0