Database

<br />
DECLARE @Array varchar(50)<br />
DECLARE @iStart int<br />
DECLARE @iEleFound int<br />
DECLARE @iMaxEleLen int<br />
DECLARE @iNextDelimIndex int<br />
DECLARE @iEleLen int<br />
<br />
SET @Array = '1,2,3,4,5,6,7,8,9,65,66,67,100,101,102,654321'<br />
SET @iStart = 0<br />
SET @iEleFound = 0<br />
SET @iMaxEleLen = 5<br />
SET @iNextDelimIndex=0<br />
SET @iEleLen =0<br />
<br />
print '---------'<br />
print 'LENGTH of string: ' + CAST(LEN(@Array) AS VARCHAR)<br />
while CHARINDEX ( ',' , @Array,@iStart  ) > 0    -- for each element in the array<br />
 begin<br />
      SET @iEleLen =1 --default	     <br />
      --if not ',' or ''<br />
      if (CAST(SUBSTRING(@Array, @iStart + 1, 1) AS char(1)) <> ',') and not(len (SUBSTRING (@Array, @iStart + 1, 1)) = 0)<br />
        begin--element found at this index<br />
<br />
 	  SET @iNextDelimIndex = CHARINDEX ( ',' , @Array,@iStart+1)	<br />
	  if(@iNextDelimIndex=0)<br />
		begin<br />
			SET @iNextDelimIndex =  CAST (LEN(@Array) AS VARCHAR)+1<br />
			print 'latest element is next:'<br />
		end <br />
          SET @iEleLen = @iNextDelimIndex - @iStart<br />
	  --DB function would occur here<br />
          print 'NEXT DELIM LOCATION-->' +  CAST(@iNextDelimIndex AS VARCHAR(10))<br />
	  print 'VALUE FOUND-->' +  RTRIM( CAST(SUBSTRING(@Array, @iStart + 1, @iNextDelimIndex - @iStart-1) AS char(10))  ) + '<--'<br />
<br />
<br />
          SET @iEleFound = @iEleFound + 1 <br />
<br />
<br />
        end<br />
<br />
       else --no element found at this index<br />
        begin<br />
         print 'do nothing'<br />
        end<br />
<br />
       SET @iStart = @iStart + @iEleLen<br />
<br />
     end --if (CAST(SUBSTRING(@Array, @iStart + 1, 1) AS char(1)) <> ',') and not(len (SUBSTRING (@Array, @iStart + 1, 1)) = 0)<br />
 <br />
print '------  ELEMENTS FOUND: '  + CAST(@iEleFound AS CHAR(2)) +   '  ---------'<br />

<br />
-- create the test table<br />
create table t1(ID int, date1 datetime, date2 datetime)<br />
<br />
-- insert test rows<br />
insert into t1 (ID, date1, date2) values (1, '15 Jan 2001', '20 Feb 2003')<br />
insert into t1 (ID, date1, date2) values (2, '01 Sep 2000', '19 Apr 2001')<br />
<br />
-- drop the proc if it exists<br />
if object_id('sp_CheckDates') is not null drop procedure sp_CheckDates<br />
go<br />
-- create the proc<br />
create procedure sp_CheckDates @ID int<br />
as<br />
declare @Date1 datetime<br />
declare @Date2 datetime<br />
select @Date1 = date1, @Date2 = date2 from t1 where ID = @ID<br />
<br />
if @Date1 is not null and @Date2 is not null begin<br />
	if datediff(dd, @Date1, getdate()) > 0 and datediff(dd, @Date2, getdate()) < 0 begin<br />
		print 'Bingo!'<br />
		return 0<br />
	end else begin<br />
		raiserror ('Date not in specified range', 16, 1)<br />
		return 1<br />
	end <br />
end else begin<br />
	raiserror('Specified ID does not exist.', 16, 1)<br />
	return 1<br />
end<br />
go<br />
<br />
-- test execution<br />
exec sp_CheckDates @ID=1 <br />

Create Procedure sp_CheckDate (@ID int)
As
DECLARE @Today datetime
    SET @Today = GetDate()
    
    Select
        Case
            When @Today Between DateColumn1 And DateColumn2 Then 
                CAST(1 As bit)

            Else 
                CAST(0 as bit)
        End As Result
    From
        TableName
    Where
        IDColumn = @ID

Function sp_CheckDate(connection, ID)
Dim strSql, rst
On Error Resume Next
    strSql = "sp_CheckDate (" & CLng(ID) & ")"
    Set rst = connection.Execute(strSql)
    If rst.Eof Then
        'ID not found, or there was an error
        sp_CheckDate = False
    Else
        sp_CheckDate = CBool(rst.Fields(0).Value)
    End If
    rst.Close
    Set rst = Nothing
End Function

bool sp_CheckDate(SqlConnection connection, int ID)
{
    SqlCommand command = connection.CreateCommand();
    command.CommandText = "sp_CheckDate";
    command.CommandType = CommandType.StoredProcedure;
    
    SqlParameter p = command.Parameters.Add("@ID", DbType.Int32);
    p.Value = ID;

    try
    {
        object ret = command.ExecuteScalar();
        
        if (ret is bool)
            return (bool)ret;
        else
            // ID not found
            return false;
    }
    catch (SqlException ex)
    {
        // Some other error
        return false;
    }
}