Additions:
====Soluzione #2====
Versione //italiana//, con qualche miglioramento, realizzata passo-passo: **Giovedì 12 gennaio 2012 10:02:58**
%%(vb)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%%
Versione //italiana//, con qualche miglioramento, realizzata passo-passo: **Giovedì 12 gennaio 2012 10:02:58**
%%(vb)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%%
