Delphi 判断时间是否合法 -IsValidDateTime、IsValidDate、IsValidTime、IsValidDateDay
2014-03-06 20:59
363 查看
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.
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.
相关文章推荐
- [delphi]小程序一例,自动生成随机数。
- delphi中几种注释方法
- 2014年 delphi源码大全升级到31G
- Delphi const 杂谈
- Delphi判断系统是否64位
- Delphi 文件的操作:重命名、复制、移动、删除
- Delphi 编写ActiveX控件(OCX控件)的知识和样例
- Delphi 编写ActiveForm窗体工程知识和样例(开发浏览器客户端应用程序)
- delphi 文件操作
- Delphi操作文件函数
- 《大话设计模式》之 简单工厂模式 Delphi/C shap /JAVA 实现
- Delphi中break、exit、abort、continue跳出的比较
- Delphi版本号对照
- delphi实现简单window窗口程序
- Delphi“流”实现文件加密器
- Delphi 2010安装及使用UniDAC 4.0
- Delphi中MessageDlg用法
- Delphi 我常用的几个下载源码的站点
- Delphi中DBgrid控件数据库点击某列按序排列
- delphi查找文件