Question

按键精灵 time赋值数组出错，求教？

Dim f(2), dd=cstr(time) '反回的是一个带时间的字符串
MessageBox d&" "&VarType(d) ' 可以看到类型为8,字符串型
f = Split(d, ":", - 1 , 1) ' 这一步提示说,类型错误,
MessageBox VarType(f(0)) 'f(0)的值为空且类型为0，初始
请问问题出哪了？时间怎么赋值给数组？
第一行请在两个dd之间打个回车，因上传时变了格式 ，原来应是这样的：
Dim f(2), d
d=cstr(time) '反回的是一个带时间的字符串
MessageBox d&" "&VarType(d) ' 可以看到类型为8,字符串型
f = Split(d, ":", - 1 , 1) ' 这一步提示说,类型错误,
MessageBox VarType(f(0)) 'f(0)的值为空且类型为0，初始
请问问题出哪了？时间怎么赋值给数组？

Answer 1

你上面变量是dd=cstr(time)
但下面使用的却是d，应该把下面的d改为dd。

追问

请在两个dd间打个空格，可能上传代码时打错了，但结果还是一样的，那就是数组的值为空且类型还是初始。请教
Dim f(2), d
d=cstr(time) '反回的是一个带时间的字符串
MessageBox d&" "&VarType(d) ' 可以看到类型为8,字符串型
f = Split(d, ":", - 1 , 1) ' 这一步提示说,类型错误,
MessageBox VarType(f(0)) 'f(0)的值为空且类型为0，初始
请问问题出哪了？时间怎么赋值给数组？