Delphi 判断时间是否合法 -IsValidDateTime、IsValidDate、IsValidTime、IsValidDateDay

我会带着你远行 2021-11-23 18:22 395阅读 0赞

DateUtils.IsValidDateTime  
DateUtils.IsValidDate  
DateUtils.IsValidTime  
DateUtils.IsValidDateDay  
DateUtils.IsValidDateWeek  
DateUtils.IsValidDateMonthWeek  
  
//可用下面几个过程抛出异常:  
DateUtils.InvalidDateDayError  
DateUtils.InvalidDateMonthWeekError  
DateUtils.InvalidDateTimeError  
DateUtils.InvalidDateWeekError  
DateUtils.InvalidDayOfWeekInMonthError  
  
unit Unit1;  
  
interface  
  
uses  
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
Dialogs, StdCtrls;  
  
type  
TForm1 = class(TForm)  
procedure FormCreate(Sender: TObject);  
end;  
  
var  
Form1: TForm1;  
  
implementation  
  
\{$R \*.dfm\}  
  
uses DateUtils;  
  
procedure TForm1.FormCreate(Sender: TObject);  
var  
b: Boolean;  
begin  
b := IsValidDateTime(2009, 5, 21, 11, 22, 33, 999); //True  
b := IsValidDateTime(2009, 5, 21, 11, 22, 33, 9999); //False  
  
b := IsValidDate(2009, 5, 21); //True  
b := IsValidDate(2009, 5, 32); //False  
  
b := IsValidTime(11, 22, 33, 0); //True  
b := IsValidTime(11, 22, 61, 0); //False  
  
b := IsValidDateDay(2009, 141); //True  
b := IsValidDateDay(2009, 366); //False  
  
b := IsValidDateWeek(2009, 21, 7); //True  
b := IsValidDateWeek(2009, 21, 8); //False  
  
b := IsValidDateMonthWeek(2009, 5, 3, 7); //True  
b := IsValidDateMonthWeek(2009, 5, 3, 8); //False  
  
// ShowMessage(BoolToStr(b, True));  
end;  
  
end.

转载于:https://www.cnblogs.com/MaxWoods/p/3585322.html

发表评论取消回复

表情：

评论列表（有 0 条评论，395人围观）

还没有评论，来说两句吧...

相关阅读

相关 java判断生日字符串是否合法

写了个判断用户输入生日字符串是否合法的方法，前提是输入字符串格式为yyyyMMdd。 public static boolean checkBirthDay(S

妖狐艹你老母/ 2024年02月17日 15:44/ 0 赞/ 69 阅读

相关判断IP地址是否合法（C语言）

C语言判断IP地址是否合法 IPv4地址是由四个0~255的整型数，中间以’.'隔开的字符串，最大为长度为15。通过以上特征来鉴别是否是IPv4地址。整个字符串只能是

叁歲伎倆/ 2023年02月18日 03:09/ 0 赞/ 150 阅读

相关 java判断开始结束时间戳是否合法

创建活动的，开始时间，结束时间：对业务时间戳判断，结束时间大于当前时间，结束时间必须大于开始时间 public static void isErrorTime(

痛定思痛。/ 2023年01月20日 13:51/ 0 赞/ 233 阅读

相关判断邮箱是否合法

//判断Email合法性 private boolean isEmail(String email) { if (email == null)

骑猪看日落/ 2022年11月11日 13:11/ 0 赞/ 249 阅读

相关 js判断一个手机号是否合法

js判断一个手机号是否合法 function isMobileNumber(phone) { var flag = false; va

向右看齐/ 2022年06月01日 20:50/ 0 赞/ 350 阅读

相关 java 判断email 是否合法

/ 检测邮箱地址是否合法 @param email @return true合法 false不合法

心已赠人/ 2021年12月04日 06:09/ 0 赞/ 370 阅读

相关 Delphi判断文件是否正在被使用

首先,我们先来认识下CreateFile函数，它的原型如下 HANDLE CreateFile( LPCTSTR lpFileName, //指向文件名的指

秒速五厘米/ 2021年11月26日 16:18/ 0 赞/ 346 阅读

相关 Delphi 判断时间是否合法 -IsValidDateTime、IsValidDate、IsValidTime、IsValidDateDay

DateUtils.IsValidDateTime DateUtils.IsValidDate DateUtils.IsValidTime DateUtils.Is

我会带着你远行/ 2021年11月23日 18:22/ 0 赞/ 396 阅读

相关 java判断json字符串是否合法

JsonObject和JsonArray对象都没有能快速判断json格式合法性的方法，只好使用捕获异常的方式判断json合法性。 / 判

秒速五厘米/ 2021年09月15日 10:56/ 0 赞/ 1144 阅读

相关 python3 判断url是否合法

import sys import re if len(sys.argv) != 2: print (sys.stder

曾经终败给现在/ 2021年07月28日 16:39/ 0 赞/ 869 阅读