Session.LCID = 1033 ’imposto codice USA per accedere al database Access
data = rs("data") ’richiamo il record dal database
giorno = FormatDateTime(data,1) ’formatto la data in formato esteso con nome giorno
giorno = left(giorno, 3) ’ricavo le prime 3 lettere del nome giorno settimana
giornoN = Day(data) ’ricavo il numero del giorno del mese
mese = MonthName(Month(data)) ’ricavo nome del mese
mese = left(mese, 3) ’ricavo le prime 3 lettere del nome del mese
anno = Year(data) ’ricavo anno
ora = formatDateTime(data,4) ’ricavo ora e minuti
dataOk = giorno&", "&giornoN&" "&mese&" "&anno&" "&ora&" +0200" ’creo la data corretta
Session.LCID = 1040 ’ripristino la sessione con impostazione italiana