funzioni e classi

[Simobrescia]

ciao a tutti.
vi dico prima cosa devo fare poi come pensavo di farlo e alla fine ci chiedo aiuto perchè non ci sto riuscendo...
ho dei documenti che possono esere non validi per diversi motivi
data scadenza, giorni esauriti,ecc...
ma io vorrei vedere

documento.validita=false
documento.validitadescription=scaduto

oppure

documento.validita=false
documento.validitadescription=entrate esaurite

da peones ho fatto una classe

Class Validita
   public Stato
   public Descrizione
End Class

poi ho fatto una funzione

function ControlloValidita(recordset)
   dim miaValidita
   Set miaValidita = new Validita
   miaValidita.Stato = True
   miaValidita.Descrizione = "Non Dichiarata"
 ControlloValidita=miaValidita
end function

ma non gli piace

ControlloValidita=miaValidita

ho fatto un bel casino eh? aiuti?

[santino83]

non fare una function ma fai una sub se devi solo istanziare un oggetto


.....

vabbeh non sapevo che dire.... ... cmq io avrei usato una sub

[longline]

function ControlloValidita(recordset)
   dim miaValidita
   Set miaValidita = new Validita
   miaValidita.Stato = True
   miaValidita.Descrizione = "Non Dichiarata"
 ControlloValidita=miaValidita.Stato
end function