Figure 2: Converting an RPG time field into a fraction for Excel

P hssf_time2xls   B                   EXPORT

D hssf_time2xls   PI                  like(jdouble)

D   peTime                        T   value



D wwFract         s                   like(jdouble)

D wwSecs          s             10I 0

D SECSPERDAY      c                   86400



 /free

    wwSecs  = %diff(peTime: t'00.00.00': *SECONDS);

    wwFract = wwSecs / SECSPERDAY;

    return wwFract;

 /end-free

P                 E