Ottenere la data di realizzazione e il numero di versione di un progetto

[vuott]

https://forum.gambas.one/viewtopic.php?f=4&t=1044

[Gianluigi]

Monday 1st February 2021 and not Monday 1 February 20201?

Codice: [Seleziona]

Public Sub Main()

  Dim hData As Date = Date(2021, 3, 1) ' cambia l'ultimo numero (giorni) per provare
  Dim ss As String[] = Scan(Format(hData, gb.LongDate), "* * *")

  If ss[1] = "1" Then
    Print ss[0] & " Primo " & ss[2]
  Else
    Print Format(hData, gb.LongDate)
  Endif

End

Dimenticavo:
Indovina indovinello: per convenzione le array, o vettori che dir si voglia, le scriverei aQualcosa, in questo caso avrei potuto scrivere aPartiData invece ho scritto ss chi mi sa dire il motivo di questa scelta? 

 

[kicco]

Array di stringhe?

[Gianluigi]

Array di stringhe?

Si ok è un array di stringhe, ma chi per primo ha usato questo modo di nominarle?
Chi per primo ci ha spiegato come si usa Scan?
Quindi cosa ho voluto fare nominando l'array così?

[kicco]

...ma chi per primo ha usato questo modo di nominarle?

i nazisti?

Quindi cosa ho voluto fare nominando l'array così?

...un cenno storico sullo scorso secolo?
 

[Gianluigi]

 

si, si, lasciamo perdere hai vinto 

[vuott]

i nazisti?