编程论坛 → VFP论坛

如何判断最近的日期？

wangjiayu45 发布于 2021-01-10 08:50， 1659 次点击

表中日期型字段 AAA，若干数据　如何找和ＤＡＴＥ()最近的一个日期？　并锁定此行

6 回复

sdta2021-01-10 09:02

程序代码：

select max(aaa) maxdate from test into cursor temp
select test
locate for aaa = temp.maxdate
if found()
go recno()
browse
endif

[此贴子已经被作者于2021-1-10 11:34编辑过]

sdta2021-01-10 09:08

create cursor tt (aaa d)
insert into tt values (date(2020,12,01))
insert into tt values (date(2020,12,30))
insert into tt values (date(2021,01,05))
insert into tt values (date(2021,01,05))
select *, recno() jlh from tt where aaa in (select max(aaa) from tt)

wangjiayu452021-01-10 11:11

sdta老师：

Select ＢＢ.dbf
此处要在ＢＢ表中找到日期距目前最近的一天（日期型字段 AAA）。
Locate For Alltrim(身份证信息.进货日期)==距目前最近的一天日期
If Found()
..
endif

请教红色的部分怎么表达？谢谢

sdta2021-01-10 11:24

以下是引用wangjiayu45在2021-1-10 11:11:13的发言：

sdta老师：

Select ＢＢ.dbf
此处要在ＢＢ表中找到日期距目前最近的一天（日期型字段 AAA）。
Locate For Alltrim(身份证信息.进货日期)==距目前最近的一天日期
If Found()
..
endif

请教红色的部分怎么表达？谢谢

2楼代码看了吗

schtg2021-01-10 15:03

楼上sdta版主正解，谢谢！

wangjiayu452021-01-10 15:32

刚刚弄错了，好了。谢谢老师