以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  日期和时间转换  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=74595)
--  作者：daoke
--  发布时间：2015/1/17 15:59:05
--  日期和时间转换
r=Date
s=Time
这个得到的是2015-01-17.15:54:16这种格式。要把它转换成20141202.133246格式
我用  r = Format(Date, "yyyymmdd")     s = Format(time, "hhmmss") 这种转换提示类型不匹配
--  作者：daoke
--  发布时间：2015/1/17 17:38:22
--  
 Set tf = fso.CreateTextFile("c:\\ibt_order\\IF1502.txt", True)我想在IF1502后面加上日期和时间如何加呀
--  作者：daoke
--  发布时间：2015/1/17 17:40:53
--  
就是加个日期时间的变量

--  作者：FexTel
--  发布时间：2015/1/19 13:30:09
--  
NamedFormat 参数可以有以下值：

常数 值 描述
vbGeneralDate 0 显示日期和/或时间。如果有日期部分，则将该部分显示为短日期格式。如果有时间部分，则将该部分显示为长时间格式。如果都存在，则显示所有部分。
vbLongDate 1 使用计算机区域设置中指定的长日期格式显示日期。
vbShortDate 2 使用计算机区域设置中指定的短日期格式显示日期。
vbLongTime 3 使用计算机区域设置中指定的时间格式显示时间。
vbShortTime 4 使用 24 小时格式 (hh:mm) 显示时间。

后面已经制定了时间格式,按照计算机的设置来的

 

例如FormatDateTime(Date,2)
--  作者：daoke
--  发布时间：2015/2/22 22:32:06
--  
DataSize-1这个如果不减1，那就是取最后的一根K线的数据
--  作者：FexTel
--  发布时间：2015/2/24 12:31:44
--  
-1表示取最后一个周期