QUINZENA

USUARIO.EXCLUIDOS 17/05/2004 09:26:46
#24983
E aí pessoal, blz??? eu de novo...
pessoal eu preciso, através de uma data, saber que quinzena do ano ela pertence, através de um método em vb....por exemplo se eu tiver como data:11/01/2004, entao essa data faz parte da primeira quinzena do ano....
alguem sabe como fazer isso...

Desde ja agradeço.
USUARIO.EXCLUIDOS 18/05/2004 10:40:16
#25215 Resposta escolhida
'entra com uma quinzena entre 1 e X

Public Sub Semana(byval Quinzena as integer)
MsgBox CDate((Quinzena-1) * 15 + CDbl(CDate("01/01/2004"))) & vbtab & CDate((Quinzena + 1) * 15 + CDbl(CDate("01/01/2004")))
end Sub
USUARIO.EXCLUIDOS 18/05/2004 11:20:38
#25225
MsgBox CDate((Quinzena-1) * 15 + CDbl(CDate("01/01/2004"))) & vbtab & CDate((Quinzena) * 15 + CDbl(CDate("01/01/2004")))

tenta agora
USUARIO.EXCLUIDOS 18/05/2004 14:23:19
#25282
na verdade ficou meio confusa a questao - pq nao coloca uma amostra do que voce precisa para que a gente tenha uma ideia - de repente umas linhas do banco de dados e o que voce pretende procurar e encontrar
USUARIO.EXCLUIDOS 18/05/2004 15:02:33
#25292
voce pode fazer isso manualmente - neste caso, voce faz a pesquisa da seguinte maneira;

Select Valor from Tabela where Data=#" & DataInicial & "# and Data=#" & DataFinal & "#;"

if RS.RecordCount0 then
dim Valor as double
do while nor rs.eof
Valor = Valor + rs("Valor").value
rs.movenext
loop
msgbox Valor / RS.RecordCount
endif

ou você pode fazer a pesquisa mais ou menos assim
select sum(Valor) / Count(Valor) from Tabela;
Tópico encerrado , respostas não são mais permitidas
Voltar