社区
Delphi
帖子详情
如何得到规定一个日期的前一天,后一天日期?
kxw
2006-01-31 10:42:13
请问,我现在从数据库里得到了一个日期,比如是20060101,我如何在DELHPI里如何得到它的前一天日期,后一天日期?然后还要放在数据库里,做些计算。
在下delphi新手,问题较愚,请指教!!!!
谢谢!!
...全文
323
15
打赏
收藏
如何得到规定一个日期的前一天,后一天日期?
请问,我现在从数据库里得到了一个日期,比如是20060101,我如何在DELHPI里如何得到它的前一天日期,后一天日期?然后还要放在数据库里,做些计算。 在下delphi新手,问题较愚,请指教!!!! 谢谢!!
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
15 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
kxw
2006-02-04
打赏
举报
回复
谢谢各位啦,给分给分!参与都有分。
人鱼传说
2006-02-04
打赏
举报
回复
有那么麻烦吗,转成date后加1减1即可呀
xielaixiangjx
2006-02-03
打赏
举报
回复
TdateTime的单位1是1天
gxgyj
2006-02-03
打赏
举报
回复
+
-
summersky204608
2006-02-03
打赏
举报
回复
还没碰见过这个问题,记录一下!
y740504
2006-02-03
打赏
举报
回复
可以直接对日期型字段加1得到后一天,减去1得到前一天,不行吗?
forestry98
2006-02-02
打赏
举报
回复
其实这种比较基础的问题,建议楼主多查查资料,这样往往答案来得更快。
hellolongbin
2006-02-02
打赏
举报
回复
这个问题偶都不知道回答过几多遍了
bambuz
2006-02-02
打赏
举报
回复
var
date1:string;
date2:TDate;
pdate,ndate:string;// 前一天日期,後一天日期
y,m,d:integer;
SELECT 日期 FROM 表 WHERE ...
date1:=Fieldbyname('日期').ASSTRING; //取得表中的日期
y:=strtoint(midstr(date1,1,4)); // 分離出年,月,日
m:=strtoint(midstr(date1,5,2));
d:=strtoint(midstr(date1,7,2));
ShortDateFormat:='yyyymmdd'; // 設定日期格式與表中格式一致
// 前一天日期
pdate := DateToStr(EncodeDate(y,m,d)-1);
//後一天日期
ndate := DateToStr(EncodeDate(y,m,d)+1);
forestry98
2006-02-01
打赏
举报
回复
TDate其实是Double类型的,所以日期加减可以用+-直接进行,
GARNETT2183(極品狼王)的方法就可以了,
关于“NOW”可以直接用TDate类型的变量或者转换函数StrToDate('2006-02-01')直接替换。
rlqiang
2006-02-01
打赏
举报
回复
幸福,得到高人指点了。收藏!
gerrylc
2006-02-01
打赏
举报
回复
var
date : Tdate;
前一天:date := now - 1;
后一天:date := now + 1;
aiirii
2006-01-31
打赏
举报
回复
uses DateUtils ;
procedure TForm1.Button1Click(Sender: TObject);
var d: tdatetime;
begin
d := now;
d := incday(d, 1);
showMessage(dateToStr(d));
end;
如果是要前一天
则改为
d := incday(d, -1);
>>now可以指定吗?
可以,如用
var s: string;
begin
s := '20060101';
d := strToDate(s);
或者,
s := table1.fieldbyname('date').asstring;
...
kxw
2006-01-31
打赏
举报
回复
now可以指定吗?
GARNETT2183
2006-01-31
打赏
举报
回复
Date: TDate;
begin
Date := now;
Date := Date - 1;
end;
win10/win11共享打印机提示错误0x00000057,0x00000709,0x0000011b或者连接失败内存不足等故...
在Windows 10或Windows 11操作系统中,用户经常会遇到共享打印机时出现的一系列错误代码,这些错误代码可能会阻碍打印机共享功能的正常使用。常见的错误代码包括0x00000057、0x00000709和0x0000011b,这些代码通常指出了不同的问题,比如权限不足、服务未运行或配置错误等。除此之外,还有一些故障提示如“连接失败”或“内存不足”,这些都可能影响到打印机共享的稳定性。 要解决这些故障,首先要确保打印机已经正确地连接到网络,并且在需要共享的电脑上进行了设置。确保打印机驱动程序是最新的,并且在共享设置中没有错误配置。对于权限问题,需要检查网络上的用户账户是否具有足够的权限来访问共享打印机。同时,也要确保打印机服务正在运行,特别是“Print Spooler”服务,因为这是打印机共享服务的核心组件。 在某些情况下,问题可能与操作系统的更新有关,如升级到最新版的Windows 10或Windows 11后可能出现的兼容性问题。这时,可能需要查看微软的官方支持文档来获取特定的解决方案或更新。 对于错误代码0x00000057,这通常是由于没有足够的权限来访问网络打印机或其共享资源,解决方法是确保网络打印机的权限设置正确,包括在组策略中设置相应的访问权限。而0x00000709错误可能是由于打印机驱动问题或打印机端口配置错误,可以尝试重新安装或更新打印机驱动来解决。至于0x0000011b错误,这往往是因为打印机队列服务的问题,检查并重启“Print Spooler”服务通常是解决这类问题的常见手段。 至于“连接失败”或“内存不足”这类故障,通常与客户端和打印机之间的网络连接以及打印机本地资源的使用情况有关。检查网络连接,确保打印机所在的网络段没有故障或中断。同时,如果打印机的打印队列长时间得不到处理,可能会导致内存不足的情况,这时可能需要清理打印队列或增加打印机的内存配置。 为了帮助用户更快速地解决这些问题,市面上出现了各种打印机共享错误修复工具。这些工具往往通过预设的修复程序来自动检测和修正打印机共享中常见的问题。它们可以快速检查打印机驱动、网络连接以及共享设置,并且能够提供一键修复功能,大幅减少了用户自行排查和解决问题的难度。 然而,在使用这些修复工具之前,用户应确保这些工具的来源是安全可靠的,避免因使用不当的修复工具而引发其他系统安全或隐私问题。用户可以到官方平台或者信誉良好的软件提供商处下载这些工具。通过细心检查打印机的共享设置,及时更新驱动程序和服务,以及合理使用修复工具,大多数共享打印机的问题都可以
得到
有效的解决。
### 汽车车身密封条系统设计规范总结
内容概要:本文档提供了关于汽车车身密封条设计的全面指南,涵盖密封条的定义、分类、材料选择、结构设计、安装方式、生产工艺、设计流程及验证方法。具体内容包括密封条的分类依据密封功能和装配部位,详细介绍了EPDM、PVC、TPE等材料的性能特点及其生产工艺,强调了密封条设计中的关键参数如密封间隙、压缩量、压缩方向等,并通过典型断面设计和CAE分析确保设计合理性。此外,文档还详细描述了密封条在不同车身部位如发罩、行李箱、车门、玻璃导槽、前后风窗及顶盖的具体设计要求和注意事项。最后,文档列举了密封条设计和制造中的常见问题点,并提供了相应的解决方案。 适用人群:从事汽车车身设计、制造及质量控制的工程师和技术人员。 使用场景及目标:①帮助设计师理解并掌握不同类型密封条的设计要点和工艺要求;②指导工程师进行密封条的设计开发、材料选择及性能验证;③为生产和技术人员提供解决密封条常见问题的参考方案。 其他说明:文档内容详尽,结合大量
基于springboot+vue+mysql的疫苗发布和接种预约系统(源码+论文+开题报告).rar
采用前后端分离架构,包含数据库文件,代码经过完整测试,保证可以运行,内部包含详细的运行说明文档,如遇运行问题可私信博主。 本项目主要面向计算机相关专业中正在筹备大作业、毕业设计的学生,以及渴望通过实战项目提升编码能力的自学者,系统难度设计贴合教学需求,功能模块覆盖全栈开发核心知识点,所有代码与文档均经测试审核,学习者可放心下载参考或直接用于课程实践。
JAVA面试,知识总结
JAVA面试,知识总结
Huawei S6720EI-V200R023SPH220
Huawei S6720EI_V200R023SPH220,里面包含补丁说明书和补丁安装指导书,该补丁支持哪些型号,支持哪些版本可以安装当前补丁,请参考补丁说明书和补丁安装指导书。
Delphi
5,928
社区成员
262,931
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章