Quote Originariamente inviata da devil946 Visualizza il messaggio
.... ma lui prende sempre la data del 30 dicembre 1899, .....
.......
MeseItalia = Mid(dataitaliaStart, 4, 2)
GiornoItalia = Mid(dataitaliaStart, 1, 2)
AnnoItalia = Right(dataitaliaStart, 4)
dataamerica = MeseItalia & "/" & GiornoItalia & "/" & AnnoItalia
........
Il 30/12/1899 è il giorno zero di Access ......

Non ho seguito il dettaglio del tuo codice,
ma comunque direi che tu passi la data come divisione fra 3 numeri
pertanto il risultato è molto vicino allo zero e
ti restituisce giustamente 30/12/1899 magari con qualche minuto in più
che non vedi per questioni di formattazione

prova cosi:
dataamerica = "#" & MeseItalia & "/" & GiornoItalia & "/" & AnnoItalia & "#"

Facci sapere
.