Question

我正在编写小型VBA来管理和转换来自外部表的某些日期，而且我遇到了一些奇怪的日期格式，例如：yyyy / mm / dd 我真正需要的是从a1转换日期并将其粘贴到b2

作为模板我将用于A1和B1列： A1 =要转换的日期B1 =转换数据的粘贴Destinaton

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

我现在测试的是：

要转换的公式（使用创建的字典） - 不能使用它以防万一许多日期转换
日期转换的VBA - 无法将A1中的日期视为正确的日期什么都不做
在excel内置函数“格式化”中格式化此日期 - 不执行任何操作
还测试了“text-to-column”功能 - 仍然无所事事

看起来我只是坚持一些非常简单的事情，但现在真的很难继续前进，所以这就是我寻求帮助的原因。

感谢任何想法。

Answer 1

我会在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))

奇怪的是缩写＆＃34; Dct＆＃34;十二月因此，您可能需要根据您的语言更改数组文字{"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

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

1 个答案: