VBA cDate не работает на Mac excel 2011 (14.7.1)

Question

Я пытаюсь преобразовать дату в длинный, используя скрипт VBA. Ниже приведен фрагмент кода

Sub test() 
    Dim str as string 
    Dim d as variant 
    str="1/1/2016" 
    d=cdate(str) 
end sub 

выше фрагмент кода работает отлично на окнах, но дает мне тип несовпадения ошибки на MAC. Есть ли какой-либо поворот, чтобы преобразовать действительную строку в дату.

Answer 1

Ваш код действительно работал на моей локальной машине OS X с Excel. Однако у меня разные настройки региона. Я бы предложил попробовать использовать международный формат даты («YYYY-mm-dd»).

Sub Main 
    Dim str as String 
    Dim d as Variant 
    str = "2016-01-01" 
    d = CDate(str) 
End Sub 

В качестве альтернативы, вы можете попробовать «Янв/1/2016».

---

PS: Вы можете увидеть ваши настройки даты & в OS X под System Preferences -> Язык & Регион -> Дополнительно -> Даты:

Answer 2

Может попробовать удаление «/ «перед конвертированием? У меня нет Mac для тестирования:

Public Sub test() 
    Dim str As String 
    Dim d As Long 'should be Date, but your question states Long 
    str = "1/1/2016" 
    d = CDate(Replace(str, "/", "")) 
    Debug.Print d 
End Sub 

Кроме того, вы пробовали проверять недостающие ссылки? Date for VBA not working in Excel 2011?

Answer 3

Ваши региональные настройки являются основной причиной.

Можете ли вы попробовать их изменить?

defaults write NSGlobalDomain AppleICUDateFormatStrings -dict 1 dd/MM/yyyy 

Answer 4

Вы можете использовать функцию IsDate(), чтобы проверить, является ли это датой перед преобразованием. В противном случае используйте обходной путь:

Sub test() 
    Dim str as string 
    Dim d as variant 
    str = "1/1/2016" 

    If IsDate(str) then 
     d = CDate(str) 
    Else 
     Dim aDateParts() as String 
     aDateParts() = Split(str, "/") 

     ' DateSerial(Year, Month, Day) 
     d = DateSerial(CInt(aDateParts(2)), CInt(aDateParts(0)), CInt(aDateParts(1))) 
    End If 
end sub 

Answer 5

Много различных ответов, так что я, а может бросить это способ сделать это его в кольцо,

Sub test() 
    Dim str As String 
    Dim d As Variant 
    str = "1/1/2016" 
    d = CDate(Format(str, "dd/MM/yyyy")) 
    Debug.Print d 
End Sub 

Answer 6

я не отправлял это изначально, потому что я чувствовал однако он не затрагивает корень проблемы, однако, если вы хотите обходной путь, вы можете использовать функцию ниже, аналогично тому, как вы использовали бы CDate, позвонив ConDate("12/12/2016").

Это путь, я подошел к этой проблеме:

Sub MainTest() 
    Dim InputString As String, OutputDate As Date 

    InputString = "01/12/2016" 
    OutputDate = ConDate(InputString) 

    Debug.Print OutputDate, TypeName(OutputDate) 
End Sub 

Function ConDate(ByRef InputString As String) As Date 
    Dim Day As Long, Month As Long, year As Long 
    'mmddyyyy format 
    Month = CLng(Left(InputString, InStr(1, InputString, "/", vbTextCompare) - 1)) 
    Day = CLng(Mid(InputString, InStr(1, InputString, "/", vbTextCompare) + 1, InStrRev(InputString, "/", , vbTextCompare) - InStr(1, InputString, "/", vbTextCompare) - 1)) 
    year = CLng(Right(InputString, 4)) 
    ConDate = DateSerial(year, Month, Day) 
End Function 

Не желая plagerise ответ sebifeixler, я держал свой оригинальный левый/СЧ/право отделиться день/месяц/год, но я чувствую, что это много чтобы использовать его функцию разделения для разделения даты на «/». Комбинация этих двух будет хорошим решением.