Rebol Programming/to-itime

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
    ]
]