2012/01
Easy Challenge #1
Write a program to write out the current date and time in this format (date format my 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.
Soluzione #1
La versione immediata, localizzata in italiano, restituisce: 10.02.58 giovedì 12/01/2012TextWindow.Write(Clock.Time)
TextWindow.Write(" " + Clock.WeekDay)
TextWindow.WriteLine(" " + Clock.Date)
TextWindow.Write(" " + Clock.WeekDay)
TextWindow.WriteLine(" " + Clock.Date)
Soluzione #2
Versione italiana, con qualche miglioramento, realizzata passo-passo: Giovedì 12 gennaio 2012 10:02:58mesi[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
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
