Scrivere una data in formato gg/mm/aaaa

[vuott]

http://www.gambasforge.org/sujet-4725-ecrire-date-en-format-francais-page-1.html

[Gianluigi]

Come sempre i tuoi codici aprono nuovi orizzonti.
Io più semplicemente(?) l'avrei risolto(?) così:

Codice: gambas [Seleziona]

Public Sub Button1_Click()

  Dim dData1, dData2 As Date
  Dim sValore1 As String
  Dim iNumero2 As Integer
  
  sValore1 = TextBox1.Text
  iNumero2 = CInteger(TextBox2.Text)  
  dData1 = CDate(Val(sValore1))
  dData2 = dData1 + iNumero2
  Label1.Text = Format$(dData2, "dd/mm/yyyy")
  

End

Public Sub TextBox1_LostFocus()

  Dim dData As Date
  
  dData = CDate(Val(TextBox1.text))
  TextBox1.Text = Format$(dData, "dd/mm/yyyy")    

End

P.S. Avevo sbagliato del codice per ben due volte, scusate