#lang racket ; Convert Unix timestamp to Date (define unix-timestamp 1524818363) (define date (seconds->date unix-timestamp)) ; Format and display the date (printf "Converted Date: ~a-~a-~a ~a:~a:~a\n" (date-year date) (date-month date) (date-day date) (date-hour date) (date-minute date) (date-second date))
1524818363
seconds->date
year
month
day
hour
minute
second
date-year
date-month
2018-04-27 08:39:23
printf
date
(seconds->date 1514764800)
date->seconds
(date->seconds (date 2018 7 15 12 30 45 0 0 0))
current-seconds
(current-seconds)
(date 2018 7 15 12 30 45 0 0 0)
(date-year (seconds->date 1514764800))
(date-month (seconds->date 1514764800))
date-day
(date-day (seconds->date 1514764800))
date-hour
(date-hour (seconds->date 1514764800))
date-minute
(date-minute (seconds->date 1514764800))
date-second
(date-second (seconds->date 1514764800))