[RISOLTO] Formattazione data

[tornu]

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

[milio]

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

[tornu]

     Grazie molte milio