codice:
code:--------------------------------------------------------------------------------
Function ConvertiData(data)
    giorno = Mid(data, InStr(1, data, "/") + 1, InStrRev(data, "/") - InStr(1, data, "/") - 1)
    mese = Left(data, InStr(1, data, "/") - 1)
    anno = Right(data, Len(data) - InStrRev(data, "/"))
    ConvertiData = giorno & "/" & mese & "/" & anno
End Function

....
 
if RECDown("data_prelievo") = "" then
data_prelievo  = "ATTENZIONE INSERIRE RECORD"
else
data_prelievo = ConvertiData(CStr(RECDown("data_prelievo")))
end if