Дата для строки в VB.Net MS Access 2013

Question

У меня есть поле в таблице, состоящее из даты и строки, например 04Jan_lole. Я хочу, чтобы создать это поле в Visual Basic,

Дата + "_" + theName

дает мне ошибку рассогласования, поэтому я стараюсь, чтобы преобразовать часть даты в строку:

StrField = theDate.ToString ("ddMMM")

дает мне invali d ошибка классификатора.

Что делать, чтобы сгенерировать этот формат: 04Jan_lole? замечание это! Если я хочу определить theDate как DateTime, он дает мне ошибку. Тип автоматизации не поддерживается Visual Basic.

Answer 1

Непонятно из вашего вопроса, почему вы получаете то, что вы получаете, что недействительной ошибки классификатора. Возможно, потому, что вы пытаетесь использовать синтаксис VB.NET в VBA? Однако, если вы на самом деле с помощью VB.NET, следующий код должен работать для вас:

Public Function FormatDateAndName(theDate As Date, theName As String) As String 
    Return theDate.ToString("ddMMMM") & theName 
End Function 

Тогда вы могли бы назвать это так:

Dim myDate As New Date(2004, 1, 1) 
Dim myName As String = "_lole" 
Dim dateAndName As String = FormatDateAndName(myDate, myName) 
Console.WriteLine(dateAndName) ' Outputs "04Jan_lole" 

В VBA (вместо VB.NET), вы должны быть в состоянии использовать его как это:

Public Function FormatDateAndName(theDate As Date, theName As String) As String 
    FormatDateAndName = Format(theDate, "ddMMMM") & theName 
End Function 

И тогда вы можете назвать это так:

Dim result As String 
result = FormatDateAndName(#1/1/2004#, "_lole") 
MsgBox(result)