我这样是不是太复杂了？有简便的吗？

Question

我想提取目前的日期，来分开显示的 date_yy放年，date_mm放月，date_dd放日
 又不想出现“-”这个标志Dim lsh_date, n, date_yy, date_mm, date_dd
lsh_date = Date
n = Len(lsh_date)
date_yy = Left(lsh_date, InStr(lsh_date, "-") - 1)
date_mm=Right(Left(lsh_date,InStrRev(lsh_date,"-")-1),InStrRev(lsh_date,"-")-InStr(lsh_date, "-") - 1)
date_dd = Right(lsh_date, n - InStrRev(lsh_date, "-"))我这样提取是不是太复杂化了？有简便的方法吗？

Answer 1

date_year=format(date,"yyyy")
date_month=format(date,"mm")
date_day=format(date,"dd")

Answer 2

Private Sub Command1_Click()
  Debug.Print DatePart("yyyy", Now)
  Debug.Print DatePart("m", Now)
  Debug.Print DatePart("d", Now)
End Sub

Answer 3

CStr(year(date))
CStr(month(date))
CStr(day(date))

Answer 4

year() month() day()得到数字
直接用&连接到字符串，就不用CStr强制转换，会自动转换的

Answer 5

year()  month()  day()得到数字