单元格里面“10/26/2010”原本就不是有效的日期格式 ,只是纯文本格式,但是我想把它变成“Oct-26-2010”,而且最后“Oct-26-2010”也是文本格式,该怎么弄啊,急 !!!在线等啊!!
------解决方案--------------------------------------------------------
Dim MyDate
MyDate = DateValue("February 12, 1969")
msbbox MyDate
------解决方案--------------------------------------------------------
- VB code
Sub GetFormat() Dim Str$ Str = "10/26/2010" MsgBox Format(CDate(Str), "mmm-d-yyyy")End Sub
------解决方案--------------------------------------------------------
复制到记事本再粘贴回来
------解决方案--------------------------------------------------------
你好,
该问题我在工作中也遇到过,是通过Excel表格读取数据库字段时,发现字段的格式并不是标准的日期格式,而是纯文本格式,在做日期计算时出现了错误。
如果只是一个单元格格式不对可以采用楼上的方法,但是如果是成百上千的单元格日期格式都不是标准格式呢?呵呵~
我的解决办法是采用VBA编写一个函数,该函数实现文本格式到日期格式的转换。
函数实现如下:
1、将10/26/2010转变成10-26-2010,这个很好实现呀,采用字符串查找和替换函数就可以搞定;
2、将月份替换成对应的英文简写,这个也不难哈;
3、调整输出格式
希望我的回答能给你带来切实的帮助,多谢~