FUNCTION zcrm_day_in_week. *"---------------------------------------------------------------------- *"*"Local Interface: *" IMPORTING *" VALUE(DATUM) TYPE D OPTIONAL *" EXPORTING *" VALUE(WOTNR) TYPE INT4 *"---------------------------------------------------------------------- DATA: diw_first TYPE d VALUE '19790101'. wotnr = ( ( datum - diw_first ) MOD 7 ) + 1. ENDFUNCTION.
原创文章，作者：ItWorker，如若转载，请注明出处：https://blog.ytso.com/tech/pnotes/18611.html