< Rebol Programming
USAGE:
TO-ITIME time
DESCRIPTION:
Returns a standard internet time string (two digits for each segment)
TO-ITIME is a function value.
ARGUMENTS
- time -- (Type: time number block none)
SOURCE CODE
to-itime: func [
{Returns a standard internet time string (two digits for each segment)}
time [time! number! block! none!]
/local pad
][
time: make time! time
pad: func [n] [head insert/dup n: form n #"0" 2 - length? n]
rejoin [
pad time/hour ":" pad time/minute ":"
pad round/down time/second
]
]
This article is issued from Wikibooks. The text is licensed under Creative Commons - Attribution - Sharealike. Additional terms may apply for the media files.