关于字符串拆分和日期格式的问题

Question

请问如何以空格为界拆分一个字符串“Kim So Yeon”？如何判断输入是否为“yyyy-mm-dd”格式的日期？

Answer 1

Dim S() as String,ss as Stringss="Kim So Yeon"s=split(ss, " ")format("03-01-02", "yyyy/mm/dd") = "2003-01-02"

Answer 2

dim arr
dim str as string
str="Kim So Yeon"
arr=split(str," ")'以空格拆分
msgbox arr(0) & "," & arr(1) & "," arr(2)

Answer 3

msgbox arr(0) & "," & arr(1) & "," arr(2)
应为
msgbox arr(0) & "," & arr(1) & "," & arr(2)

Answer 4

DIM STR（2） AS STRING
DIM YSTR AS STRING
YSTR=“Kim So Yeon”
STR=Split(YSTR，“ ”)

Answer 5

“format("03-01-02", "yyyy/mm/dd") = "2003-01-02"”
那怎么判断呀？我这么写的，可是不对。if Cstr(format(text1.text, "yyyy/mm/dd"))<>Trim(text1.text) then
        msgbox "fffff"
end if

Answer 6

if Cstr(format(cdate(text1.text), "yyyy/mm/dd"))<>Trim(text1.text) then
        msgbox "fffff"
end if

Answer 7

If Format(Text1.Text, "yyyy-mm-dd") <> Trim(Text1.Text) Then
        MsgBox "不相同"
    End If

Answer 8

注意你TEXT控件中的日期分隔符是"-"还是"/",根据实际情况更改Format(Text1.Text, "yyyy-mm-dd") 函数中的格式~~
一样即可~~