aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Family Day update

Browse source
This commit is contained in:
Ingy döt Net 2020-02-17 23:21:07 -08:00
parent aac6731f2c
commit 9ad63ea473
2442 changed files with 39761 additions and 8255 deletions
Download patch file Download diff file Expand all files Collapse all files

0
Task/Date-format/Common-Lisp/date-format.lisp → Task/Date-format/Common-Lisp/date-format-1.lisp
View file

4
Task/Date-format/Common-Lisp/date-format-2.lisp Normal file
View file

@ -0,0 +1,4 @@
(local-time:format-timestring nil (local-time:now) :format '(:year "-" (:month 2) "-" (:day 2)))
;; => "2019-11-13"
(local-time:format-timestring nil (local-time:now) :format '(:long-weekday ", " :long-month #\space (:day 2) ", " :year))
;; => "Wednesday, November 13, 2019"

19
Task/Date-format/Pike/date-format.pike
View file

@ -1,11 +1,8 @@
> write("%d-%02d-%02d\n", day->year_no(), day->month_no(), day->month_day());
2011-11-05
> write("%s, %s %s, %s\n", day->week_day_name(), day->month_name(), day->month_day_name(), day->year_name());
Saturday, November 5, 2011
> write(day->format_ymd()+"\n");
2011-11-05
> write(day->format_ext_ymd()+"\n");
Saturday, 5 November 2011
object cal = Calendar.ISO.Day();
write( cal->format_ymd() +"\n" );
string special = sprintf("%s, %s %d, %d",
cal->week_day_name(),
cal->month_name(),
cal->month_day(),
cal->year_no());
write( special +"\n" );