Ola pessoal estou com novo problema, é o seguinte to gerando linhas no meu listview apartir do valor numero de um txt, para fazer um sistema de parcelas e nesse listview tem uma coluna chamada "Dias de Atraso" que conta os dias de atraso que nao foi pago uma conta, entao eu tenho os campos "Dia de Pagamento", onde ponho o dia de cada mes que vai ser pago, .....Data de Entrada, que mostra o dia inicial que foi feita a conta, e tenho um txt onde ponho quantas parcelas vao ser pagos um valor especifico , por exemplo o vai ser paga uma conta em 3 vezes
Perceba que o dia de Hj é dia 14/06/06 , entao eu teria que pagar a terceira linha do listview , mas as duas primeiras linhas tambem ficam com 2 dias de atraso, sendo que elas eu estou devendo a mais tempo , nao a dois dias, 2 dias eu to devendo a parcela 12/06/06 , ja que hoje é dia 14 , sacarao?
o codigo que verifica os dias de artaso eu to fazendo assim:
Dim data As Date
data = DateSerial(Year(rscasas("Data_Entrada")), Month(rscasas("Data_Entrada")), Format(rscasas("Data_Aluguel"), "00"))
'NESSA LINHA AKI TA DANDO ERRO AKI TO TENTANO FAZER ISSO AI MASNAO CONSIGO
'data = (rscasas("Data_Entrada")) - (rscasas("Data_Aluguel"))
data = DateAdd("m", CLng(rscasas("Parcela")) + 1, data)
If data = Date Then
MsgBox "Aluguel Vence Hoje"
ElseIf DateDiff("d", Date, data) <= 5 And DateDiff("d", Date, data) > 0 Then
MsgBox "Aluguel Vencendo em 5 ou Menos Dias..."
End If
'se data de hj é maior q a data q ele tem q pagar a pessoa ta em atraso
If Date > data Then
Atraso = DateDiff("d", data, Date)
Else: Atraso = "S/ Atraso"
End If
NO LISTVIEW
lista.SubItems(17) = Atraso
