Formato data [RISOLTO]

[pirandello]

Salve, mentre tiravo giù un form uno dei controlli (textbox) volevo che definisse una data nel seguente formato "dd/mm/yyyy" ma sono incappato nell'errore che se entro ed esco ogni volta dal controllo mi inverte il mese ed il giorno, cioè se io scrivo 02/09/1964 come rientro ed esco ottengo 09/02/1964
Questo il codice:

Public Sub txt_data_nascita_LostFocus()
    Dim dtesto As Date
    dtesto = txt_data_nascita.Text
    If IsDate(dtesto) Then  
        txt_data_nascita.text = Format(dtesto, "dd/mm/yyyy")
    Else
        txt_data_nascita.text = ""
    Endif
Catch
  Message.Info(Error.Text & " - " & Error.where)
  txt_data_nascita.text = ""
End

Avete delle soluzioni?
PS: il controllo valuebox non mi piace

[Picavbg]

Qui puoi trovare il corretto fornato della data riconosciuto da Gambas.
Ciao

[pirandello]

Grazie per il link, ma io come lo risolvo l'enigma?
Mi spiego se io entro nel controllo la prima volta il giorno mi sui trasforma in mese e la seconda volta lo stesso valore mi diventa giorno: nessuno ha qualche idea?

[leo72]

Temo che sia per il fatto che internamente Gambas tratti le date con il formato americano, che è appunto MM/GG/AAAA e non con quello italiano che è GG/MM/AAAA.

Purtroppo con le date ci sono questi problemi.
L'unica soluzione che al momento mi può venire in mente è quella di provare con:

Codice: gambas [Seleziona]

Dim Temp AS Date
Dim Temp2 AS String
  Temp = CDate(txt_data_nascita.text)
  Temp2 = Day(Temp) & "/" & Month(Temp) & "/" & Year(Temp)
  txt_data_nascita.text = Temp2

[pirandello]

Temo che sia per il fatto che internamente Gambas tratti le date con il formato americano, che è appunto MM/GG/AAAA e non con quello italiano che è GG/MM/AAAA.

Purtroppo con le date ci sono questi problemi.
L'unica soluzione che al momento mi può venire in mente è quella di provare con:

Codice: gambas [Seleziona]

Dim Temp AS Date
Dim Temp2 AS String
  Temp = CDate(txt_data_nascita.text)
  Temp2 = Day(Temp) & "/" & Month(Temp) & "/" & Year(Temp)
  txt_data_nascita.text = Temp2

Anch'io avevo avuto la stessa idea ma pensavo che ci fosse una soluzione più semplice da usare, vuol dire che per adesso mi adeguerò.
Comunque un grazie x la dritta.
PS: per G3 non si prevedono a breve aggiornamenti?

[Picavbg]

Come certamente saprai, esistono diversi criteri per arrivare allo stesso risultato. Io utilizzo, una volta certo che l'input sia stato correttamente come data,  qualcosa di questo tipo:

Codice: gambas [Seleziona]

$StriMia=TextBox.Text   '    (GGmmAAAA)
$StriMia = Mid($_StriMia, 5, 2) & "/" & Right($_StriMia, 2) & "/" & Left($_StriMia, 4)
d_Data = CDate($_StriMia) 

Ciao.

[Ceskho]

PS: per G3 non si prevedono a breve aggiornamenti?

Esistono sezioni per discutere di ciò...qui si chiede aiuto tecnico circa i propri problemi......

[pirandello]

PS: per G3 non si prevedono a breve aggiornamenti?

Esistono sezioni per discutere di ciò...qui si chiede aiuto tecnico circa i propri problemi......

Hai ragione, chiedo venia..

[pirandello]

Come certamente saprai, esistono diversi criteri per arrivare allo stesso risultato. Io utilizzo, una volta certo che l'input sia stato correttamente come data,  qualcosa di questo tipo:

Codice: gambas [Seleziona]

$StriMia=TextBox.Text   '    (GGmmAAAA)
$StriMia = Mid($_StriMia, 5, 2) & "/" & Right($_StriMia, 2) & "/" & Left($_StriMia, 4)
d_Data = CDate($_StriMia) 

Ciao.

E' una soluzione simile a quella proposta da leo72, comunque entrambi sono valide.
Grazie