Powerbuilder2009. 9. 8. 10:16
/*****************************************************************************************************************/
ls_load = '<Processing result>' + '~n'
                           ls_load += 'Start Time:' + string( ldt_1 , 'hh:mm:ss' ) + '~n'
                           ls_load += 'End Time:' + string( ldt_2 , 'hh:mm:ss' ) + '~n'
                           ls_load += 'Job Time:' + string( int( secondsafter( ldt_1, ldt_2 ) / 60 ) ) + 'Min' + &
                               string( mod( secondsafter( ldt_1, ldt_2 ) , 60  ) ) + 'Sec' + '~n'

/*****************************************************************************************************************/
DateTime ldt_start_time, ldt_end_time
dw_msg_time.Object.end_time[1] = fdt_get_dbserver_now()
ldt_start_time = dw_msg_time.Object.start_time[1]
ldt_end_time = dw_msg_time.Object.end_time[1]

dw_msg_time.Object.eclipsed_time[1] = &
 RelativeTime(Time("00:00:00"), SecondsAfter(Time(ldt_start_time), Time(ldt_end_time)) + &
  DaysAfter(Date(ldt_start_time), Date(ldt_end_time)) * 24 * 3600  )

dw_msg_processing.Object.prg_msg[1] = is_msg_process
Return 0
/*****************************************************************************************************************/
/*****************************************************************************************************************/
Posted by Julyus