搜索
人大经济论坛 › 附件下载

附件下载

所在主题：
文件名:  schedule.ado.rar
资料下载链接地址: https://bbs.pinggu.org/a-2005848.html
本附件包括：
  • schedule.ado
附件大小:
896 Bytes   举报本内容

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

  1. *Written for Stata 9.0 by Kerry L. Papps (klp27@cornell.edu)
  2. *13 October 2005

  4. *This ado-file allows the user to specify the start time for a Stata do-file up to 24 hours in advance
  5. *The syntax is either:
  6. *schedule start_time do_file[, run INTerval(interval_time) reset]
  7. *or
  8. *schedule start_time[, INTerval(interval_time)]
  9. *The first syntax can be used interactively; the second syntax can be used at the start of a do-file
  10. *The run option specifies that Stata should run rather than do the do-file
  11. *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
  12. *The reset option tells Stata to clear the spreadsheet and reset the memory limit to its initial value
  13. *start_time should be entered in the form 18:53 etc.


  16. program define schedule
  17. version 9.0
  18. syntax [anything] [, run INTerval(integer 30000) reset]

  20. tokenize `anything'
  21. local starttime "`1'"
  22. local dofile "`2'"

  24. if substr("`starttime'",3,1)~=":" {
  25. di as error "start time should be entered in the form 18:53 etc."
  26. }

  28. qui memory
  29. local initmem=r(M_data)

  31. else {
  32. local currenttime=real(substr(c(current_time),1,2))+real(substr(c(current_time),4,2))/60
  33. local starttime2=real(substr("`starttime'",1,2))+real(substr("`starttime'",4,2))/60
  34. local currentdate=c(current_date)
  35. local currentdate=d(`currentdate')
  36. local startdate=`currentdate'
  37. if `starttime2'<`currenttime' {
  38. local startdate=`startdate'+1
  39. }

  41. while `currentdate'<`startdate' {
  42. sleep `interval'
  43. local currentdate=c(current_date)
  44. local currentdate=d(`currentdate')
  45. }

  47. local currenttime=real(substr(c(current_time),1,2))+real(substr(c(current_time),4,2))/60
  48. while `currenttime'<`starttime2' {
  49. sleep `interval'
  50. local currenttime=real(substr(c(current_time),1,2))+real(substr(c(current_time),4,2))/60
  51. }
  52. }

  54. if "`dofile'"~="" {
  55. if "`run'"~="" {
  56. run "`dofile'"
  57. }
  58. else {
  59. do "`dofile'"
  60. }
  61. }

  63. if "`reset'"~="" {
  64. clear
  65. set mem `initmem'b
  66. }
  67. end
复制代码

注：本帖内容参考自http://people.bath.ac.uk/klp33/


    熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载，请在上面选择下载通道单击右健下载即可。
2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。
3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品，拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知，将积极的采取必要措施；同时，本站也将在技术手段和能力范围内，履行版权保护的注意义务。
(如有侵权，欢迎举报)
二维码

扫码加我 拉你入群

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

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

京ICP备16021002号-2 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问：王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2026-2-7 21:06