none
automatizar mensagem todo dia 25 do mês RRS feed

  • Pergunta

  • 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

    quinta-feira, 6 de setembro de 2018 14:04

Respostas

  • 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.
    quarta-feira, 12 de setembro de 2018 12:22

Todas as Respostas

  • 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.
    quinta-feira, 6 de setembro de 2018 14:42
  • 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

    terça-feira, 11 de setembro de 2018 12:13
  • 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.
    quarta-feira, 12 de setembro de 2018 12:22