Total de visitas: 65935
Datas
Pesquisa por datas
Trabalhar com datas para mim foi uma luta, uma dica aqui outra ali, até que consegui alguma coisa, espero ajudar.
REALIZA BUSCA
Dim data As String = textbox.Text
Try
'COMANDO PARA CARREGAR OS DADOS
carregaLista(lista, "select CAMPO from TABELA where CAMPO=" & "#" & data & "# order by CAMPO")
Catch ex As Exception
End Try
Entre duas datas
carregaLista(lista, "select CAMPO from TABELA where CAMPO between #" & dtpdatainicio.Text & "# and #" & dtpdatafim.Text & "#")
CALCULA PRAZO
Dim limite As Date
Dim dif As Long
Dim valor As Integer
limite = txtdatalimite.Text
dif = DateDiff("d", limite, Today)
valor = dif
CALCULA UM INTERVALO
Datainicial = Format(datainicial, "mm/dd/yyyy")
DataFinal = Format(datafinal, "mm/dd/yyyy")
"select * from tabela where Data Between " & "#" & DataInicial & "# and #" & DataFinal &"#"
' as datas passadas como parametro numa consulta SQL devem ser passadas como(MES / DIA / ANO)
' OUTRAS
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Obtem data e hora atual do sistema
MsgBox(Date.Now)
'Obtendo dia da semana
MsgBox(String.Format("{0:dddd}", Now))
'Soma 20 dias a data atual
MsgBox(Date.Now.AddDays(20))
'Subtrai 15 dias da data atual
MsgBox(Date.Now.AddDays(-15))
'Exibe uma mensagem informando se o ano é bissexto
If Date.IsLeapYear(2007) = True Then
MsgBox("Ano Bissexto")
Else
MsgBox("Ano Não Bissexto")
End If
'Exibe o número de dias do mês para o ano de 2007 e mes 2
MsgBox("O numero de dias do mês é: " & Date.DaysInMonth(2007, 2))
End Sub
Não se esqueça de agradecer recomendando o Blog.
Jacob Samuel