REBOL Programming/to-itime

From Wikibooks, open books for an open world
< REBOL Programming
Jump to: navigation, search

USAGE:[edit]

TO-ITIME time 

DESCRIPTION:[edit]

Returns a standard internet time string (two digits for each segment)

TO-ITIME is a function value.

ARGUMENTS[edit]

  • time -- (Type: time number block none)

SOURCE CODE[edit]

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