Gambas-it

Gambas dal mondo esterno => Francia => Topic aperto da: vuott - 22 Agosto 2015, 00:13:22

Titolo: Scrivere una data in formato gg/mm/aaaa
Inserito da: vuott - 22 Agosto 2015, 00:13:22

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

Titolo: Re: Scrivere una data in formato gg/mm/aaaa
Inserito da: Gianluigi - 22 Agosto 2015, 11:14:56

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
 :ciao: