没有合适的资源?快使用搜索试试~ 我知道了~
Delphi-日期时间函数详解.doc
0 下载量 44 浏览量
2022-12-01
00:58:27
上传
评论
收藏 105KB DOC 举报
温馨提示
试读
19页
Delphi-日期时间函数详解.doc
资源推荐
资源详情
资源评论
各种时间类型之间的转换函数
DateTimeToFileDate 函数:
定义:DateTimeToFileDate(DateTime: TDateTime): Integer;
作用: 将一个 TDateTime 类型的时间转化为 Dos 环境中的时间,Dos 环境下对时间
的访问
方法和 VCL 中的 TdateTime 类型不一样,在进行文件操作时,为了保持时间的一致
性,需
要使用 DateTimeToFileDate 函数进行转化,返回的 Integer 的值就是 Dos 下的用于
描述时
间的值。
DateTimeToSystemTime 过程:
定义:procedure DateTimeToSystemTime(DateTime: TDateTime; var SystemTime:
TS
ystemTime);
作用:将一个 TDateTime 类型的时间转换为 Win API 函数所使用的 TSystemTime 类
型,在使
用 WinApi 函数操纵时间时用到。
SystemTimeToDateTime 函数:
定义:function SystemTimeToDateTime(const SystemTime: TSystemTime):
TDateTim
e;
作用:将一个在 WinApi 函数中得到的 TSysTemTime 类型的数转换为 TDateTime 类型。
DateTimeToTimeStamp 函数:
TimeStampToDateTime 函数:
定义:DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp;
function TimeStampToDateTime(const TimeStamp: TTimeStamp):
TDateTime;
作用:用于在 TDataTime 类型与 TTimeStamp 之间进行互相转换。TDataTime 用一个
doubl
e 描绘一个时间,而 TTimeStamp 则是采用两个整形数分别描述时间。两种类型的区
别可参
考文章开始处的数据类型描述部分。
EncodeDate 函数:
定义:function EncodeDate(Year, Month, Day: Word): TDateTime;
作用: 输入年(year),月(month),日(day)的值,将该日期返回为 TDateTime 类型,
年
的范围为 1-9999,月份的范围为 1-12,日期的范围视当月的情况而定,如果输入的
值超出
范围,则将产生一个 EConvertError 错误。
DecodeDate 过程:
定义:procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
作用:输入一个 TDateTime 类型的日期,将其转为年(Year),月(Month),日(Day)的
值。
如果输入值为 0 或小于 0,则年月日均为 0,
EncodeTime 函数:
定义:EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;
作用:输入小时(Hour),分(min),秒(Sec),微秒(MSec)的值,返回一个 TDateTime 类
型的
时间,该值为一个介于 0 至 1 之间的小数。Hour 的取值范围为 0-23,Min 的取值范
围为 0-59
,Sec 的取值范围为 0-59,MSec 的取值范围为 0-999,如果输入值超出范围,则产生
一个 EC
onvertError 错误。
DecodeTime 过程:
定义:procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);
作用:输入一个时间,将其转换为小时(Hour),分(min),秒(Sec),微秒(MSec)的值。
TDateTime 类型与字符串型转换函数:
DateTimeToStr 函数:
DateToStr 函数
TimeToStr 函数
定义:function DateTimeToStr(DateTime: TDateTime): string;
function TimeToStr(Time: TDateTime): string;
function TimeToStr(Time: TDateTime): string;
作用:将一个 TDateTime 类型的数转换成字符串,DateTimeToStr 转换日期和时间,
Date
ToStr 只转换日期,TimeToStr 只转换时间。转换后的输出效果为 YYYY-M-D H:M:
S
StrToDateTime 函数
StrToDate 函数
StrToTime 函数
定义:function StrToDateTime(const S: string): TDateTime;
function StrToDate(const S: string): TDateTime;
function StrToTime(const S: string): TDateTime;
作用:将带有日期时间格式的字符串转化成 TDateTime,其中 S 必须是一个有效的
字符串
,如
YY-MM-DD HH:MM:SS 格式,否则就会触发 EConvertError 事件,提示错误
信息。
时间部分的字符串必须是由 2~3 个的数值字串构成,并且采用在 Windows
区域设置
中设置的分隔字符进行分隔,其格式要求符合在 Windows 区域设定中的设定,其中
HH,MM(
小时,分钟)必须添加,SS(秒)可选,也可以在后面加入 Am 和 Pm 区分上下午,这
时候
系统将认为采用 12 小时表示法,否则认为采用 24 小时表示法。
日期部分的格式要求符合 Windows 区域设置中的短日期格式,也是由 2~
3 个的数值
字串构成,如果在字符串中只有 2 个数,则认为是指定了月份和日期,年份采用当
前年份
,
如果在区域设置中采用两位年份的表示方法,则系统将会采用以下方法处
理:
首先在区域设置中取得两位年份的起始年份,如在区域设置中设两位年份
范围为
1932-2031 年,则起始年份为 32 年,如果这个起始年份为 0,则认为两位年份表示
的都是
本世纪,如果其实年份大于 0 ,则采用当前年份减去起始年份的值,这个值称为基
准值
,大于等于这个值则认为事本世纪,否则认为是下世纪,下面给出几个例子说明:
DateTimeToString 过程:
FormatDateTime 函数:
定义:procedure DateTimeToString(var Result: string; const Format: string;
D
ateTime: TDateTime);
function FormatDateTime(const Format: string; DateTime:
TDateTime): s
tring;
作用:通过定义 Format 字串中的格式得到要输出时间字符串,例如要输出“今天是
2002
年 5 月 5 日,星期五”就可以用这两种方法,这两个方法的作用相同,只是一个是
通过共
享变量取得输出字符串,值在 Result 中,一个是通过返回值取得输出字符串,
DateTime
参数是希望输出的日期值,Format 由格式标志与附加字符串组合而成。附加字串
用””
圈起,就像 C 中的 Printf 函数.如“今天是 2002 年 5 月 5 日,星期五”的 Format
值就是 ‘”
今天是”yyyy”年”mm”月”dd”日,” dddd’,yyyy,mm,dd,dddd 都是格式标识,
各
种格式标识的解释如下:
d :用一位或两位整数显示日子(1-31)
dd :用两位整数显示日子,不足两位的用 0 补足(01-31)
ddd :按缩略方式显示当前的星期号,如果 Windows 是英文版,则
显示为 Mon
-Sun,如果是中文版,则显示同 dddd。
dddd :按完整方式显示当前的星期号,如 Windows 是英文版,则显
示 Monday-
SumDay,如果是中文版,则显示星期一~星期日
ddddd :按区域设置中的短日期格式输出。
dddddd :按区域设置中的长日期格式输出。
m :用一位或两位整数显示月份(1-12)
剩余18页未读,继续阅读
资源评论
zzzzl333
- 粉丝: 676
- 资源: 7万+
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功