FUNCTION db_get_time_component_strings , tc

tag   = TAG_NAMES(tc)
out   = STRARR(N_TAGS(tc))

FOR i = 0, N_TAGS(tc) -1 DO BEGIN

    CASE SIZE(tc.(i) , /TYPE) OF
        1    :  value = STRTRIM(FIX(tc.(i)) , 2)
        2    :  value = STRCOMPRESS(sc.(i)  , /REMOVE_ALL)
        3    :  value = STRCOMPRESS(tc.(i)  , /REMOVE_ALL)
        5    :  value = STRCOMPRESS(tc.(i)  , /REMOVE_ALL)
        7    :  value = STRTRIM(    tc.(i)  , 2)
        8    :  stop
        ELSE :  stop
    ENDCASE


    out[i] = STRING(format='(A4,A-28,A3,A-20)' ,                            $
                                      '' ,tag[i] , ' = ' , value )

ENDFOR


RETURN , out

END