API取现行时间

云外归鸟

原作者:esir

不用NB的命令取现行时间。
另外：学习一下用WM_TIMER来设置定时器。

---

核心代码：
函数 小于十补零(传值 我的时间 为 文本) 为 文本
如果 取长度(我的时间)<2 则
  返回 "0"+我的时间
否则
  返回 我的时间
如果结束
结束 函数
'默认返回2009-04-13 22:36的格式
函数 API取现行时间(传值 日期分界符 为 文本="-",传值 时间分界符 为 文本=":") 为 文本
变量 TimeNow 为 SYSTEMTIME
GetLocalTime(@TimeNow)
变量 为 文本 日期,时间,年,月,日,时,分,秒
年=到文本(TimeNow.wYear)
月=到文本(TimeNow.wMonth)
日=到文本(TimeNow.wDay)
时=到文本(TimeNow.wHour)
分=到文本(TimeNow.wMinute)
秒=到文本(TimeNow.wSecond)
月=小于十补零(月)
日=小于十补零(日)
时=小于十补零(时)
分=小于十补零(分)
秒=小于十补零(秒)
日期=年+日期分界符+月+日期分界符+日
时间=时+时间分界符+分+时间分界符+秒
返回 (日期+取空白文本(1)+时间)
结束 函数