added VBA.DateTime aliases (Date & Time), fixed #2350

Author: retailcoder

Rubberduck.Parsing/Symbols/AliasDeclarations.cs

@@ -14,6 +14,7 @@ public class AliasDeclarations : ICustomDeclarationLoader
         private Declaration _fileSystemModule;
         private Declaration _interactionModule;
         private Declaration _stringsModule;
+        private Declaration _dateTimeModule;
 
         public AliasDeclarations(RubberduckParserState state)
         {
@@ -48,7 +49,9 @@ public IReadOnlyList<Declaration> Load()
             Grammar.Tokens.RightB,
             Grammar.Tokens.RTrim,
             Grammar.Tokens.String,
-            Grammar.Tokens.UCase
+            Grammar.Tokens.UCase,
+            Grammar.Tokens.Date,
+            Grammar.Tokens.Time,
         };
 
         private IReadOnlyList<Declaration> AddAliasDeclarations()
@@ -64,7 +67,7 @@ private IReadOnlyList<Declaration> AddAliasDeclarations()
             var functionAliases = FunctionAliasesWithoutParameters();
             AddParametersToAliasesFromReferencedFunctions(functionAliases, possiblyAliasedFunctions);
 
-            return functionAliases;
+            return functionAliases.Concat<Declaration>(PropertyGetDeclarations()).ToList();
         }
 
         private void UpdateAliasFunctionModulesFromReferencedProjects(RubberduckParserState state)
@@ -83,6 +86,7 @@ private void UpdateAliasFunctionModulesFromReferencedProjects(RubberduckParserSt
             _fileSystemModule = finder.FindStdModule("FileSystem", vba, true);
             _interactionModule = finder.FindStdModule("Interaction", vba, true);
             _stringsModule = finder.FindStdModule("Strings", vba, true);
+            _dateTimeModule = finder.FindStdModule("DateTime", vba, true);
         }
 
 
@@ -102,6 +106,50 @@ private List<Declaration> ReferencedBuiltInFunctionsThatMightHaveAnAlias(Rubberd
             return functions.ToList();
         }
 
+        private List<PropertyGetDeclaration> PropertyGetDeclarations()
+        {
+            return new List<PropertyGetDeclaration>
+            {
+                DatePropertyGet(),
+                TimePropertyGet(),
+            };
+        }
+
+        private PropertyGetDeclaration DatePropertyGet()
+        {
+            return new PropertyGetDeclaration(
+                new QualifiedMemberName(_dateTimeModule.QualifiedName.QualifiedModuleName, "Date"),
+                _dateTimeModule,
+                _dateTimeModule,
+                "Variant",
+                null,
+                string.Empty,
+                Accessibility.Global,
+                null,
+                new Selection(),
+                false,
+                true,
+                new List<IAnnotation>(),
+                new Attributes());
+        }
+
+        private PropertyGetDeclaration TimePropertyGet()
+        {
+            return new PropertyGetDeclaration(
+                new QualifiedMemberName(_dateTimeModule.QualifiedName.QualifiedModuleName, "Time"),
+                _dateTimeModule,
+                _dateTimeModule,
+                "Variant",
+                null,
+                string.Empty,
+                Accessibility.Global,
+                null,
+                new Selection(),
+                false,
+                true,
+                new List<IAnnotation>(),
+                new Attributes());
+        }
 
         private List<FunctionDeclaration> FunctionAliasesWithoutParameters()
         {
@@ -128,7 +176,7 @@ private List<FunctionDeclaration> FunctionAliasesWithoutParameters()
                 RightBFunction(),
                 RTrimFunction(),
                 StringFunction(),
-                UCaseFunction()
+                UCaseFunction(),
             };
         }