[VB6] Data viene modificata (invertita)

[vecchioste]

ho un programma in visual basic nel quale attraverso un form inseririsco una data 03/04/2005 '3 aprile 2005' il programma prende il valore e lo scrive in un file di excel in una cella
se apro l'excel la data è stata trasformata in 4 marzo 2005.

dove sta il problema?

il vb è in inglese e l'excel è in italiano

come mai gira la data

[Johnny_Depp]

per il VB c'è il subforum specifico... sposto là

(p.s. come da regolamento, nel titolo devi specificare anche la versione vb6 o vb.net?)

[alka]

Abbiamo un sottoforum apposito dedicato alle domande su Visual Basic.

Dovresti anche dirmi la versione a cui ti riferisci...VB6? VB.NET?

Appena mi informi, modifico il titolo e sposto la discussione.

Se non ti ricordi le norme di quest'area, puoi sempre fare riferimento al Regolamento.

Ciao!

[vecchioste]

VB6

[Giulio C.]

Ciao.

Ti posto ciò che ho trovato in MSDN:


Data

In Visual Basic è necessario evitare di digitare le date in forma di stringhe all'interno del codice. L'immissione all'interno del codice delle date nel formato #mese/giorno/anno# ne garantisce una corretta interpretazione in qualsiasi impostazione internazionale del sistema. Poiché con Visual Basic è possibile utilizzare solo Inglese/Stati Uniti come impostazione internazionale per la programmazione, la data sarà la stessa, indipendentemente dall'ambiente in cui viene eseguito il codice.

Se, ad esempio, viene immessa la data 8/2/97 in una finestra di dialogo di input

CDate ("8/2/97")

a seconda delle impostazioni internazionali, verranno restituiti i seguenti output:

Sistema operativo Output
Francese/Francia 08/02/97 (= 8 febbraio 1997)
Inglese/Stati Uniti 8/2/97 (= 2 agosto 1997)


Se invece la data 8/2/97 viene immessa nel codice nel modo seguente

CDate (#8/2/97#)

a seconda delle impostazioni internazionali, verranno restituiti i seguenti output:

Sistema operativo Output
Francese/Francia 02/08/97 (= 2 agosto 1997)
Inglese/Stati Uniti 8/2/97 (= 2 agosto 1997)


Se un utente francese immette la data 8/2/97, l'applicazione la interpreterà come 8 febbraio 1997 in quanto in Francia il formato della data è giorno/mese/anno. Se la stessa stringa viene immessa da un utente americano, l'applicazione la interpreterà come 2 agosto 1997 in quanto negli Stati Uniti il formato della data è mese/giorno/anno.

Fammi sapere se ti è stato utile.

[vecchioste]

quindi come è possibile risolvere questo problema?

[Giulio C.]

Ciao.

Prova intanto a verificare il codice che ti ho scritto ora di corsa:

Private Sub Command1_Click()
   If Not IsDate(Text1.Text) Then
      MsgBox "Errore!"
      Exit Sub
   Else
      Dim a As Date
      a = Format(Text1.Text, "dd/mm/yyyy")
      MsgBox a
   End If
End Sub

Ho fatto diverse prove e mi ritorna un valore corretto. Se l'utente digita per esempio "2005/31/12" viene indicato un errore. Il valore formattato lo passi poi al tuo fogli Excel.

Comunque un altro suggerimento che posso darti è utilizzare il controllo "Masked Edit Box" che ti permette di impostare una maschera personalizzata della data da digitare.


Fammi sapere.

[vecchioste]

grazie mille