Gambas-it

Gambas3 => Programmazione => Topic aperto da: tornu - 03 Novembre 2012, 18:58:36

Titolo: [RISOLTO] Formattazione data
Inserito da: tornu - 03 Novembre 2012, 18:58:36
Buona sera a tutti,
sapete se c'è la possibilità di formattare una data espressa in questo modo:
Codice: gambas [Seleziona]

 Format(Now, "dddd dd mmmm")

che viene visualizzata così sabato 03 novembre
in questo modo,  Sabato 03 Novembre con le maiuscole iniziali del giorno e del mese
Grazie
Titolo: Re: Formattazione data
Inserito da: milio - 03 Novembre 2012, 19:59:33
Io penso che non ci sia un formato che ti permetta di fare quel tipo di formattazione, pero' ti puoi fare una funzione che lo faccia...

...tipo questa  ;)

compatibile con tutte le verioni di gambas
Codice: gambas [Seleziona]
Public Function UFirst(Text As String, Optional Separators As String) As String
Dim sTxt As String
Dim hTxt As String[]
Dim Nx As Integer

  If Not Separators Then Separators = " "
  hTxt = Split(Text, Separators)

  For Nx = 0 To hTxt.Max
    sTxt &= UCase(Left(hTxt[Nx], 1)) & Right(hTxt[Nx], -1)
    If Nx <> hTxt.Max Then sTxt &= Separators
  Next

  Return sTxt

End



solo da gambas 3.3 in poi
Codice: gambas [Seleziona]
Public Function UFirst(Text As String, Optional Separators As String) As String
Dim sTxt As String
Dim hTxt As String[]
Dim Nx As Integer

  If Not Separators Then Separators = " "
  hTxt = Split(Text, Separators)

  For Nx = 0 To hTxt.Max
    sTxt &= String.UCaseFirst(hTxt[Nx])
    If Nx <> hTxt.Max Then sTxt &= Separators
  Next

  Return sTxt

End
Titolo: Re: Formattazione data
Inserito da: tornu - 04 Novembre 2012, 19:32:49
 :ok:  :ok:  Grazie molte milio