forse è la stanchezza ma non capisco che c'è che non va in questo codice...

codice:
Giorno=day(Data)
Mese=month(Data)


Valore1=0
Valore2=0
Clausula=0
Totale=0

Randomize 
Valore1= int((325 * Rnd)+1)
Valore1= int((325 * Rnd)+1)
Clausula=int((2 * Rnd)+1)
Totale= (Valore1+Valore2)

If (clausula = 1) then
  Codice=(Totale*Giorno)
end if
If (clausula = 2) then
  Codice=(Totale*Mese)
end if
mi potreste fare un controllino?

Grazie