Dúvida VB6

raiderr

Membro
Vamos lá ver se me consigo explicar bem :p

Eu estou a fazer um projecto para um clube de vídeo, o meu prob tá quando o cliente precisa de entregar o filme alugado, caso ele passe da data estipulada, vai receber uma multa, consoante o nº de dias passados.

Para perceberem melhor vou dar um exemplo, o prazo é no dia 29 e ele entrega no dia 10, caso me possam ajudar agradecia. Espero ter me explicado bem.


Set dbrecord = New ADODB.Recordset
a = "Select * from aluguer where codigo_filme like " & "'" & List3.Text & "' and codigo_cliente like " & "'" & cc & "'"
dbrecord.Open a, dbconexao, adOpenDynamic, adLockOptimistic
d = Format(dbrecord.Fields(5), "dd-mm-yyyy")
dbrecord.Fields(1) = d
dbrecord.Fields(6) = "yes"
If d <> dbrecord.Fields(5) Then <- Problema

dbrecord.Fields(4).Value = 5 + 5
ElseIf dbrecord.Fields(5) = d Then
dbrecord.Fields(4).Value = 5
End If
MsgBox "Entregue com sucesso", vbInformation, "Entregue!"
dbrecord.Update
frmDataEnv.Show
Unload Me

Fica aqui o código, aquela parte a negrito é a que preciso de alterar
 
Back
Topo