This library script is for inclusion in other programs and allows sophisticated date formatting, ala strftime, but not exactly
>> form-date now "%A %e%i %B, %Y at %T" == "Thursday 26th April, 2007 at 00:44:12" >> form-date now "%d-%b-%Y/%H:%M:%S%Z" == "26-Apr-2007/00:49:39-04:00" >> now == 26-Apr-2007/0:52:13-4:00 >> form-date now/precise "%c" == "19-Jul-2007/00:01:45.108242-04:00"
Including this function is simple. Just DO it.
>> do %form-date.r
or to execute this right out of the rebol.org library
>> do http://www.rebol.org/download-a-script.r?script-name=form-date.rYou now have the form-date function
>> help form-date USAGE: FORM-DATE date format /gmt DESCRIPTION: Renders a date to a given format (largely compatible with strftime) FORM-DATE is a function value. ARGUMENTS: date -- (Type: date) format -- (Type: any-string) REFINEMENTS: /gmt -- Align time with GMT
Ordinary characters placed in the format string are inserted into return value without conversion. Conversion specifications are introduced by a % character, and terminated by a conversion specifier character, and are replaced and inserted into return value as follows:
%a | The abbreviated weekday name according to the current locale. |
%A | The full weekday name according to the current locale. |
%b | The abbreviated month name according to the current locale. |
%B | The full month name according to the current locale. |
%c | The preferred date and time representation for the current locale. In this case the locale is REBOLand, with a little %b mixed in. |
%C | The century number (year/100) as a 2-digit integer. |
%d | The day of the month as a decimal number (range 01 to 31). |
%D | Equivalent to %Y/%m/%d. |
%e | Like %d, the day of the month as a decimal number, without a leading zero. |
%G | The ISO 8601 year with century as a decimal number. The 4-digit year corresponding to the ISO week number (see %V). This has the same format and value as %y, except that if the ISO week number belongs to the previous or next year, that year is used instead. |
%g | Like %G, but without century, i.e., with a 2-digit year (00-99). |
%H | The hour as a decimal number using a 24-hour clock (range 00 to 23). |
%i | The english suffix for numeric value, st for 01, th for 04. |
%I | The hour as a decimal number using a 12-hour clock (range 01 to 12). |
%j | The day of the year as a decimal number (range 001 to 366). |
%J | Like %j, but without leading zeroes. |
%m | The month as a decimal number (range 01 to 12). |
%M | The minute as a decimal number (range 00 to 59). |
%p | Either "AM" or "PM" according to the given time value. Noon is treated as "PM" and midnight as "AM". |
%s | The second as a decimal number 00-60 with REBOL nanosecond precision, a period followed by 6 digits. |
%S | The second as a decimal number (range 00 to 60). (The range is up to 60 to allow for occasional leap seconds.) |
%t | A tab character. |
%T | The time in 24-hour notation (%H:%M:%S). |
%u | The day of the week as a decimal, range 1 to 7, Monday being 1. See also %w. |
%U | The week number of the current year as a decimal number, range 00 to 53, starting with the first Sunday as the first day of week 01. See also %V and %W. |
%V | The ISO 8601:1988 week number of the current year as a decimal number, range 01 to 53, where week 1 is the first week that has at least 4 days in the current year, and with Monday as the first day of the week. See also %U and %W. |
%w | The day of the week as a decimal, range 0 to 6, Sunday being 0. See also %u. |
%W | The week number of the current year as a decimal number, range 00 to 53, starting with the first Monday as the first day of week 01. |
%y | The year as a decimal number without a century (range 00 to 99). |
%Y | The year as a decimal number including the century. |
%Z | The time-zone as hour offset from GMT. |
%% | A literal "%" character. |
The interpolate function, along with date-codes is an excellent example of parse. The dialect created is the two character format specifiers that produce the date and time pieces. A strftime dialect.
REBOL can emulate the functionality of other systems, while still remaining REBOL.
REBOL code can look world-class elegant when properly formatted and factored.
The date! parameter has to be a date!. If you use any time related format specifiers, it has to be a date! that includes time information or returned fields may be incorrect.
>> form-date now/date "%T" == "00:00:00" >> form-date now/time "%T" Script Error: form-date expected date argument of type: date Near: form-date now/time "%T" >> form-date now "%T" == "02:29:39"
With the addition of %c, you have clean, always the same length REBOL time-stamps.
>> 01-Jan-0001/00:00:00.000000-00:00 == 1-Jan-0001/0:00 >> form-date 01-Jan-0001/00:00:00.000000-00:00 "%c" == "01-Jan-0001/00:00:00.000000+00:00" >> form-date now/precise "%c" == "19-Jul-2007/00:42:53.586560-04:00" >> form-date now "%c" == "19-Jul-2007/00:43:19.000000-04:00"
Please note that now/precise while reporting 6 digit precision for the sub-seconds, is only as accurate as your computer clock will allow.