怎样转换这个日期格式

zdj365

E1的值 为：2019-08-04 14:39:08
现在要用VBA实现E1的值为:2019-08-04
即把后面的时间去掉。

请教，用VBA代码怎么实现？

liulang0808

format，vba里使用这个
表格公式使用text，

或者设置单元格格式-日期

opel-wong

1. Sub 日期()
   
2.     Dim a As String
   
3.     a = [E1].Value  ' "2019-08-04 14:39:08"
   
4.     MsgBox Format(Split(a, " ")(0), "yyyy-mm-dd")
   
5. End Sub

复制代码

zdj365

opel-wong 发表于 2019-9-6 17:31

请教您：怎样把格式转换后的日期，再赋给E1？

opel-wong

zdj365 发表于 2019-9-6 17:36
请教您：怎样把格式转换后的日期，再赋给E1？

1. Sub 日期()
   
2.     Dim a As String
   
3.     a = [E1].Value  ' "2019-08-04 14:39:08"
   
4.     [E1].Value = Format(Split(a, " ")(0), "yyyy-mm-dd")
   
5. End Sub

复制代码