Quinzena

[smez]

Como que eu faço um select que ele lista todos os registros por quinzena

tipo assim tem uma opção para escolher a quinzena na busca

ex.:

txtQuinzena txtMes txtAno

1.Quinzena Janeiro 2007

2.Quinzena Fevereiro 2006

como que eu faço pra ele mostrar o resultado de 15 dias

na minha tabela tem um campo "DtCadastro" o tipo dele e DateTime

[fercosmig]

faz um <select> com as opções 1ª quinzena e 2ª quinzena

se o cara selecionar a 1ª quinzena você define o dia_inicial = 1 e dia final = 15

e no sql manda buscar do dia 01/08/2007 00:00:00 até 15/08/2007 23:59:59

se o cara selecionar a 2ª quinzena você define o dia_inicial = 16 e dia final = 1 e soma 1 no mês final

e no sql manda buscar do dia 16/08/2007 00:00:00 até 01/09/2007 00:00:00

espero que ajude

[smez]

você tem algum exemplo ae?

[fercosmig]

não testei, espero que ajude, qqer coisa posta ae

<%
vQuinzena  = Request.Form("sl_quinzena")
vMes = Request.Form("sl_mes")
vAno = Request.Form("sl_ano")

If (vQuinzena  = 1) Then
    vData_inicial = "01/" & vMes & "/" vAno & " 00:00:00"
    vData_final = "15/" & vMes & "/" vAno & " 23:59:59"
Else
    vData_inicial = "16/" & vMes & "/" vAno & " 00:00:00"
    If (vMes = 12) Then
        vMes = 1
        vAno = vAno + 1
    Else
        vMes = vMes + 1
    End If
    vData_final = "01/" & vMes & "/" vAno & " 00:00:00"
End If

vSql = "SELECT * FROM TABELA WHERE DtCadastro BETWEEN '" & vData_inicial & "' AND '" & vData_final & "'"
%>

[smez]

deu o esse erro

Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)

[Microsoft][ODBC SQL Server Driver][sql Server]Syntax error converting datetime from character string.

[smez]

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'vMes'

/novo/admin/relatorioVendaDireta.asp, line 307

If (Quinzena = 1) Then

vData_inicial = "01/" & vMes & "/" & vAno & "00:00:00"

vData_final = "15/" & vMes & "/" & vAno & "23:59:59"

else

vData_inicial = "16/" & vMes & "/" & vAno & "00:00:00"

if (vMes = 12) Then

vMes = 1

vAno = vAno +1

else

vMes = vMes +1

end if

vData_final = "01/" & vMes & "/" & vAno & "00:00:00"

end if

o erro esta dando na linha em vermelho