Delphi 用到Access 的视图中有FormatDateTime 函数时出错_delphi filter 中不能 formatdatetime-CSDN博客

本文链接：https://blog.csdn.net/Open2ye/article/details/643296

本文介绍了一种在Delphi应用程序中处理从Access数据库获取的长时间类型字段的方法，通过转换将其显示为短时间格式。文章详细展示了如何利用CDate等函数实现这一目标，并提供了一个具体的SQL查询实例。

摘要由CSDN通过智能技术生成

缘起:

在Access 有一字段是长时间类型的,客户要求做一个日报表汇总,即要把长时间类型改为短时间类型

用Access里的FormatDateTime("LongDate",2) 就可以实现了,但是在Delphi里引用此视图时出错.

提示为:"找不到FormatDateTime函数!!"?? 郁闷ing

解决办法

装 FormatDateTime 函数改为

CDate(CStr(Year(M.CDate))+"-"+CStr(Month(M.CDate))+"-"+CStr(Day(M.CDate)))

问题解决,可是看看这个难看的视图吧.

SELECT CDate(CStr(Year(M.CDate))+"-"+CStr(Month(M.CDate))+"-"+CStr(Day(M.CDate))) AS ShortDate, Sum(S.XiaoJi) AS Sum_XiaoJ, Sum(S.FenCheng) AS Sum_FenCheng, Avg(S.ZheKou) AS Avg_ZheKou, (Select Sum(M1.ShiShou) From RecMain AS M1
Where CDATE(CStr(Year(M1.CDate))+"-"+CStr(Month(M1.CDate))+"-"+CStr(Day(M1.CDate)))=
CDATE(CStr(Year(M.CDate))+"-"+CStr(Month(M.CDate))+"-"+CStr(Day(M.CDate))) and M1.FanSi="付现") AS XianJing, (Select Sum(M1.ShiShou) From RecMain AS M1
Where
CDATE(CStr(Year(M1.CDate))+"-"+CStr(Month(M1.CDate))+"-"+CStr(Day(M1.CDate)))=
CDATE(CStr(Year(M.CDate))+"-"+CStr(Month(M.CDate))+"-"+CStr(Day(M.CDate)))
and
M1.FanSi="刷卡") AS ShuaKa
FROM RecMain AS M INNER JOIN RecSub AS S ON M.id = S.Mid
GROUP BY CDate(CStr(Year(M.CDate))+"-"+CStr(Month(M.CDate))+"-"+CStr(Day(M.CDate)))
ORDER BY CDate(CStr(Year(M.CDate))+"-"+CStr(Month(M.CDate))+"-"+CStr(Day(M.CDate)));

不知道有没有更好的办法