在VBA中，要调出一个日期控件（即日期选择器），你可以使用`Application.InputBox`方法。以下是一个简单的示例，它将在Excel中弹出一个日期选择器，用户可以从中选择一个日期，然后该日期会被返回并赋值给一个变量。
```vba
Sub ShowDatePicker()
Dim selectedDate As Date
selectedDate = Application.InputBox("请选择一个日期:", "日期选择器", Type:=8)
If Not IsEmpty(selectedDate) Then
MsgBox "您选择的日期是: " & selectedDate
Else
MsgBox "未选择日期。"
End If
End Sub
```
在这个例子中：
`Application.InputBox`方法用于显示一个对话框，用户可以在其中输入信息。
第一个参数 `"请选择一个日期:"` 是显示在输入框中的提示信息。
第二个参数 `"日期选择器"` 是输入框的标题。
第三个参数 `Type:=8` 指定了输入框的类型，其中8是用于日期和时间的类型。
当用户点击“确定”按钮选择一个日期后，`selectedDate`变量将包含用户选择的日期。如果用户点击“取消”按钮，`selectedDate`将保持为`Empty`。
要运行此代码，请按以下步骤操作：
1. 打开Excel。
2. 按下 `Alt + F11` 打开VBA编辑器。
3. 在“插入”菜单中选择“模块”，在打开的模块窗口中粘贴上述代码。
4. 关闭VBA编辑器，然后按下 `Alt + F8`，选择`ShowDatePicker`宏并运行它。
这样，就会弹出一个日期选择器，用户可以从中选择一个日期。
