2012-01: Easy 1
Write a program to write out the current date and time in this format (date format may vary if you are in US): 20:06:34 Saturday 31/12/2011.
Scrivi un programma per visualizzare la data e l’orario attuale nel formato seguente: 20:06:34 Saturday 31/12/2011.
Il formato può variare a seconda della nazione dove vivi…
Soluzione #1
La versione immediata, localizzata in italiano, restituisce: 10.02.58 giovedì 12/01/2012
|
1 2 3 |
TextWindow.Write(Clock.Time) TextWindow.Write(" " + Clock.WeekDay) TextWindow.WriteLine(" " + Clock.Date) |
Soluzione #2
Versione italiana, con qualche miglioramento, realizzata passo-passo: Giovedì 12 gennaio 2012 10:02:58
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 |
MESI[ 1]="gennaio" MESI[ 2]="febbraio" MESI[ 3]="marzo" MESI[ 4]="aprile" MESI[ 5]="maggio" MESI[ 6]="giugno" MESI[ 7]="luglio" MESI[ 8]="agosto" MESI[ 9]="settembre" MESI[10]="ottobre" MESI[11]="novembre" MESI[12]="dicembre" '------------------------------------------------------------ giorno=Clock.WeekDay iniziale=Text.ConvertToUpperCase(Text.GetSubText(giorno,1,1)) giorno=Text.Append(iniziale,Text.GetSubTextToEnd(giorno,2)) '------------------------------------------------------------ TextWindow.Write(giorno) TextWindow.Write(" " + Clock.Day) TextWindow.Write(" " + MESI[Clock.Month]) TextWindow.Write(" " + Clock.Year) '------------------------------------------------------------ x=Clock.Hour Aggiusta() TextWindow.Write(" " + x) '---------------------------- x=Clock.Minute Aggiusta() TextWindow.Write(":" + x) '---------------------------- x=Clock.Second Aggiusta() TextWindow.WriteLine(":" + x) '---------------------------- Sub Aggiusta If x < 10 Then x=Text.Append("0", x) EndIf EndSub |