formatdatetime delphi？formatdatetime函数
大家好，今天来为大家解答formatdatetime delphi这个问题的一些问题点，包括formatdatetime函数也一样很多人还不知道，因此呢，今天就来为大家分析分析，现在让我们一起来看看吧！如果解决了您的问题，还望您关注下本站哦，谢谢~
delphi的formatdatetime函数怎么用啊
delphi中formatdatetime是格式化日期时间的函数，返回值是格式化后的字符串。
function FormatDateTime(const Format string; DateTime TDateTime) string;
第一个参数是格式化字符串，第二个参数是要格式化的日期时间。
你的语句formatdatetime('yyyymmdd', datetimepicker1.Date+10/24)中，格式化
字符串是'yyyymmdd'，就是将datetimepicker1.Date+10/24格式化成'yyyymmdd'
的格式，其中yyyy代表4位年，mm代表2位月，dd代表2为日，所以是不可能将10/24
的时间加上去的。如果要加上时间的话，格式化字符串可以写成'yyyymmdd hh:nn:ss'。
delphi7.0如何使用时间函数
Date传回目前的日期
Unit SysUtils
函数原型 function Date: TDateTime;
范例 procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:='Today is'+ DateToStr(Date);
end;
------------------------------------------
DateTimeToStr日期时间转换成内定型字串(1996/12/20 09:12:20 PM)
------------------------------------------
Unit SysUtils
函数原型 function DateTimeToStr(DateTime: TDateTime): string;
范例 procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:= DateTimeToStr(Now);
end;
--------------------------------------------------------
DateTimeToString日期时间转换成自定型字串
-------------------------------------------------------
Unit SysUtils
函数原型 procedure DateTimeToString(var Result: string; const Format:
string; DateTime: TDateTime);
范例 procedure TForm1.FormCreate(Sender: TObject);
var
s:string;
begin
DateTimeToString(s,'dddd,mmmm d,yyyy"at" hh:mm
AM/PM',Now);
Label1.Caption:=s;
end;
结果星期五,十二月 20,1996 at 09:20 PM
-----------------------------------------------------------------------------
**** Format格式叁考下面.FormatDateTime.
--------------------------------------------------------
DateToStr日期转换成内定型字串.(1996/12/20)
--------------------------------------------------------
Unit SysUtils
函数原型 function DateToStr(Date: TDateTime): string;
范例
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:='Today is'+ DateToStr(Date);
end;
# Date, DateToStr Example
--------------------------------------------------------
DayOfWeek求叁数日期是星期几.
--------------------------------------------------------
Unit SysUtils
函数原型 function DayOfWeek(Date: TDateTime): Integer;
说明传回值是一整数,1~7.
星期日为1.
范例
procedure TForm1.Button1Click(Sender: TObject);
var
ADate: TDateTime;
days: array[1..7] of string;
begin
days[1]:='Sunday';
days[2]:='Monday';
days[3]:='Tuesday';
days[4]:='Wednesday';
days[5]:='Thursday';
days[6]:='Friday';
days[7]:='Saturday';
ADate:= StrToDate(Edit1.Text);
ShowMessage(Edit1.Text+' is a'+ days[DayOfWeek(ADate)];
end;
# StrToDate, DayOfWeek Example
--------------------------------------------------------
DecodeDate将TDateTime型态的日期变数，转为Word型态.
--------------------------------------------------------
范例
procedure TForm1.Button1Click(Sender: TObject);
var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
Label1.Caption:='Today is Day'+ IntToStr(Day)+' of Month'
+ IntToStr(Month)+' of Year'+ IntToStr(Year);
DecodeTime(Present, Hour, Min, Sec, MSec);
Label2.Caption:='The time is Minute'+ IntToStr(Min)+' of Hour'
+ IntToStr(Hour);
end;
# DecodeDate, DecodeTime Example
--------------------------------------------------------
DecodeTime将TDateTime型态的时间变数，转为Word型态.
--------------------------------------------------------
Unit SysUtils
函数原型 procedure DecodeDate(Date: TDateTime; var Year, Month,Day: Word);
函数原型 procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec,MSec: Word);
范例 procedure TForm1.Button1Click(Sender: TObject);
var
Present: TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
Label1.Caption:='Today is Day'+ IntToStr(Day)+' of
Month'+ IntToStr(Month)+' of Year'+ IntToStr(Year);
DecodeTime(Present, Hour, Min, Sec, MSec);
Label2.Caption:='The time is Minute'+IntToStr(Min)+' of
Hour'+ IntToStr(Hour);
end;
--------------------------------------------------------
EncodeDate将Word型态的日期变数，转为TDateTime型态.
--------------------------------------------------------
范例
procedure TForm1.Button1Click(Sender: TObject);
var
MyDate: TDateTime;
begin
MyDate:= EncodeDate(StrToInt(Edit1.Text), StrToInt(Edit2.Text), StrToInt(Edit3.Text));
Label1.Caption:= DateToStr(MyDate);
end;
-------------------------------------------------------
EncodeTime将Word型态的时间变数，转为TDateTime型态.
--------------------------------------------------------
Unit SysUtils
函数原型 function EncodeDate(Year, Month, Day: Word): TDateTime;
函数原型 function EncodeTime(Hour, Min, Sec, MSec: Word):
TDateTime;
范例 procedure TForm1.Button1Click(Sender: TObject);
var
MyDate: TDateTime;
MyTime: TDateTime;
begin
MyDate:= EncodeDate(83, 12, 31);
Label1.Caption:= DateToStr(MyDate);
MyTime:= EncodeTime(0, 45, 45, 7);
Label2.Caption:= TimeToStr(MyTime);
end;
范例
procedure TForm1.Button1Click(Sender: TObject);
var
MyTime: TDateTime;
begin
MyTime:= EncodeTime(0, 45, 45, 7);
Label1.Caption:= TimeToStr(MyTime);
end;
--------------------------------------------------------
FormatDateTime将日期时间依Format的格式转换给一字串.
--------------------------------------------------------
Unit SysUtils
函数原型 function FormatDateTime(const Format: string; DateTime:
TDateTime): string;
****类似DateTimeToString.
Format格式
c内定值ShortDateFormat的格式.(1996/12/20 09:20:15 PM).
d日期,前面不补0.(1-31)
dd日期,前面补0.(01-31)
ddd星期.(星期日).
Dddd中文2.01版,同上.
ddddd日期.(1996/12/20)
dddddd日期.(1996年12月20日)
m月份,前面不补0.(1-12)
mm月份,前面补0.(01-12)
mmm中文显示.(十二月)
mmmm中文2.01版,同上.
Yy年度.(00-99)
yyyy年度.(0000-9999)
h小时.(0-23)
hh小时.(00-23)
n分钟.(0-59)
nn分钟.(00-59)
s秒钟.(0-59)
ss秒钟.(00-59)
t时间.(09:20 PM)
tt时间.(09:20:15 PM)
am/pm单独显示am or pm.(若大写,则显示大写)
a/p单独显示a or p.
范例
The following example assigns'The meeting is on Wednesday, February 15, 1995 at 10:30 AM' to the string variable S.
S:= FormatDateTime('"The meeting is on" dddd, mmmm d, yyyy," at" hh:mm AM/PM',
StrToDateTime('2/15/95 10:30am'));//???
--------------------------------------------------------
Now传回目前的日期时间.
--------------------------------------------------------
Unit SysUtils
函数原型 function Now: TDateTime;
范例
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:= DateTimeToStr(Now);
end;
# Now, DateTimeToStr Example
--------------------------------------------------------
StrToDate将字串转为TDateTime型态的日期.
--------------------------------------------------------
Unit SysUtils
函数原型 function StrToDate(const S: string): TDateTime;
范例 procedure TForm1.Button1Click(Sender: TObject);
var
ADate: TDateTime;
begin
ADate:= StrToDate(Edit1.Text);
Label1.Caption:= DateToStr(ADate);
end;
范例
procedure TForm1.Button1Click(Sender: TObject);
var
ADate: TDateTime;
days: array[1..7] of string;
begin
days[1]:='Sunday';
days[2]:='Monday';
days[3]:='Tuesday';
days[4]:='Wednesday';
days[5]:='Thursday';
days[6]:='Friday';
days[7]:='Saturday';
ADate:= StrToDate(Edit1.Text);
ShowMessage(Edit1.Text+' is a'+ days[DayOfWeek(ADate)];
end;
# StrToDate, DayOfWeek Example
--------------------------------------------------------
StrToDateTime将字串转为TDateTime型态的日期时间.
--------------------------------------------------------
Unit SysUtils
函数原型 function StrToDateTime(const S: string): TDateTime;
范例
procedure TForm1.Button1Click(Sender: TObject);
var
ADateAndTime: TDateTime;
begin
ADateAndTime:= StrToDateTime(Edit1.Text);
Table1.FieldByName('TimeStamp').AsDateTime:= ADateAndTime;
end;
--------------------------------------------------------
StrToTime将字串转为TDateTime型态的时间.
--------------------------------------------------------
Unit SysUtils
函数原型 function StrToTime(const S: string): TDateTime;
范例
procedure TForm1.Button1Click(Sender: TObject);
var
ATime: TDateTime;
begin
ATime:= StrToTime(Edit1.Text);
if ATime< 0.50 then
ShowMessage('Good Morning')
else
ShowMessage('Good Afternoon');
end;
--------------------------------------------------------
Time传回目前的时间.
--------------------------------------------------------
Unit SysUtils
函数原型 function Time: TDateTime;
范例
procedure TForm1.Timer1Timer(Sender: TObject);
var
DateTime: TDateTime;
str: string;
begin
DateTime:= Time;// store the current date and time
str:= TimeToStr(DateTime);// convert the time into a string
Caption:= str;// display the time on the form's caption
{ Note This could have been done with the following line of code:
Caption:= TimeToStr(Time);}
end;
# Time, TimeToStr Example
--------------------------------------------------------
TimeToStr时间转换成内定型字串.(09:20:15 PM)
--------------------------------------------------------
Unit SysUtils
函数原型 function TimeToStr(Time: TDateTime): string;
GetMem procedure配置记忆体程序
New配置指位器P的记忆体空间，
大小为P所指型态的大小.
--------------------------------------------------------
Dispose释放New所配置的记忆体.
--------------------------------------------------------
Unit System
函数原型 procedure New(var P: Pointer);
函数原型 procedure Dispose(var P: Pointer);
范例 type
PListEntry= ^TListEntry;
TListEntry= record
Next: PListEntry;
Text: string;
Count: Integer;
end;
var
List, P: PListEntry;
begin
...
New(P);
P^.Next:= List;
P^.Text:='Hello world';
P^.Count:= 1;
List:= P;
...
Dispose(P);
…
end;
范例
type
Str18= string[18];
var
P: ^Str18;
begin
New(P);
P^:='Now you see it...';
Dispose(P);{ Now you don't...}
end;
--------------------------------------------------------
GetMem配置指位器P的记忆体空间，大小可自行设定.
--------------------------------------------------------
范例
var
F: file;
Size: Integer;
Buffer: PChar;
begin
AssignFile(F,'test.txt');
Reset(F, 1);
try
Size:= FileSize(F);
GetMem(Buffer, Size);
try
BlockRead(F, Buffer^, Size);
ProcessFile(Buffer, Size);
finally
FreeMem(Buffer);
end;
finally
CloseFile(F);
end;
end;
系统相关的常用时间函数几乎都在这了.你问的问题每个准.只能这么答了.
delphi获取当前日期,包括年份月份星期时间。
1、打开Delphi7集成开发环境，在Diaglog面板，向默认工程的Form1窗体放一个Opendiag1控件。
2、在默认工程的Form1窗体，再放一个Edit1控件，两个Button控件，分别设置其Captain属性为：打开和修改时间。
3、双击打开按钮，进入OnClick事件方法，代码如下。
4、接着双击修改时间按钮，进入OnClick事件方法，代码如下。
5、F9运行程序，点击打开按钮选择文件，选择C:\vcredist.bmp，再点击修改时间，弹出文件创建或最近一次修改的时间。
6、在文件目录找到该文件比对文件属性时间和程序获取一致，获取时间成功。
OK，关于formatdatetime delphi和formatdatetime函数的内容到此结束了，希望对大家有所帮助。