VBA Excel日期yyyy/mmm/dd到yyyy/mm/dd

我正在写小VBA来管理和转换外部表格的某些日期，并且我被卡住了一些奇怪的日期格式，例如：yyyy/mm/dd 我真正需要的是迄今为止从A1转换，并将其粘贴到B2VBA Excel日期yyyy/mmm/dd到yyyy/mm/dd

作为tamplate我将使用列A1和B1： A1 =日转换B1 =粘贴Destinaton的转换DAT

a1
2012. Jan.04
2012.Nov.04
2012.Dct.04
- B1
- 04.01.2012
- 2012年11月4日
- 2012年4月12日

我现在是测试内容：

公式转换（与创建的字典） - 无法使用的情况下，许多日期到
VBA转换日期转换 - 无法看到从A1我的日期为正确的日期，什么也不做
格式此日期在Excel中内置的功能“格式化” - 什么都不做
也起到“文本到列”进行了测试 - 仍然无能为力

它看起来像我只是停留在很简单的东西但现在真的很难前进，所以这就是我要问的原因求助。

感谢您的任何想法。

来源

2017-07-28 thuglifefligh thug

我会用下面的公式B1：

=DATE(LEFT(A1,4),MATCH(MID(A1,6,3),{"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dct"},0),RIGHT(A1,2))

什么看起来很奇怪的英文缩写“DCT”为十二月。所以也许你必须根据你的语言改变数组Literal {"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dct"}。

使用VBA以下Function可用于：

Function convert_YYYY_MMM_DD_Text2Date(sText As String) As Variant 
Dim iYear As Integer 
Dim iMonth As Integer 
Dim sMonth As String 
Dim iDay As Integer 
Dim aMonths As Variant 
Dim bFound As Boolean 

aMonths = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dct") 

On Error GoTo errHandler 
iYear = CInt(Left(sText, 4)) 
sMonth = Mid(sText, 6, 3) 
iDay = CInt(Right(sText, 2)) 

For iMonth = 0 To UBound(aMonths) 
    If aMonths(iMonth) = sMonth Then 
    bFound = True 
    Exit For 
    End If 
Next 

If bFound Then 
    convert_YYYY_MMM_DD_Text2Date = DateSerial(iYear, iMonth + 1, iDay) 
Else 
    GoTo errHandler 
End If 

On Error GoTo 0 

Exit Function 

errHandler: 
convert_YYYY_MMM_DD_Text2Date = "conversion not possible" 

End Function

来源

2017-07-28 06:32:30

完美的作品。有时候配方很惊人你可以用它们做什么。 – Moosli

是的，它正在工作，并感谢。但你有什么看法？什么会更快。 Tha VBA代码或这个公式在我的日期约10 000行？我的procces看起来像： vba donwload从其他工作簿中的数据，然后将其转换为适当的colums，可以uploded到Outlook日历。所有的代码都没有这个日期转换步骤。当然，如果我找不到最好的解决方案，我会使用像我建议的公式。非常感谢您的支持:) –

补充了一个'VBA'函数，它接受一个字符串（“YYYY.MMM.DD”）并返回一个日期或错误字符串。 –

VBA Excel日期yyyy/mmm/dd到yyyy/mm/dd

回答

相关问题