Time & Date

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Timer1: TTimer;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
procedure Timer1Timer(Sender: TObject);
private
{ By : Zephio }
public
{ http://amateur-guide.blogspot.com }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}


function GetCurrentDateTime: TDateTime;
var
SystemTime: TSystemTime;
begin
GetLocalTime(SystemTime);
Result := SystemTimeToDateTime(SystemTime);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Edit1.Text := DateToStr(GetCurrentDateTime);
Edit2.Text := DateToStr(Now);
Edit3.Text := DateToStr(Date);
Edit4.Text := TimeToStr(Now);
Edit5.Text := TimeToStr(Time);
Edit6.Text := TimeToStr(GetCurrentDateTime);
Edit7.Text := FormatDateTime('dddd dd mmmmm YYYY', Now);
Edit8.Text := FormatDateTime('dddd', Now);
Edit9.Text := FormatDateTime('dd', Now);
Edit10.Text := FormatDateTime('mmmmm', Now);
Edit11.Text := FormatDateTime('YYYY', Now);
Edit12.Text := FormatDateTime('nn:ss.zzz', Now);
Edit13.Text := FormatDateTime('nn', Now);
Edit14.Text := FormatDateTime('ss', Now);
Edit15.Text := FormatDateTime('zzz', Now);

end;

end.