时间共151篇

delphi中获得当前时间

procedure TForm1.Button1Click(Sender: TObject);beginLabel1.Caption := FormatDateTime('hh:nn:ss',Now());end;
Amutellip的头像-Delphi编程技巧大全Amutellip1个月前
01137
delphi 生成当月月份列表-Delphi编程技巧大全

delphi 生成当月月份列表

方法1:方法2:procedure TForm1.FormCreate(Sender: TObject);var  Year, Month, Day: Word;  I :Integer;begin  Memo1.Clear;  Memo1.Lines.Add('本月');  DecodeDa...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
06013

Delphi DateTimePicker控件日期格式

设置成显示年、月、日、时、分、秒1:将DateTimePicker的Format属性中加入日期格式设成 'yyyy-MM-dd HH:mm:ss',注意日期里月份对应的MM是大写,时间里的分钟对应的mm是小写;2:将kind设置为dt...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04310
Delphi XE 制作的萤光时钟,可改作屏保-Delphi编程技巧大全

Delphi XE 制作的萤光时钟,可改作屏保

 unit main; interface uses  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphi...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04813

Delphi 如何检测你的电脑日期或时间的变化

 //the system time of you PC has changed. unit Unit1;  interface  uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0467

Delphi 输入年月判断天数

//需要引用dateutils; unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs,dateutils, StdCtrls;type  TF...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0369

Delphi 获取任意月份总共有多少天数

uses DateUtils;方法1:function DaysInAMonth(const AYear, AMonth: Word): Word; 方法2:function GetDays(Year, Month): Word;beginResult := MonthDays[IsLeapYear(Year), Month];end;...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0566

Delphi 比较两个日期相差天数

uses DateUtils;vart1,t2:TDateTime;begint1:=StrToDate(Edit1.Text);t2:=StrToDate(Edit2.Text);Caption:='两日bai期相du差'+IntToStr(DaysBetween(t1,t2))+'天dao';
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
04512

delphi 计算l两个日期的时间间隔月数,月数差

此种方法计算月份差不准,比如2017-2-1 到 2016-10-2 ,还是用StrToInt() 转化月为整形后再相减计算use DateUtils;Edit1.Text:=intToStr(MonthsBetween(StrToDateTime('2012-10-2'),StrToDateTi...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0417

Delphi延时

// 高精度的延时,精确到Ms , 100ms以内采用,或要求误差极小// 删除Application.ProcessMessages 影响精度procedure DelayMsEx(Ms: LongWord);var  iFreq, iStartCounter, iEndCounter: I...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0557

Delphi 时间年月日,星期

   function NowGMT: TDateTime;var  ST: TSystemTime;begin  // This Windows API function gets system time in UTC/GMT  // see http://msdn.microsoft.com/en-us/...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
07113

Delphi 日期相关总结20190702完结篇

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls,DateUtils, ComCtrls;type  TForm1 = class(TFor...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0618

delphi 日期字符串转换日期格式

 function MyStrToDateTime(vStr: string): TDateTime;  var    S: string;    v: Variant;  begin    Result := now;    S := S := S...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05112

Delphi 取时间戳

Delphi 取时间戳 uses System.DateUtils;edit1.text := DateTimeToUnix(now,False).ToString;来源:http://www.xuexidashi.vip/h-nd-1625.html#_np=125_826
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0356

delphi 时间戳与日期互转

1、日期转换成时间戳function Gettimestamp: string;begin Result := inttostr(DateTimeToUnix(IncHour(Now,-8))); //  本地时间减8小时end;2、时间戳转换成日期function UnixDateToD...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05415

Delphi的DateToStr StrToDate格式灵活用法

procedure TForm1.Button1Click(Sender: TObject);var   ADate: String;   ADate2: TDate;   AFormat, AFormat2: TFormatSettings;begin   AFormat.Sh...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0287

delphi 另类计算程序代码运行耗时

var  d: TDateTime;begin d:= Now();//--------------------代码//--------------------- StatusBar1.Panels[0].Text:='耗时:'+ FormatDateTime('hh:nn:ss.zzz', (Now-d));
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0506

Delphi 世界时间转换

在网页上经常使用世界时间,但是往往 本地使用的时候,都要转成本地时间 和 时间类型的。这样就很好地可以把网页或网站上的世界时间同步到本地来。世界时间转换,如:    Sun, 10 May...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
02715

delphi 时间转成大写

很多时候,中国的日历生辰八字都会用不用 汉字的大写来写,这个函数专门为那些想要让时间大写的人提供使用,让时间变得更有意义。function DateToCapital(datetime: TDateTime): string;const C...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0447

delphi 取 UTC/TFileTime 时间

// 取 UTC/TFileTime 时间function GetUTCTickCount: Int64;var  UtcFt: _FILETIME;begin  // 精确到 100ns = 千万分之一秒  //   返回与 GetTickCount 一样的毫秒&nb...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05814

delphi Unix时间转换成delphi时间

uses DateUtils; function DelphiDateTimeToUnixDateTime(DTime: TDateTime): Integer;begin  Result := SecondsBetween(DTime,EncodeDateTime(1970,1,1,0,0,0,0));end; functio...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
03315

delphi 获取中文/数字星期的函数

unit Unit1;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;type ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
03113

delphi 设置本地系统时间

function SetLocalSysTime(const newTime:TDateTime):Boolean; //设置本地系统时间var  MyTime:TsystemTime;begin  FillChar(MyTime,sizeof(MyTime),#0);  MyTime.wYear := StrT...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0356

delphi 简单的倒计时算法

unit PPTTimeFrm;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs,  ExtCtrls, StdCtrls, DateUtils;type  TFrmPPT...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0497

delphi TStopwatch 计时

program Project4;{$APPTYPE CONSOLE}{$R *.res}uses  System.SysUtils,System.Diagnostics;  var  I, Tot: Integer;  SW: TStopwatch;//秒表,计算耗用时间begin  tr...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0406

delphi 秒计算分钟、小时函数

function GetTimeStr(Sec: Integer): string;begin  if Sec >= 3600 then    Result := Format('%d hour %d min %d sec', [Sec div 3600, Sec mod 3600 div 60, Sec mod 60])...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
03915

delphi 日期加减

function AddDays(const DateTime: TDateTime; const Days: Integer): TDateTime;begin  Result := DateTime + Days;end;function SubtractDays(const DateTime: TDateTime; const Days: I...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0328

delphi 获取国外格式日期时间

function NowGMT: TDateTime;var  ST: TSystemTime;begin  // This Windows API function gets system time in UTC/GMT  // see http://msdn.microsoft.com/en-us/library/ms724...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0369

delphi 获取系统日期时间

function NowGMT: TDateTime;var  ST: TSystemTime;begin  // This Windows API function gets system time in UTC/GMT  // see http://msdn.microsoft.com/en-us/library/ms724...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
0337

delphi 计算加班时间工时的函数

function getTaskTimeStr(BigTime, SmallTime : TDateTime;AValue : Integer):string;var  t0 : Double;  t1 : Integer;begin  t0 := MinuteSpan(BigTime , SmallTime); //加班...
Top_Admin的头像-Delphi编程技巧大全Top_Admin2个月前
05411