Figure 3: Converting an RPG timestamp into an Excel timestamp

P hssf_ts2xls     B                   EXPORT

D hssf_ts2xls     PI                  like(jdouble)

D   peTS                          Z   value

D wwDate          s                   like(jdouble)

D wwTime          s                   like(jdouble)

 /free

     wwTime = hssf_time2xls(%time(peTS));

     wwDate = hssf_date2xls(%date(peTS));

     return wwDate + wwTime;

 /end-free

P                 E