[Stata]schedule——自定义Stata运行时间（24小时内）

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

schedule——自定义Stata运行时间（24小时内）

*Written for Stata 9.0 by Kerry L. Papps (klp27@cornell.edu) *13 October 2005 *This ado-file allows the user to specify the start time for a Stata do-file up to 24 hours in advance *The syntax is either: *schedule start_time do_file[, run INTerval(interval_time) reset] *or *schedule start_time[, INTerval(interval_time)] *The first syntax can be used interactively; the second syntax can be used at the start of a do-file *The run option specifies that Stata should run rather than do the do-file *The interval option specifies the length of time in milliseconds that should elapse before Stata re-checks the current time; the default is 5 mins *The reset option tells Stata to clear the spreadsheet and reset the memory limit to its initial value *start_time should be entered in the form 18:53 etc. program define schedule   version 9.0   syntax [anything] [, run INTerval(integer 30000) reset]   tokenize `anything'   local starttime "`1'"   local dofile "`2'"   if substr("`starttime'",3,1)~=":" {     di as error "start time should be entered in the form 18:53 etc."   }   qui memory   local initmem=r(M_data)   else {     local currenttime=real(substr(c(current_time),1,2))+real(substr(c(current_time),4,2))/60     local starttime2=real(substr("`starttime'",1,2))+real(substr("`starttime'",4,2))/60     local currentdate=c(current_date)     local currentdate=d(`currentdate')     local startdate=`currentdate'     if `starttime2'<`currenttime' {       local startdate=`startdate'+1     }     while `currentdate'<`startdate' {       sleep `interval'       local currentdate=c(current_date)       local currentdate=d(`currentdate')     }     local currenttime=real(substr(c(current_time),1,2))+real(substr(c(current_time),4,2))/60     while `currenttime'<`starttime2' {       sleep `interval'       local currenttime=real(substr(c(current_time),1,2))+real(substr(c(current_time),4,2))/60     }   }   if "`dofile'"~="" {     if "`run'"~="" {       run "`dofile'"     }     else {       do "`dofile'"     }   }   if "`reset'"~="" {     clear     set mem `initmem'b   } end 复制代码 注：本帖内容参考自http://people.bath.ac.uk/klp33/        schedule.ado.rar (896 Bytes) 本附件包括： schedule.ado 2016-4-3 16:10:21 上传

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：SCHEDULE Stata Sched tata 运行时间 schedule