字符串转化:(急,在线等待30分)

battlet 2003-03-04 10:53:22
str_date='yy-mm-dd' (like '02-12-07')
要求转化成 'yyyy-mm-dd' (like '2002-12-07')
(如果其它的内容(如文字)要求不变)
thanks
...全文
50 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
northwolves 2003-03-04
  • 打赏
  • 举报
回复
str_date=iif(isdate(str_date),format(cdate(str_date),"yyyy-mm-dd"),str_date)
Sean918 2003-03-04
  • 打赏
  • 举报
回复
单纯的字符串的话,这样:

str_date = "20" + str_date

如果要和系统日期结合:

Private Sub Form_Load()
Dim str_date As String

str_date = "02-12-07"

str_date = Format(Now, "YYYY") + Mid(str_date, InStr(1, str_date, "-"))
MsgBox str_date
End Sub
chanet 2003-03-04
  • 打赏
  • 举报
回复
dd = "02-02-02"

' 以系统设置的长日期格式返回当前系统日期。
MyStr = Format(dd, "Short Date")
dragon525 2003-03-04
  • 打赏
  • 举报
回复
NewStr_date=Format(str_date,"yyyy-mm-dd")

7,759

社区成员

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

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