CALCULAR E AVISAR O NUMERO DE ANIVERSARIO

COQUITO 08/04/2016 10:54:48
#460741

Olá amigos.

uma ajuda preciso amigos, tenho uma tabela de contatos ele tem uma coluna de data nascimento. consegui fazer que a que a data seja calculado
so que eu preciso que cada 3 horas seja informado no formulario principal o numero de aniversariante, quando houver
conforme a imagem preciso que seja informado o calculo de 2 registro no meu formulario principal mas se não houver não me informar nada.

alguma ideia amigo ai para compartilhar.

agradeço. !
KURTGU 08/04/2016 10:57:54
#460742
Qual banco voce ultiliza?
COQUITO 08/04/2016 11:08:54
#460743
access
PLUGSOFTSM 08/04/2016 11:14:09
#460745
Uma pergunta antes:
Qual a necessidade de calcular a cada 3 horas? é por que nesse meio tempo pode ter sido efetuado novos cadastros? Pois a meu ver não teria sentido uma vez que vc necessita dos aniversariantes pela data e não pela hora....

Me informa isso que te passo uma rotina que faz isso bem certinho
COQUITO 08/04/2016 11:19:11
#460746
Citação:

:
Uma pergunta antes:
Qual a necessidade de calcular a cada 3 horas? é por que nesse meio tempo pode ter sido efetuado novos cadastros? Pois a meu ver não teria sentido uma vez que vc necessita dos aniversariantes pela data e não pela hora....

Me informa isso que te passo uma rotina que faz isso bem certinho




até não pensei nisso....rsrs. errei mas o problema ainda está de como fazer esse calculo e me informar ao momento de abrir o formulario principal
KURTGU 08/04/2016 11:20:51
#460747
Sabe pegar a Data atual? se sim e so fazer um comparativo ao fazer o select no campo data do seu banco com o campo data atual...na verdade dia e mes somente...
KURTGU 08/04/2016 11:22:13
#460748
passa o seu select para trazer as informacoes do banco por favor...
COQUITO 08/04/2016 11:25:55
#460749


esse o meu select mas preciso que le conte e me mande o numero de aniversariantes na tela em vez de apresentar o formulario


Dim DataAtual As Date = DateTime.Now
Public Sub CarregarDados()
Using cn As OleDbConnection = ConexaoBD()

Try
cn.Open()
Dim sql As String = [Ô]select cod_clie,nome,dt_nasc,fone,celular from clientes where Format(dt_nasc,[ô]ddMM[ô]) = @DiaMes[Ô]
Using cmd As OleDbCommand = New OleDbCommand(sql, cn)

cmd.Parameters.AddWithValue([Ô]@DiaMes[Ô], DataAtual.ToString([Ô]ddMM[Ô]))

Using da As New OleDbDataAdapter(cmd)
Using dt As New DataTable
da.Fill(dt)
dgvListaCliente.DataSource = dt

End Using
End Using
End Using
Catch ex As Exception
MsgBox(ex.Message)
Finally
cn.Close()
End Try

End Using
End Sub
KURTGU 08/04/2016 11:26:43
#460750
Aqui mesmo achei este topico veja se te ajuda...

www.vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=185842
COQUITO 08/04/2016 11:36:10
#460753
mas ele não soma os valores em grupo exemplo se eu tenho 15 contatos e 3 deles fazem aniversario hoje o formulário informa-se alguma coisa assim [Ô]existem 3 aniversariantes.[Ô]
em vez de me mandar uma mensagem cada vez que feche outra
KURTGU 08/04/2016 11:44:39
#460754
voce so vai fazer um count da pra fazer via select e da pra fazer apos preencher, mais como o kerpluck diz não é o correto, para fazer apos o preenchimento e so fazer um laco e comparar os dados da coluna nascimento com o dia de hoje...
Página 1 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar