16 lines
420 B
Text
16 lines
420 B
Text
|
use IO;
|
||
|
|
use Time;
|
||
|
|
|
||
|
|
bundle Default {
|
||
|
|
class CurrentDate {
|
||
|
|
function : Main(args : String[]) ~ Nil {
|
||
|
|
t := Date->New();
|
||
|
|
Console->Print(t->GetYear())->Print("-")->Print(t->GetMonth())->Print("-")
|
||
|
|
->PrintLine(t->GetDay());
|
||
|
|
Console->Print(t->GetDayName())->Print(", ")->Print(t->GetMonthName())
|
||
|
|
->Print(" ")->Print(t->GetDay())->Print(", ")
|
||
|
|
->PrintLine(t->GetYear());
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|