suzanne.soy/compatibility
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

.

Browse Source 
original commit: 6dec3f437f8f120bd27c439f1f21a6c5a1030d86
This commit is contained in:
Matthew Flatt 2002-08-20 21:36:58 +00:00
parent f3c316ab57
commit 2dfaff1957
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/mzlib/date.ss
View File

@ -97,11 +97,13 @@
[(3) "rd"]
[(0 4 5 6 7 8 9) "th"])))
(hour (date-hour date))
(am-pm (if (> hour 12) "pm" "am"))
(am-pm (if (>= hour 12) "pm" "am"))
(hour24 (add-zero hour))
(hour12 (if (> hour 12)
(number->string (- hour 12))
(number->string hour)))
(hour12 (number->string
(cond
[(zero? hour) 12]
[(> hour 12) (- hour 12)]
[else hour])))
(minute (add-zero (date-minute date)))
(second (add-zero (date-second date))))
(let-values