MS Access 2003/2007 VBA - 如何从记录集中获取日期字段并将字符串dd-MMM-yyyy格式？

Question

我有一些VB使用DAO来获取一些数据，一个字段是日期字段（如在交易日期）。它不是日期/时间，只是简单的日期，如dd/mm/yyyy。

等访问表单我知道如何做到这一点，但现在我正在一些Excel/PPT自动化工作。我用这个简单的例子DAO sql string，openrecordset来获取数据。

因此，让我们说有问题的数据只是rs！日期。

我将它移动到PowerPoint中，像这样：

Set oShape = oSlide.Shapes("S1_Date") 
Set oTextRange = oShape.textFrame.TextRange 

    oTextRange.Text = rs!Date 

现在我离开了各种各样的东西，但是这是转移这个日期，我已经有了记录，就到了PPT的部分PRES就好，只有在这种格式

dd/mm/yyyy 

，我真的只是想知道如何简单地得到这个

"dd-MMM-yyyy" 

作为我想要的输出字符串。

感谢 贾斯汀

Answer 1

可能：

oTextRange.Text = Format(rs![Date], "dd-MMM-yyyy") 

我在方括号内的字段名称，因为日期是一个保​​留字。但我认为这种情况应该没有什么不同。尽管如此，请尽量避免为字段，表格和其他对象名称使用保留字。

Answer 2

使用Format功能。

在调试窗口Msgbox Format (Now(), "dd-MMM'YYYY")中尝试此操作。

http://office.microsoft.com/en-ca/access-help/format-function-HA001228839.aspx

Answer 3

好吧，这是我第一次回答我自己的问题，所以如果我不应该这样做......道歉。

我想我会证明我所做的柜面任何人都想知道

Set oShape = oSlide.Shapes("S1_Date") 
Set oTextRange = oShape.TextFrame.TextRange 

    oTextRange.Text = Format(rs!Date, "dd-MMM-yyyy") 

，就是这样。我很容易弄清楚自己。

编辑：哎呀....对不起没有其他答案，当我发布这个！