テーブルの式を構築して、テキストの日付をソートしようとしました。一部の要素が欠落しています。

Question

こんにちは私は初心者ですし、何週間も解決しようとしています。私はテーブルからインポートされたExcel形式の日付をテキスト形式で（日付は1700年に戻ってしまうため）ほとんどが "mmmyyyy"という形式になっているので、 "1"を日付に追加し、日付形式に変換して並べ替え正しい日付の順序で。私が持っている問題は、テーブルのいくつかの日付が単に「yyyy」で、いくつかは空であるということです。私はこれらの最後の2つを同じ式の中で1 Jan yyyyと1 Jan 1に変換する式を見つけることはできません。これは可能ですか、これを2つのクエリで行う必要がありますか？この質問が非常に基本的なものであれば申し訳ありません - 私はどこでも答えを見つけることができません。 TIA

Answer 1

あなたは行うことができます何かのように：

Public Function ConvertDate(Byval Expression As Variant) As Date 

    Dim Result As Date 

    If IsNull(Expression) Then 
     Result = DateSerial(1000, 1, 1) 
    ElseIf Len(Expression) = 4 Then 
     Result = DateSerial(Expression, 1, 1) 
    Else 
     Result = DateValue(Right(Expression, 4) & "/" & Left(Expression, 3) & "/1") 
    End If 

    ConvertDate = Result 

End Function