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
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
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