19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
System.FirstDayOfWeek
Public Sub Main() Dim g, m, a As Short ' Inseriamo una data come mero esempio: g = 19 ' giorno m = 9 ' mese a = 2014 ' anno If m < 3 Then g = g + a Dec a Else g = g + (a - 2) Endif ' Mostra il numero del giorno della settimana (da 0 = domenica a 6 = sabato): Print "Il numero del giorno è: "; ((23 * m) \ 9 + g + 4 + a \ 4 - a \ 100 + a \ 400) % 7 End
....rottami elettronici dell'aeronave di Roswell.
....chissà ? Magari anche Keith e Craver erano due alieni !
Qualcuno ha citato "Corrado Malanga" ?!?