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

JeanLaw 2003-09-05 10:17:17
请问如何以空格为界拆分一个字符串“Kim So Yeon”?

如何判断输入是否为“yyyy-mm-dd”格式的日期?
...全文
91 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
JeanLaw 2003-09-05
  • 打赏
  • 举报
回复
“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
yijiansong 2003-09-05
  • 打赏
  • 举报
回复
DIM STR(2) AS STRING
DIM YSTR AS STRING
YSTR=“Kim So Yeon”
STR=Split(YSTR,“ ”)


wumy_ld 2003-09-05
  • 打赏
  • 举报
回复
msgbox arr(0) & "," & arr(1) & "," arr(2)
应为
msgbox arr(0) & "," & arr(1) & "," & arr(2)
wumy_ld 2003-09-05
  • 打赏
  • 举报
回复
dim arr
dim str as string
str="Kim So Yeon"
arr=split(str," ")'以空格拆分
msgbox arr(0) & "," & arr(1) & "," arr(2)
射天狼 2003-09-05
  • 打赏
  • 举报
回复
Dim S() as String,ss as String

ss="Kim So Yeon"

s=split(ss, " ")

format("03-01-02", "yyyy/mm/dd") = "2003-01-02"
射天狼 2003-09-05
  • 打赏
  • 举报
回复
注意你TEXT控件中的日期分隔符是"-"还是"/",根据实际情况更改Format(Text1.Text, "yyyy-mm-dd") 函数中的格式~~
一样即可~~
射天狼 2003-09-05
  • 打赏
  • 举报
回复
If Format(Text1.Text, "yyyy-mm-dd") <> Trim(Text1.Text) Then
MsgBox "不相同"
End If
northwolves 2003-09-05
  • 打赏
  • 举报
回复
if Cstr(format(cdate(text1.text), "yyyy/mm/dd"))<>Trim(text1.text) then
msgbox "fffff"
end if

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧