MS Access 2003/2007 VBA - 如何从记录集中获取日期字段并将字符串dd-MMM-yyyy格式?
我有一些VB使用DAO来获取一些数据,一个字段是日期字段(如在交易日期)。它不是日期/时间,只是简单的日期,如dd/mm/yyyy。MS Access 2003/2007 VBA - 如何从记录集中获取日期字段并将字符串dd-MMM-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"
作为我想要的输出字符串。
感谢 贾斯汀
可能:
oTextRange.Text = Format(rs![Date], "dd-MMM-yyyy")
我在方括号内的字段名称,因为日期是一个保留字。但我认为这种情况应该没有什么不同。尽管如此,请尽量避免为字段,表格和其他对象名称使用保留字。
使用Format
功能。
在调试窗口Msgbox Format (Now(), "dd-MMM'YYYY")
中尝试此操作。
http://office.microsoft.com/en-ca/access-help/format-function-HA001228839.aspx
好吧,这是我第一次回答我自己的问题,所以如果我不应该这样做......道歉。
我想我会证明我所做的柜面任何人都想知道
Set oShape = oSlide.Shapes("S1_Date")
Set oTextRange = oShape.TextFrame.TextRange
oTextRange.Text = Format(rs!Date, "dd-MMM-yyyy")
,就是这样。我很容易弄清楚自己。
编辑:哎呀....对不起没有其他答案,当我发布这个!
AFAIK,回答你自己的问题是完全合法的。如果您发布的问题显然有意立即回复以提高您的积分总数,那么人们可能会抱怨。显然情况并非如此。 – HansUp 2010-06-24 17:57:26
确切....感谢汉斯! – Justin 2010-06-24 17:37:06