DUVIDA EM VENCIMENTO
use o datediff
se me recordo bem eh assim
x = datediff([Ô]d[Ô], data1, data2)
if x > 30 then
fazqqrcoisa
end if
se me recordo bem eh assim
x = datediff([Ô]d[Ô], data1, data2)
if x > 30 then
fazqqrcoisa
end if
tem como vc me passar um link de um exemplo q faz isso aqui ? valew
é quase isso mesmo so q, nesse caso mskdata terá q esta carregado , não teria como ao invez de testar a data do mskdata , tertar a q ta no data grid ?
Private Sub mskData_Change()
If wVer = [Ô]S[Ô] Then
If mskData <> [Ô][Ô] Then
wDtCompra = Mid(mskData, 1, 2) & [Ô]/[Ô] & Mid(mskData, 3, 2) & [Ô]/[Ô] & Mid(mskData, 5, 4)
wData = DateDiff([Ô]d[Ô], wDtCompra, Date)
If wData > 30 Then
MsgBox [Ô]Venceu[Ô]
Else
MsgBox [Ô]não venceu ainda[Ô]
End If
End If
End If
End Sub
Private Sub mskData_GotFocus()
wVer = [Ô]N[Ô]
End Sub
Private Sub mskData_LostFocus()
wVer = [Ô]S[Ô]
End Sub
Tenta aà e faça melhorias.
Private Sub mskData_Change()
If wVer = [Ô]S[Ô] Then
If mskData <> [Ô][Ô] Then
wDtCompra = Mid(mskData, 1, 2) & [Ô]/[Ô] & Mid(mskData, 3, 2) & [Ô]/[Ô] & Mid(mskData, 5, 4)
wData = DateDiff([Ô]d[Ô], wDtCompra, Date)
If wData > 30 Then
MsgBox [Ô]Venceu[Ô]
Else
MsgBox [Ô]não venceu ainda[Ô]
End If
End If
End If
End Sub
Private Sub mskData_GotFocus()
wVer = [Ô]N[Ô]
End Sub
Private Sub mskData_LostFocus()
wVer = [Ô]S[Ô]
End Sub
Tenta aà e faça melhorias.
varData = DBGrid.Columns(numero da coluna da data)
Voce pode colocar isso e atribuir o valor disso numa variavel e usar na funçao datediff
assim x = datediff([Ô]d[Ô], varData, date)
Voce pode colocar isso e atribuir o valor disso numa variavel e usar na funçao datediff
assim x = datediff([Ô]d[Ô], varData, date)
Em anexo um exemplo BEM simples.
meus amigos , so falta uma coisa para esse topico fechar, esse projeto so esta verificando o estatus ao gravar o registro,
preciso ele q essa função [Ô]Verificastatus[Ô] fiquei vericiando a data contatemento.
exemplo veja q na imagem tem uma partela atrazada, mas não ta aparecendo [Ô]Parcela vencida[Ô]
Pço novanmente a ajuda de vcs.
preciso ele q essa função [Ô]Verificastatus[Ô] fiquei vericiando a data contatemento.
exemplo veja q na imagem tem uma partela atrazada, mas não ta aparecendo [Ô]Parcela vencida[Ô]
Pço novanmente a ajuda de vcs.
alguem ai pode ajudar nisso ?
Não se esqueça de VALIDAR as datas no formato correto antes de gravar no banco ou inserir no grid, no exemplo [Ô]10/20/2010[Ô], mês 20 não existe considerando o formato [Ô]dd/mm/yyyy[Ô].
Outra coisa, que dia vc tirou esse printscreen?
Outra coisa, que dia vc tirou esse printscreen?
tirei esse printsscreen ontem ...pode me ajudar
faça assim
ou uma funcao no load do inicio do seu projeto
ou entao ao preencher a grid
aqui ao preencher o grid
do while not tabla.eof
if date > tabela!data then
tabela.edit
tabela!status = [Ô]PENDENTE[Ô]
tabela.update
end if
tabela.movenext
loop
Eu crio uma tabela dia q vai adicionando o um registro com a data a cada dia q abro osistema
dsdia.findfirst [Ô]dia = [ô][Ô] & date & [Ô][ô][Ô]
if dsdia.nomatch then
dsdia.addnew
dsdia!dia = date
[ô] aqui voce coloca sua rotina e passa por todos registros da sua tabela.. fazendo a mesma condicao de cima
dsdia.update
end if
ou uma funcao no load do inicio do seu projeto
ou entao ao preencher a grid
aqui ao preencher o grid
do while not tabla.eof
if date > tabela!data then
tabela.edit
tabela!status = [Ô]PENDENTE[Ô]
tabela.update
end if
tabela.movenext
loop
Eu crio uma tabela dia q vai adicionando o um registro com a data a cada dia q abro osistema
dsdia.findfirst [Ô]dia = [ô][Ô] & date & [Ô][ô][Ô]
if dsdia.nomatch then
dsdia.addnew
dsdia!dia = date
[ô] aqui voce coloca sua rotina e passa por todos registros da sua tabela.. fazendo a mesma condicao de cima
dsdia.update
end if
Tópico encerrado , respostas não são mais permitidas