delphi 时间差函数及部分字符串与日期时间相互转换的函数


delphi 时间差函数及部分字符串与日期时间相互转换的函数

首先使用dateutils单元,即 uses dateutils;

yearsbetween(开始时间,结束时间)-------------中间相差多少年 保留整数部分

monthsbetween(开始时间,结束时间)-------------中间相差多少月 保留整数部分

daysbetween(开始时间,结束时间)-------------中间相差多少天 保留整数部分

hoursbetween(开始时间,结束时间)-------------中间相差多少小时 保留整数部分

以此类推 分钟、秒

yearspan(开始时间,结束时间)-------------中间相差多少年 小数表示

monthspan(开始时间,结束时间)-------------中间相差多少月 小数表示

以下以此类推

━━━━━━━━━━━━━━━━━━━━━
  首部 function IsLeapYear(Year: Word): Boolean; $[SysUtils.pas
  功能 返回年份Year是否是闰年
  说明 (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0))
  参考
  例子 CheckBox1.Checked := IsLeapYear(SpinEdit1.Value);
  ━━━━━━━━━━━━━━━━━━━━━

首部 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas
  功能 返回日期DateTime转换成字符串
  说明 转换格式由系统变量ShortDateFormat控制
  参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat
  例子 Edit1.Text := DateToStr(Date);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas
  功能 返回时间DateTime转换成字符串
  说明 转换格式由系统变量LongTimeFormat控制
  参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat
  例子 Edit1.Text := TimeToStr(Date);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function DateTimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas
  功能 返回日期时间DateTime转换成字符串
  说明 转换格式由系统变量ShortDateFormat和LongTimeFormat控制
  参考 function SysUtils.DateTimeToString
  例子 Edit1.Text := DateTimeToStr(Now);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function StrToDate(const S: string): TDateTime; $[SysUtils.pas
  功能 返回字符串S转换成日期
  说明 字符非日期表达时将引起异常
  参考 function SysUtils.TryStrToDate
  例子 DateTimePicker1.Date := StrToDate(Edit1.Text);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function StrToDateDef(const S: string; const Default: TDateTime): TDateTime; $[SysUtils.pas
  功能 返回字符串S转换成日期
  说明 字符非日期表达时则返回默认值Default
  参考 function SysUtils.TryStrToDate
  例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date);
  ━━━━━━━━━━━━━━━━━━━━━

首部 function TryStrToDate(const S: string; out Value: TDateTime): Boolean; $[SysUtils.pas
  功能 返回字符串S转换成日期Value是否成功
  说明 字符非日期表达时返回False并且Value将输出为0
  参考
  例子
  ///////Begin TryStrToDate
  procedure TForm1.Button1Click(Sender: TObject);
  var
  vDateTime: TDateTime;
  begin
  CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime);
  DateTimePicker1.Date := vDateTime;
  end;
  ///////End TryStrToDate
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function StrToTime(const S: string): TDateTime; $[SysUtils.pas
  功能 返回字符串S转换成时间
  说明 字符非时间表达时将引起异常
  参考 function SysUtils.TryStrToTime
  例子 DateTimePicker1.Time := StrToTime(Edit1.Text);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function StrToTimeDef(const S: string; const Default: TDateTime): TDateTime; $[SysUtils.pas
  功能 返回字符串S转换成时间
  说明 字符非时间表达时则返回默认值Default
  参考 function SysUtils.TryStrToTime
  例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function TryStrToTime(const S: string; out Value: TDateTime): Boolean; $[SysUtils.pas
  功能 返回字符串S转换成时间Value是否成功
  说明 字符非时间表达时返回False并且Value将输出为0
  参考
  例子
  ///////Begin TryStrToTime
  procedure TForm1.Button1Click(Sender: TObject);
  var
  vDateTime: TDateTime;
  begin
  CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime);
  DateTimePicker1.Time := vDateTime;
  end;
  ///////End TryStrToTime
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas
  功能 返回字符串S转换成日期时间
  说明 字符非日期时间表达时将引起异常
  参考 function SysUtils.TryStrToDateTime
  例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text));
  ━━━━━━━━━━━━━━━━━━━━━

首部 function StrToDateTimeDef(const S: string; const Default: TDateTime): TDateTime; $[SysUtils.pas
  功能 返回字符串S转换成日期时间
  说明 字符非日期时间表达时则返回默认值Default
  参考 function SysUtils.TryStrToDateTime
  例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now));
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function TryStrToDateTime(const S: string; out Value: TDateTime): Boolean; $[SysUtils.pas
  功能 返回字符串S转换成日期时间Value是否成功
  说明 字符非日期时间表达时返回False并且Value将输出为0
  参考
  例子
  ///////Begin TryStrToDateTime
  procedure TForm1.Button1Click(Sender: TObject);
  var
  vDateTime: TDateTime;
  begin
  CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime);
  Edit2.Text := DateTimeToStr(vDateTime);
  end;
  ///////End TryStrToDateTime
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function FormatDateTime(const Format: string; DateTime: TDateTime): string; $[SysUtils.pas
  功能 返回用指定的格式Format来格式化日期时间DateTime
  说明 FormatDateTime('YYYY"年"MM"月"DD"日"', StrToDate('2002-03-09')) = '2002年03月09日'
  参考 function SysUtils.DateTimeToString
  例子 Edit2.Text := FormatDateTime(Edit1.Text, Now);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 procedure DateTimeToString(var Result: string; const Format: string; DateTime: TDateTime); $[SysUtils.pas
  功能 用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中
  说明 <参见FormatDateTime>
  参考 function System.SetString
  例子 <参见FormatDateTime>
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function FloatToDateTime(const Value: Extended): TDateTime; $[SysUtils.pas
  功能 返回浮点数转换成日期时间类型
  说明 如果浮点数超出范围将触发异常
  参考 function System.Int
  例子 Edit2.Text := DateTimeToStr(FloatToDateTime(StrToFloatDef(Edit1.Text, 0)));



联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678