System.FirstDayOfWeekPublic 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 !Ce ne sono infatti molti di più di quello che possiamo immaginare.
Qualcuno ha citato "Corrado Malanga" ?!?