Please, help me

[mmuralha]

Hi, fellows,

I wish to do a prodedure to actualize the vehicle's venal value, when I
update the date.

As I did, because there are 5 classes, the procedure stay very large
and crash.

If anybody can help me, I will be very grateful.

...............

Private Sub ÚltimaAlteração_BeforeUpdate(Cancel As Integer)
If Classe = "LG" And ValorNovo <= 25000 Then
If [ÚltimaAlteração] - [DataMatrícula] <= 30 Then
ValorVenal = ValorNovo * .984
End If
If [ÚltimaAlteração] - [DataMatrícula] > 30 And
[ÚltimaAlteração] - [DataMatrícula] <= 61 Then
ValorVenal = ValorNovo * 0.968
End If
If [ÚltimaAlteração] - [DataMatrícula] > 61 And
[ÚltimaAlteração] - [DataMatrícula] <= 91 Then
ValorVenal = ValorNovo * 0.952
End If
If [ÚltimaAlteração] - [DataMatrícula] > 91 And
[ÚltimaAlteração] - [DataMatrícula] <= 122 Then
ValorVenal = ValorNovo * 0.936
End If
If [ÚltimaAlteração] - [DataMatrícula] > 122 And
[ÚltimaAlteração] - [DataMatrícula] <= 152 Then
ValorVenal = ValorNovo * 0.92
End If
If [ÚltimaAlteração] - [DataMatrícula] > 152 And
[ÚltimaAlteração] - [DataMatrícula] <= 182 Then
ValorVenal = ValorNovo * 0.904
End If
If [ÚltimaAlteração] - [DataMatrícula] > 182 And
[ÚltimaAlteração] - [DataMatrícula] <= 213 Then
ValorVenal = ValorNovo * 0.888
End If
If [ÚltimaAlteração] - [DataMatrícula] > 213 And
[ÚltimaAlteração] - [DataMatrícula] <= 243 Then
ValorVenal = ValorNovo * 0.872
End If
If [ÚltimaAlteração] - [DataMatrícula] > 243 And
[ÚltimaAlteração] - [DataMatrícula] <= 274 Then
ValorVenal = ValorNovo * 0.856
End If
If [ÚltimaAlteração] - [DataMatrícula] > 274 And
[ÚltimaAlteração] - [DataMatrícula] <= 304 Then
ValorVenal = ValorNovo * 0.84
End If
If [ÚltimaAlteração] - [DataMatrícula] > 304 And
[ÚltimaAlteração] - [DataMatrícula] <= 335 Then
ValorVenal = ValorNovo * 0.824
End If
If [ÚltimaAlteração] - [DataMatrícula] > 335 And
[ÚltimaAlteração] - [DataMatrícula] <= 365 Then
ValorVenal = ValorNovo * 0.808
End If
If [ÚltimaAlteração] - [DataMatrícula] > 365 And
[ÚltimaAlteração] - [DataMatrícula] <= 395 Then
ValorVenal = ValorNovo * 0.8
End If
If [ÚltimaAlteração] - [DataMatrícula] > 395 And
[ÚltimaAlteração] - [DataMatrícula] <= 426 Then
ValorVenal = ValorNovo * 0.792
End If
If [ÚltimaAlteração] - [DataMatrícula] > 426 And
[ÚltimaAlteração] - [DataMatrícula] <= 456 Then
ValorVenal = ValorNovo * 0.784
End If
If [ÚltimaAlteração] - [DataMatrícula] > 456 And
[ÚltimaAlteração] - [DataMatrícula] <= 487 Then
ValorVenal = ValorNovo * 0.776
End If
If [ÚltimaAlteração] - [DataMatrícula] > 487 And
[ÚltimaAlteração] - [DataMatrícula] <= 517 Then
ValorVenal = ValorNovo * 0.768
End If
If [ÚltimaAlteração] - [DataMatrícula] > 517 And
[ÚltimaAlteração] - [DataMatrícula] <= 547 Then
ValorVenal = ValorNovo * 0.76
End If
If [ÚltimaAlteração] - [DataMatrícula] > 547 And
[ÚltimaAlteração] - [DataMatrícula] <= 578 Then
ValorVenal = ValorNovo * 0.752
End If
If [ÚltimaAlteração] - [DataMatrícula] > 578 And
[ÚltimaAlteração] - [DataMatrícula] <= 608 Then
ValorVenal = ValorNovo * 0.744
End If
If [ÚltimaAlteração] - [DataMatrícula] > 608 And
[ÚltimaAlteração] - [DataMatrícula] <= 639 Then
ValorVenal = ValorNovo * 0.736
End If
If [ÚltimaAlteração] - [DataMatrícula] > 639 And
[ÚltimaAlteração] - [DataMatrícula] <= 669 Then
ValorVenal = ValorNovo * 0.728
End If
If [ÚltimaAlteração] - [DataMatrícula] > 669 And
[ÚltimaAlteração] -

' and more... until 6935
End If
End Sub

.....................

Translation:

[ÚltimaAlteração] ---> Last Update
[DataMatrícula] ---> Motor-Car Date Matriculation
ValorVenal ---> Venal Value
ValorNovo ---> Value in new

Best regards,

Marcal Muralha

[MGFoster]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

You might try something like this:

intTestValue = [ÚltimaAlteração] - [DataMatrícula]

If Classe = "LG" And ValorNovo <= 25000 Then

Select Case intTestValue
Case Is <= 30 : dblMultiplier = 0.984
Case Is <= 61 : dblMultiplier = 0.968
Case Is <= 91 : dblMultiplier = 0.952

... etc. ...

End Select

ValorVenal = ValorNovo * dblMultiplier

The Case evaluations have to be in numerical order: lowest to highest.
E.g.: If the intTestValue is between 31 and 61 the dblMultiplier will
be set to 0.968.

The reason I set it up like this to take the calculation out of the
If...Then statement and just compare one value to another. And it is
easier to read ;)
--
MGFoster:::mgf00 <at> earthlink <decimal-point> net
Oakland, CA (USA)

-----BEGIN PGP SIGNATURE-----
Version: PGP for Personal Privacy 5.0
Charset: noconv

iQA/AwUBQ9fm74echKqOuFEgEQLvgACdFsmmsy2KxnsFyGCxuzaJ13 8SUSQAoOUL
cZjWA6NemqIzCNJuUQIKL9AH
=oz1T
-----END PGP SIGNATURE-----

mm******@gmail.com wrote:

Hi, fellows,

I wish to do a prodedure to actualize the vehicle's venal value, when I
update the date.

As I did, because there are 5 classes, the procedure stay very large
and crash.

If anybody can help me, I will be very grateful.

..............

Private Sub ÚltimaAlteração_BeforeUpdate(Cancel As Integer)
If Classe = "LG" And ValorNovo <= 25000 Then
If [ÚltimaAlteração] - [DataMatrícula] <= 30 Then
ValorVenal = ValorNovo * .984
End If
If [ÚltimaAlteração] - [DataMatrícula] > 30 And
[ÚltimaAlteração] - [DataMatrícula] <= 61 Then
ValorVenal = ValorNovo * 0.968
End If
If [ÚltimaAlteração] - [DataMatrícula] > 61 And
[ÚltimaAlteração] - [DataMatrícula] <= 91 Then
ValorVenal = ValorNovo * 0.952
End If
If [ÚltimaAlteração] - [DataMatrícula] > 91 And
[ÚltimaAlteração] - [DataMatrícula] <= 122 Then
ValorVenal = ValorNovo * 0.936
End If
If [ÚltimaAlteração] - [DataMatrícula] > 122 And
[ÚltimaAlteração] - [DataMatrícula] <= 152 Then
ValorVenal = ValorNovo * 0.92
End If
If [ÚltimaAlteração] - [DataMatrícula] > 152 And
[ÚltimaAlteração] - [DataMatrícula] <= 182 Then
ValorVenal = ValorNovo * 0.904
End If
If [ÚltimaAlteração] - [DataMatrícula] > 182 And
[ÚltimaAlteração] - [DataMatrícula] <= 213 Then
ValorVenal = ValorNovo * 0.888
End If
If [ÚltimaAlteração] - [DataMatrícula] > 213 And
[ÚltimaAlteração] - [DataMatrícula] <= 243 Then
ValorVenal = ValorNovo * 0.872
End If
If [ÚltimaAlteração] - [DataMatrícula] > 243 And
[ÚltimaAlteração] - [DataMatrícula] <= 274 Then
ValorVenal = ValorNovo * 0.856
End If
If [ÚltimaAlteração] - [DataMatrícula] > 274 And
[ÚltimaAlteração] - [DataMatrícula] <= 304 Then
ValorVenal = ValorNovo * 0.84
End If
If [ÚltimaAlteração] - [DataMatrícula] > 304 And
[ÚltimaAlteração] - [DataMatrícula] <= 335 Then
ValorVenal = ValorNovo * 0.824
End If
If [ÚltimaAlteração] - [DataMatrícula] > 335 And
[ÚltimaAlteração] - [DataMatrícula] <= 365 Then
ValorVenal = ValorNovo * 0.808
End If
If [ÚltimaAlteração] - [DataMatrícula] > 365 And
[ÚltimaAlteração] - [DataMatrícula] <= 395 Then
ValorVenal = ValorNovo * 0.8
End If
If [ÚltimaAlteração] - [DataMatrícula] > 395 And
[ÚltimaAlteração] - [DataMatrícula] <= 426 Then
ValorVenal = ValorNovo * 0.792
End If
If [ÚltimaAlteração] - [DataMatrícula] > 426 And
[ÚltimaAlteração] - [DataMatrícula] <= 456 Then
ValorVenal = ValorNovo * 0.784
End If
If [ÚltimaAlteração] - [DataMatrícula] > 456 And
[ÚltimaAlteração] - [DataMatrícula] <= 487 Then
ValorVenal = ValorNovo * 0.776
End If
If [ÚltimaAlteração] - [DataMatrícula] > 487 And
[ÚltimaAlteração] - [DataMatrícula] <= 517 Then
ValorVenal = ValorNovo * 0.768
End If
If [ÚltimaAlteração] - [DataMatrícula] > 517 And
[ÚltimaAlteração] - [DataMatrícula] <= 547 Then
ValorVenal = ValorNovo * 0.76
End If
If [ÚltimaAlteração] - [DataMatrícula] > 547 And
[ÚltimaAlteração] - [DataMatrícula] <= 578 Then
ValorVenal = ValorNovo * 0.752
End If
If [ÚltimaAlteração] - [DataMatrícula] > 578 And
[ÚltimaAlteração] - [DataMatrícula] <= 608 Then
ValorVenal = ValorNovo * 0.744
End If
If [ÚltimaAlteração] - [DataMatrícula] > 608 And
[ÚltimaAlteração] - [DataMatrícula] <= 639 Then
ValorVenal = ValorNovo * 0.736
End If
If [ÚltimaAlteração] - [DataMatrícula] > 639 And
[ÚltimaAlteração] - [DataMatrícula] <= 669 Then
ValorVenal = ValorNovo * 0.728
End If
If [ÚltimaAlteração] - [DataMatrícula] > 669 And
[ÚltimaAlteração] -

' and more... until 6935
End If
End Sub

....................

Translation:

[ÚltimaAlteração] ---> Last Update
[DataMatrícula] ---> Motor-Car Date Matriculation
ValorVenal ---> Venal Value
ValorNovo ---> Value in new

Best regards,

Marcal Muralha