delphi 判断给定日期的天数，给定日期距离月初的天数，给定日期距离月末的天数

uses

dateutils;

//判断给定日期的天数

label1.caption := inttostr(DaysInAMonth(yearof(StrToDate(Trim(Edit_riqi.Text))),monthof(StrToDate(Trim(Edit_riqi.Text))) ));

//给定日期距离月初的天数

label2.caption := inttostr(dayof(StrToDate(Trim(Edit_riqi.Text)) )-1);

//给定日期距离月末的天数

label3.caption := IntToStr(StrToInt(label1.caption)-StrToInt(label2.caption));

时间： 2024-12-29 09:01:22

delphi 判断给定日期的天数，给定日期距离月初的天数，给定日期距离月末的天数的相关文章

删除指定路径下指定天数之前（以文件的最后修改日期为准）的文件

1 @echo off 2 ::删除指定路径下指定天数之前(以文件的最后修改日期为准)的文件. 3 ::本例需要Win2003/Vista/Win7系统自带的forfiles命令的支持 4 rem 指定待删除文件的存放路径 5 set SrcDir=D:\ajaxtrain\web 6 rem 指定天数 7 set DaysAgo=0 8 rem 要删除的文件通配 9 set searchmast=*.html 10 set filename=D:\ajaxtrain\web\deletefil

（013）每日SQL学习：确定两个日期之间的工作日天数和计算一年周内各日期次数

1.确定两个日期之间的工作日天数 --确定两个日期之间的工作日天数with x0 as (select to_date('2018-01-01','yyyy-mm-dd') as 日期 from dual union all select to_date('2018-01-15','yyyy-mm-dd') as 日期 from dual ), x1 as --日期并列显示 (select min (日期) 开始日期,max(日期) 结束日期 from x0 ), x2 as --日期之间的天数

给定一个字典，通过查找这个字典，替换给定的字符串中的中文为英文

描述:第一对START和END中给定的是字典第二对START和END是给定字符串输入: START hello nihao yes shi like xihuan world shijie gril nvhai END START i'm a nvhai! i xihuan shijie. nihao END 输出: i'm a gril! i like world. hello #define _CRT_SECURE_NO_WARNINGS #include <iostream> #in

delphi 判断是否出现滚动条

delphi 判断是否出现滚动条 if (GetWindowlong(Stringgrid1.Handle, GWL_STYLE) and WS_VSCROLL) <> 0 then ShowMessage('Vertical scrollbar is visible!'); if (GetWindowlong(Stringgrid1.Handle, GWL_STYLE) and WS_HSCROLL) <> 0 then ShowMessage('Horizonta

【转】js获取当前指定的前几天的日期（如当前时间的前七天的日期）

1 <html> 2 <head> 3 <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> 4 <meta http-equiv="Content-Language" content="zh-cn" /> 5 <title>时间</title> 6 </head

获取指定日期的常用前后节点（月初月末周一周末等等）

原文:获取指定日期的常用前后节点(月初月末周一周末等等) 注:周节点方面是根据中国习惯,视周一为起,周日为末. /*--------------------------------- 函数:获取某日期的特定起止节点v0.01 Author:AhDung Update:201305151755 ---------------------------------*/ ALTER FUNCTION dbo.FGetSpecialDate_ahdung(@date DATE, @SpcDate VARC

原生js日期时间插件鼠标点击文本框弹出日期时间表格选择日期时间

原文出处 (这是我从互联网上搜来的,感觉能满足各方面的需求.个人感觉挺不错的,所以后期修改了一下向大家推荐!) 效果图: html代码: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org

修改DailyRollingFileAppender类及其父类源码，解决以日期作为日志文件名时，当天的文件没有日期后缀

题记------学习别人的精髓,并加以总结,消化吸收,这就是提高!!! DailyRollingFileAppender生成的文件是不带时间戳的,必须在某个时间点后,才对原来文件加上时间戳进行重命名,这样就有很大的问题,当天的日志,没有时间戳,而且如果在log4j.properties配置文件路径采用log4j.appender.dailyFile.File=E:/logs/log_或者log4j.appender.dailyFile.File=${webapp.root}/WEB-INF/l

log4j 日志大小限制　分成30一个　不按日期分日志　按大小分成　按生产日期

首先说说生成按日期.不解释,大家都懂的,这种方法的缺点是很吃硬盘空间 log4j.rootLogger=INFO,logfile,stdout log4j.logger.java.sql=DEBUG,sqllog #log4j.additivity.java.sql=false #velocity print out log4j.logger.org.apache.velocity=ERROR,velocityfile log4j.additivity.org.apache.velocity=f