“日期”给出编译器错误“无法找到项目或库”（VB6）

Question

我有一些VB6代码需要移植到VB.NET或C＃或F＃。

首先，我尝试编译它，但它没有成功。当我按下F5时，会打开一个对话框，告诉我“无法找到项目或库”，同时在以下条件中突出显示“日期”一词：

Dim HourAux As Date
...
If (HourAux > CDate (Date & " " & Question(2).Text) Then
...
End if

所以，我想知道的是：

1. 我是否获得了真正无法编译且需要修复的代码？
2. 或者我错过了一些非常明显的东西，比如对图书馆或其他东西的引用？
3. 或者我是否正在尝试使用适用于VB6的VisualStudio（6.0）编译VB5代码？

提前感谢您的任何意见或帮助。

Answer 1

事实证明，我只是错过了我的项目所需的引用，而VisualStudio（或VB编译器）非常糟糕，以至于它给出了一个非常误导性的错误。

我错过了参考“Microsoft Excel 8.0 Object Library”，为了得到它，显然我必须安装Microsoft Office。您可以通过菜单Project - ＆gt;找到项目的参考。引用...在VS主菜单中。

Answer 2

我有同样的问题。

我必须将“ date”替换为“ datetime.date” 我还必须将“ right”，“ left”，“ mid”，“ len”，“ instr”，“ revstr”替换为：

' Program data
Dim tb_ProgramData As Shape
Set tb_ProgramData = pptCurrentSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, Left:=68.399, Top:=51.12, Width:=187.2, Height:=18.72)
tb_ProgramData.TextFrame.TextRange.Text = rs.Fields(27) + " Program: " + rs.Fields(29)
tb_ProgramData.TextFrame.TextRange.Font.Size = 9
tb_ProgramData.TextFrame.TextRange.Font.Bold = msoTrue

每个VBA命令我都必须添加该类作为先例，以便它起作用。