function gt_day, item0, header=header, string=string, spaces=spaces, $
        leadzero=leadzero, lower=lower, longmonth=longmonth, $
        fits=fits, y2k=y2k
;
;
header = ' Date   ' ;9 characters
mon_arr = ['??', 'JAN', 'FEB', 'MAR', 'APR', 'MAY', 'JUN', 'JUL', 'AUG', 'SEP', 'OCT', 'NOV', 'DEC']
if (keyword_set(lower)) then mon_arr = ['??', 'Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec']
if (keyword_set(longmonth)) then mon_arr = ['??', 'January', 'February', 'March', 'April', 'May', 'June', 'July', $
                'August', 'September', 'October', 'November', 'December']

;
if keyword_set(y2k) then yearfmt = "i4.4)" else yearfmt = "i2.2)"
fmt = "(i2, '-', a, '-', " + yearfmt
if (keyword_set(leadzero)) then fmt = "(i2.2, '-', a, '-', " + yearfmt
if (keyword_set(fits)) then     fmt = "(i2.2, '/', i2.2, '/', i2.2)"
;
if (n_elements(item0) eq 0) then begin
    message, 'Input variable ITEM not defined', /info
    tbeep, 5
    return, 0
end else begin
    item = item0
end
;
siz = size(item)
typ = siz( siz(0)+1 )
if (typ eq 7) then item = anytim2ints(item)
;
siz = size(item)
typ = siz( siz(0)+1 )
if (typ eq 8) then begin
    tags = tag_names(item)
    if (tags(0) eq 'GEN') then out = item.gen.day $
            else out = item.day
    qstruct = 1
end else begin
    out = item                                          ;save in case the /string option was not used
    qstruct = 0
end
;
if (keyword_set(string) or keyword_set(spaces)) then begin
    if (not qstruct) then tarr = item else $            ;they passed in the 7-element time array
        int2ex, intarr(n_elements(out))+1, [out], tarr        ;do not want to mess with "time" so convert to "external"
        ;have to change out to an array because of trouble with int2ex
    ;
    siz = size(tarr)
    if ((not qstruct) and ((siz(1) eq 1) or (siz(0) eq 0))) then begin
    int2ex, intarr(n_elements(out))+1, [out], tarr
    siz = size(tarr)
    end
    n = 1
    if (siz(0) eq 2) then n = siz(2)
    out = strarr(n)
    ;for i=0,n-1 do out(i)  = string(tarr(4,i), mon_arr(tarr(5,i)), tarr(6,i), format=fmt)
    year = tarr(6,*)
    if (not keyword_set(y2k)) or keyword_set(fits) then year = year mod 100
    if (keyword_set(fits)) then begin   ;DD/MM/YY
    for i=0L,n-1 do out(i)  = string(tarr(4,i),          tarr(5,i), year(i), format=fmt)    ;MDM 27-May-93
    end else begin
    for i=0L,n-1 do out(i)  = string(tarr(4,i), mon_arr(tarr(5,i)), year(i), format=fmt)    ;MDM 27-May-93
    end
    ;
    if (keyword_set(spaces)) then begin
        sp = string(replicate(32b, spaces))
        out = sp + out
        header = sp + header
    end

    if (n eq 1) then out=out(0)     ;change to a scalar
end
;
return, out
end