automatizar mensagem todo dia 25 do mês

Question

bom dia existe a possibilidade de automatizar uma mensagem todo o dia 25 de cada mês? a ideia é o seguinte todo primeiro dia do mês eu executo este select para ver os ASOS que vencem.

se vencer no dia primeiro dia e eu consultar no primeiro dia não da tempo de tratar o ASOS, eu quero q todo dia 25 ele exibi uma mensagem onde ao clicar da mensagem me mostra o meu select 

 Private Sub PFiltrar()

        Using con As OleDbConnection = getConnection()
            Try
                con.Open()
                Dim sql As String = " SELECT NOME,TIPO_EXAME,PROXIMO_EXAME FROM Tab_Asos WHERE Proximo_exame Like '%" & txtData.Text & "%'"


                '& txthistorico1.Text

                sql += " ORDER BY PROXIMO_EXAME ASC "
                Dim cmd As New OleDbCommand(sql, con)
                Dim da As New OleDbDataAdapter(cmd)
                Dim dt As New DataTable
                da.Fill(dt)
                dgvCadastro1.DataSource = dt
                With dgvCadastro1
                    .Columns("Nome").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
                End With

            Catch ex As Exception
                MsgBox("OCORREU UM ERRO INESPERADO AO CARREGAR OS DADOS.ERRO " & ex.Message, MsgBoxStyle.Critical, "ASOS QUE TEM DE SER FEITO ESTE MÊS ")
            End Try
        End Using
    End Sub

Answer 1

Arlindo António,

    Acredito que assim te ajude:

    Primeiro você tem que verificar se a data é dia 25 (porém se o dia 25 cair em um sábado, domingo ou feriado?!?)

============================================
VB .NET - Datas, horas: conceitos e operações (TimeSpan, DateTime)

http://macoratti.net/vbn5_udh.htm
============================================

    Segundo, caso o primeiro seja verdade é preciso mandar uma mensagem com botão de visualização, exemplo: "Deja ver a Query? (Sim / Não)" :

============================================
WPF - Usando MessageBox

http://www.macoratti.net/11/04/wpf_msgb.htm
============================================

[]'s,
Fabio I.

Answer 2

oi pessoal como eu faço para o meu select pesquisar com base no primeiro dia do mês , ele exibem corretamente a mensagem do primeiro dia do mês seguinte, só que eu gostaria que depois da mensagem ele pesquisasse o meu select e exibisse

 Private Sub Pavisar()
        Using con As OleDbConnection = getConnection()
            Try
                con.Open()
                Dim mes As DateTime
                mes = DateTime.Now
                mes = mes.AddMonths(+1)
                mes = Convert.ToDateTime("01/" + mes.ToString("MM/yyyy"))
                MessageBox.Show("Primeiro dia do mês anterior: " + mes.ToString())

                Dim sql As String = " SELECT NOME,TIPO_EXAME,PROXIMO_EXAME FROM Tab_Asos WHERE Proximo_exame Like '%" & mes.ToString() & "%'"


                sql += " ORDER BY PROXIMO_EXAME ASC "
                Dim cmd As New OleDbCommand(sql, con)
                Dim da As New OleDbDataAdapter(cmd)
                Dim dt As New DataTable
                da.Fill(dt)
                dgvCadastro1.DataSource = dt
                With dgvCadastro1
                    .Columns("Nome").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
                End With

            Catch ex As Exception
                MsgBox("OCORREU UM ERRO INESPERADO AO CARREGAR OS DADOS.ERRO " & ex.Message, MsgBoxStyle.Critical, "ASOS QUE TEM DE SER FEITO ESTE MÊS ")
            End Try
        End Using
    End Sub

Answer 3

Arlindo António,

    Já experimento somar datas (dias ou meses)?
    Você pode somar 1 mês a sua data... veja:

=======================================
VB .NET - Datas, horas: conceitos e operações (TimeSpan, DateTime)

http://macoratti.net/vbn5_udh.htm
=======================================
Como calcular datas considerando apenas dias úteis

http://dotdicas.blogspot.com/2011/01/adicionar-dias-uteis-uma-data-c.html
=======================================
Calculo entre horas(vb.net)

https://social.msdn.microsoft.com/forums/vstudio/pt-BR/e3c58206-b8e9-4eca-b4b5-2269bd9896b5/calculo-entre-horasvbnet
=======================================
Visual Basic : Datas , Datas e mais datas…

http://www.clubedainformatica.com.br/site/2003/11/24/visual-basic-datas-datas-e-mais-datas/
=======================================

   Código exemplo:

=======================================
PEDACOS DE INTERVALO DE HORAS

http://vbmania.com.br/index.php?modulo=detalhe&id=9411
=======================================


[]'s,
Fabio I.