Delphi实现判断日期的合法性函数

最新推荐文章于 2023-04-03 18:03:46 发布
最新推荐文章于 2023-04-03 18:03:46 发布
阅读量2.9k 收藏
点赞数
文章标签： delphi function forms interface windows
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/planetstar/article/details/1433255
版权
该博客介绍了如何在 Delphi 中实现一个名为 IsValidDate 的函数，用于验证输入的年、月、日是否为一个有效的日期。函数考虑了不同月份的天数限制，包括闰年的处理。
摘要由CSDN通过智能技术生成

unit Unit37;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

    function IsValidDate(const AYear, AMonth, ADay: Word): Boolean;

implementation

function IsValidDate(const AYear, AMonth, ADay: Word): Boolean;
begin
if ((AYear<10000)and(AYear>0)and(AMonth>0)and(AMonth<13))then

最低0.47元/天 解锁文章
planetstar
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Delphi 判断时间是否合法 -IsValidDateTime、IsValidDate、IsValidTime、IsValidDateDay.mht
06-07
Delphi 判断时间是否合法 -IsValidDateTime、IsValidDate、IsValidTime、IsValidDateDay.mht
delphi判断E_Mail地址合法性
06-07
本文将详细介绍如何在 Delphi 中实现 E-Mail 地址的合法性判断，并提供相关代码示例。 首先，让我们了解一个合法 E-Mail 地址的基本构成。一个标准的 E-Mail 地址通常由两部分组成，由 "@" 符号隔开：用户名（或...
delphi时间日期函数
weixin_33775582的博客
01-08 409
1 unit DateProcess; 2 interface 3 4 const 5 DayOfWeekStrings: array [1..7] of String = ('SUNDAY', 'MONDAY', 'TUESDAY', 6 'WEDNESDAY', 'THURSDAY', 'FRIDAY', 'SATURDAY'); 7...
Delphi 判断字符串是不是有效的时间
zhangzhifeng886的专栏
12-09 1602
<br />function  TForm_MEA_CHG.isEffectsDate(astrdatetime:string):Boolean;  //判断是不是有效的时间<br />var<br />  jstrYear,jstrMonth,jstrday:string;<br />  IMonth:integer;<br />begin<br />  Result:=true;<br />  jstrYear:=Copy(astrdatetime,1,4);<br />  jstrMonth:=Cop
Delphi中判断一个字符串格式的日期时间是否正确
最新发布
记录日常技术经验
04-03 570
有时候需要把字符串转换为时间，提前判断一下还是有必要的，防止字符串格式错误。
Delphi中检查日期字符串是否为yyyy-mm-dd格式
锋回路转
10-21 548
在做Excel表格数据导入的时候，如果表格中包含日期列，为确保导入的时候不出现错误，需要判断单元格中是否为合法的日期格式，所以写了一个函数用于判断字符串是否为合法的日期格式。
Delphi-日期时间函数详解.doc
02-13
在 Delphi 中，日期时间处理是非常常见的任务，它涉及到各种函数和类型，使得开发者能够方便地操作、格式化和转换日期时间数据。以下是对 Delphi 日期时间函数的详细解释： 1. 时间类型转换： - `...
[Delphi] 常用日期函数
工作是我的生活 我为工作而陶醉
11-28 685
Use       DateUtils☆Day 开头的函数● function DateOf(const AValue: TDateTime): TDateTime;描述：使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个只带有日期的 TDateTime 类型变量。例如：showmessage(DateTimetostr(dateof(now())));得到的是 2003
Delphi 生成日期的函数
08-22
Delphi 日期生成 输入指定两个日期之间的数字即可生成连续日期
delphi日期函数、日期加减
11-29
Delphi里有现成的函数可以实现日期加减，是在DateUtils单元里的
日期比较大小
03-28
指定一个日期与当前系统的日期比较，看看哪个日期早，哪个日期晚，或者等于当天。
delphi 日期时间操作
haowanle的专栏
11-30 1303
Delphi中的时间操作技术Delphi中的用于表示时间的类型： TDateTime类型：     Delphi中最常用的表示日期时间的数据类型TDateTime类型，TdateTime类型实质上是一个Double型的数，在Delphi中是这样定义TdateTime类型： type  TDateTime = type Double ,具体的算法是用Double数的整数部分表示日期，以1989年12
Delphi 不管什么日期格式转换都不会错了
小祝的专栏
07-29 2014
转自①FireMonkey[移动开发] 165232328群   Application.Initialize;  SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, 'yyyy-MM-dd');  Application.UpdateFormatSettings := False;  with FormatSettings do  be...
delphi日期函数
我的IT之旅
06-04 203
Day 开头的函数 ● Unit DateUtils function DateOf(const Avalue: TDateTime): TDateTime; 描述 使用 DateOf 函数用来把一个 TDateTime 类型的变量转变成一个 只带有日期的 TDateTime 类型变量。 例如： showmessage(DateTimetostr(dateof(now()))); 你得到的是 20...
判断指定日期是星期几（delphi编程实现）
hl3464的专栏
03-09 2738
{ 作用：闰年指定日期是星期几。可以从公元1年1月1日算起。 完成时间：0:49 2011-3-9 环境：delphi7+winxp3 测试通过 思路：从公元1年1月1日（为星期一）算起， 将指定日期距离公元第一天的总天数算出来，对7求余， 根据不同余数，指出具体是星期几。 } unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Contr
DELPHI编程：实现键盘钩子函数
"这篇文档详细介绍了如何使用DELPHI编程语言来创建钩子函数，特别是键盘钩子，以及如何在DLL动态链接库中实现和安装这些钩子。文档还涉及了在不同程序间共享数据的问题。" 在Windows操作系统中，钩子（HOOK）是一种...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值