Text1.Text = Format(Now, "yyyy-mm-dd" & Chr(32) & Chr(32) & "hh-mm-ss")
Text2.Text = Format(Now, "yyyy-mm-dd" & Chr(32) & Chr(32) & "hh-mm-ss")
Text3.Text = CStr(DateDiff("n", CDate(Trim((Text2.Text))), CDate(Trim((Text2.Text)))))
End Sub
系统提示text3.text那句语法错误，但是我调不出来。哪位大神指点下啊。
3 个解决方案
#1
Text1.Text = Format(Now, "yyyy-mm-dd" & Chr(32) & "hh:mm:ss")
Text2.Text = Format(Now + 1, "yyyy-mm-dd" & Chr(32) & "hh:mm:ss")
Text3.Text = CStr(DateDiff("n", CDate(Trim((Text1.Text))), CDate(Trim((Text2.Text)))))
Text2.Text = Format(Now + 1, "yyyy-mm-dd" & Chr(32) & "hh:mm:ss")
Text3.Text = CStr(DateDiff("n", CDate(Trim((Text1.Text))), CDate(Trim((Text2.Text)))))
#2
应该是你转换出了问题。为毛一定要2个空格呢
Private Sub Form_Load()
Text1.Text =FormatDateTime(Now, vbGeneralDate)
Text2.Text =FormatDateTime(Now, vbGeneralDate)
Text3.Text =CStr(DateDiff("n", CDate(a), CDate(b)))
End Sub
#3
发帖之后，我又想了一个其他的方法解决了这个问题
但依然感谢两位帅哥美女的热心帮助。原谅我哈，不会一一回复：看了美女姐姐写的代码我知道自己错在哪里了；至于大哥问的那个为什么要两个空格的问题，嘿嘿纯碎是我的个人喜好0.0
谢谢你们~
但依然感谢两位帅哥美女的热心帮助。原谅我哈，不会一一回复：看了美女姐姐写的代码我知道自己错在哪里了；至于大哥问的那个为什么要两个空格的问题，嘿嘿纯碎是我的个人喜好0.0
谢谢你们~
#1
Text1.Text = Format(Now, "yyyy-mm-dd" & Chr(32) & "hh:mm:ss")
Text2.Text = Format(Now + 1, "yyyy-mm-dd" & Chr(32) & "hh:mm:ss")
Text3.Text = CStr(DateDiff("n", CDate(Trim((Text1.Text))), CDate(Trim((Text2.Text)))))
Text2.Text = Format(Now + 1, "yyyy-mm-dd" & Chr(32) & "hh:mm:ss")
Text3.Text = CStr(DateDiff("n", CDate(Trim((Text1.Text))), CDate(Trim((Text2.Text)))))
#2
应该是你转换出了问题。为毛一定要2个空格呢
Private Sub Form_Load()
Text1.Text =FormatDateTime(Now, vbGeneralDate)
Text2.Text =FormatDateTime(Now, vbGeneralDate)
Text3.Text =CStr(DateDiff("n", CDate(a), CDate(b)))
End Sub
#3
发帖之后，我又想了一个其他的方法解决了这个问题
但依然感谢两位帅哥美女的热心帮助。原谅我哈，不会一一回复：看了美女姐姐写的代码我知道自己错在哪里了；至于大哥问的那个为什么要两个空格的问题，嘿嘿纯碎是我的个人喜好0.0
谢谢你们~
但依然感谢两位帅哥美女的热心帮助。原谅我哈，不会一一回复：看了美女姐姐写的代码我知道自己错在哪里了；至于大哥问的那个为什么要两个空格的问题，嘿嘿纯碎是我的个人喜好0.0
谢谢你们~