Trasformare data formato inglese in formato italiano

Buorgiorno,

devo installare un programma su un computer che ha installato Windows 10 in lingua inglese
con tutte le impostazioni, ovviamente, in inglese che non posso modificare.

Il problema che mi si presenta e del quale non riesco a venirne a capo è il seguente :

la data è impostata nel formato "m/d/yyyy" mentre a me serve nel formato "dd/mm/yyyy"

Ho pensato di trasformare la data nel formato inglese in una stringa e quindi
con un "pastrocchio" formattarla nella data in formato italiano

' Text1.text è la data proposta in formato inglese ( "m/d/yyyy" )

'Text2.Text = Split(Trim(Text1.Text), "/")(1) & Space(1) & Split(Text1.Text, "/")(0) & Space(1) _ 
'                    & Split(Text1.Text, "/")(2)
 'Text2.Text = Format(Replace(Text2.Text, " ", "/"), "dd/mm/yyyy")

nessun problema se il programma gira sul computer Win 10 ITA

sul computer Win 10 ENG invece sorgono vari problemi

ad esempio
se digito 2/1/2020 che trasformata dà il 1 febbraio 2020
mi restituisce 02/01/2020 cioè il 2 gennaio 2020

ancora
se digito 12/1/2020 la trasforma in 12/01/2020
e non 01/12/2020

Come posso fare ?

@piero ... la prossima volta chiedi al moderatore che venga spostata la discussione dalla sezione sbagliata e inserisci comunque i tag code per il codice.

Non è possibile che, dopo tanto tempo che frequenti il forum, si debbano sempre ricordare le stesse cose ...

In effetti abituato con il vecchio forum non mi sono accorto di aver postato male. Chiedo scusa.
Per quanto riguarda i tag code sono assolutamente sicuro di aver messo il codice tra i due tag.
Non riesco a capire quella sequenza di numeri che io non ho messo.
Anche perchè prima di pubblicare ho letto e riletto il post un paio di volte. torno a ripetere mi sembra molto strano...

Quello scritto in Pausa Caffè era corretto, in questo hai aggiunto quei numeri e non hai messo i tag CODE.

Modifica il post ed elimina i numeri

Per quanto riguarda il problema, dopo che inserisci la data nella textbox, cosa ci fai nel resto del programma?

Buorgiorno,

devo installare un programma su un computer che ha installato Windows 10 in lingua inglese
con tutte le impostazioni, ovviamente, in inglese che non posso modificare.

Il problema che mi si presenta e del quale non riesco a venirne a capo è il seguente :

la data è impostata nel formato "m/d/yyyy" mentre a me serve nel formato "dd/mm/yyyy"

Ho pensato di trasformare la data nel formato inglese in una stringa e quindi
con un "pastrocchio" formattarla nella data in formato italiano

' Text1.text è la data proposta in formato inglese ( "m/d/yyyy" )
' text2.Text la data con il formato che vorrei ottenere

Text2.Text = Split(Trim(Text1.Text), "/")(1) & Space(1) & Split(Text1.Text, "/")(0) & Space(1) _ 
                    & Split(Text1.Text, "/")(2)
 Text2.Text = Format(Replace(Text2.Text, " ", "/"), "dd/mm/yyyy")

nessun problema se il programma gira sul computer Win 10 ITA

sul computer Win 10 ENG invece sorgono vari problemi

ad esempio
se digito 2/1/2020 che trasformata dà il 1 febbraio 2020
mi restituisce 02/01/2020 cioè il 2 gennaio 2020

ancora
se digito 12/1/2020 la trasforma in 12/01/2020
e non 01/12/2020

Come posso fare ?

Stupidamente ho fatto un copia incolla da pausa caffe'

Per quanto riguarda il problema, dopo che inserisci la data nella textbox, cosa ci fai nel resto del programma?

la data la devo inserire in un campo della tabella del database e vorrei che fosse formattata in "dd/mm/yyyy"
nel senso di avere 2 cifre per il giorno, 2 per il mese e 4 per l'anno.

Ho trovato in rete il codice di una macro di excel che ho adattato al caso

mese = Mid(Text1.Text, 1, InStr(1, Text1.Text, "/") - 1)
giorno = Mid(Text1.Text, InStr(1, Text1.Text, "/") + 1, (InStrRev(Text1.Text, "/")) - (InStr(1, Text1.Text, "/") + 1))
anno = Right(Text1.Text, 4)
Text2.Text = Format(DateSerial(anno, mese, giorno), "dd/mm/yyyy")

non avevo pensato alle funzioni InStr e InStrRev che ad onor del vero ho usato pochissimo.

Sembra funzionare.

Per l'inserimento nel DB, non dovrebbe essere un tuo problema il formato. Devi usare i parametri nella query di INSERT.

Segui l'esempio di Gibra.

Per valorizzare la data, partendo dalla TextBox, o usi direttamente il valore (nel caso in cui l'utente scriva la data in formato anglosassone le impostazioni siano EN) oppure inverti il giorno ed il mese, e concateni. Ma ti basta lo Split...

'Caso 1:
Dim data As Date
data = DateValue(Text1.Text)

'Caso 2:
Dim data As Date
Dim dataSplit(3) As String

dataSplit = Split(Text1.Text, "/")
data = DateValue(dataSplit(1) & "/" dataSplit(0) & "/" dataSplit(2))

Ovviamente tutti i controlli sull'input devi implementarli tu.

@Sgrubak
Non hai seguito bene la discussione, il problema l'ho affrontato con la funzione Split, però non sempre il formato data era quello voluto. I parametri così come suggeriti da Gibra li uso in tutti i miei programmi.
Ho risposto dal cellulare, spero di aver scritto bene.
Comunque grazie.

Piero mi sa che stai facendo confusione. Il suggerimento di sgrubak era corretto. Se devi inserire una data nel db usa i parametri.