从netlogo中的日期和时间提取日期

我想用系统日期来命名我的输出文件，我创建了一个变量来命名，但我发现它“不干净”。如何创建一个reporter过程来创建一个仅为当前系统日期（例如2016年2月18日）的变量，而不单独删除项目。目前我正在使用

globals [
  time
  filename
]

to setup
  ca
  set time (remove-item 6(remove-item 7(remove-item 8 (remove "-"(remove " "(remove "." 
            (remove ":" date-and-time)))))))
  set filename (word "test-" time ".csv"
  if file-exists? filename
     [file-close
      file-delete filename
     ]
     file-open filename

end

---

通过使用

子字符串

原语，您完全可以减少代码

set date (remove "-" (substring date-and-time 16 27))
set time (remove "." remove ":" remove " " (substring date-and-time 0 15))

---

但是，我不知道是否有一种更优雅的方式可以在NetLogo中访问系统日期和时间，而无需重建字符串。

还有Colin Sheppard的时间延长，