單位系統
函數原型函數日期:TDateTime
示例過程表單1.button1click（發送方:對象）；
開始
標簽1。標題:=‘今天是‘+DateToStr（日期）；
結束；
-
DateTimeToStr日期時間轉換為內部訓練字符串（1996/12/2009:12:20pm）。
-
單位系統
函數原型函數datetime tostr（datetime:tdatetime）:string；
示例過程表單1.button1click（發送方:對象）；
開始
標簽1。標題:= DateTimeToStr（現在）；
結束；
-
日期時間字符串日期時間被轉換為自訓練字符串。
-
單位系統
函數原型過程datetime tostring（var result:string；常量格式:
字符串；DateTime:TDateTime）；
示例過程表單1.formcreate（發送方:對象）；
定義變量
s:字符串；
開始
日期時間字符串（s，dddd，mmmm d，yyyy“at“hh:mm
AM/PM’，現在）；
標簽1。標題:= s；
結束；
結果12月20日星期五晚上09:20 1996。
-
* * * *請參考下面的格式。格式化日期時間。
-
DateToStr日期被轉換為內部訓練字符串。(1996/12/20)
-
單位系統
函數原型functiondatetostr（日期:tdatetime）:字符串；
模型
程序t表格1。Button1Click（發件人:to object）；
開始
標簽1。標題:=‘今天是‘+DateToStr（日期）；
結束；
# Date，DateToStr示例
-
星期幾，今天是星期幾？
-
單位系統
函數原型函數星期幾（日期:tdatetime）:整數；
返回值是壹個整數1~7。
周日是1。
模型
程序t表格1。Button1Click（發件人:to object）；
定義變量
ADate:TDateTime；
天數:數組【1..7】的字符串；
開始
days【1】:=‘Sunday‘；
days【2】:=‘星期壹‘；
days【3】:=‘星期二‘；
days【4】:=‘星期三‘；
days【5】:=‘星期四‘；
days【6】:=‘Friday‘；
days【7】:=‘星期六‘；
ADate:= StrToDate（edit 1。文字）；
show message（edit 1text+‘是壹個“+days【day ofweek（ADate）】；
結束；
# StrToDate，DayOfWeek示例
-
DecodeDate將TDateTime類型的日期變量轉換為Word類型。
-
模型
程序t表格1。Button1Click（發件人:to object）；
定義變量
present:TDateTime；
年、月、日、小時、分、秒、毫秒:Word
開始
Present:=現在；
解碼日期（現在、年、月、日）；
標簽1。標題:=‘今天是星期幾‘+IntToStr（星期幾）+‘月份‘
+ IntToStr（月）+‘of Year‘+IntToStr（年）；
解碼時間（當前、小時、分鐘、秒、毫秒）；
標簽2。標題:=‘時間是分鐘‘+IntToStr（Min）+‘小時‘
+ IntToStr（小時）；
結束；
#解碼日期、解碼時間示例
-
DecodeTime將TDateTime類型的時間變量轉換為Word類型。
-
單位系統
函數原型過程解碼日期（日期:tdatetimevar年、月、日:字）；
函數原型過程解碼時間（time:tdatetime；var小時、分鐘、秒、毫秒:字）；
示例過程表單1.button1click（發送方:對象）；
定義變量
present:TDateTime；
年、月、日、小時、分、秒、毫秒:Word
開始
Present:=現在；
解碼日期（現在、年、月、日）；
標簽1。標題:=‘今天是第壹天‘+IntToStr（Day）+‘of
月“+ IntToStr（月）+“年“+ IntToStr（年）；
解碼時間（當前、小時、分鐘、秒、毫秒）；
標簽2。標題:=‘時間是分鐘‘+IntToStr（Min）+‘的
Hour‘+IntToStr（小時）；
結束；
-
EncodeDate將Word類型的日期變量轉換為TDateTime類型。
-
模型
程序t表格1。Button1Click（發件人:to object）；
定義變量
MyDate:TDateTime；
開始
我的日期:=編碼日期（str point（edit 1。Text）、str point（edit 2。Text）、str point（edit 3。文本）；
標簽1。caption:= DateToStr（MyDate）；
結束；
-
EncodeTime將Word類型的時間變量轉換為TDateTime類型。
-
單位系統
函數原型function encoded（年、月、日:word）:tdatetime；
函數原型函數編碼時間（小時、分鐘、秒、毫秒:字）:
TDateTime
示例過程表單1.button1click（發送方:對象）；
定義變量
MyDate:TDateTime；
my time:TDateTime；
開始
MyDate:= encoded date（83，12，31）；
標簽1。caption:= DateToStr（MyDate）；
my time:= EncodeTime（0，45，45，7）；
標簽2。標題:= time tostr（my time）；
結束；
模型
程序t表格1。Button1Click（發件人:to object）；
定義變量
my time:TDateTime；
開始
my time:= EncodeTime（0，45，45，7）；
標簽1。標題:= time tostr（my time）；
結束；
-
FormatDateTime根據格式將日期和時間轉換為字符串。
-
單位系統
函數原型functionformatdatetime（const format:string；日期時間:
TDateTime）:string；
* * * *類似於DateTimeToString。
格式格式
內部定值c的短日期格式（1996/12/2009:20:15pm）。
d日期，前面沒有0。(1-31)
日期，以0開頭。(01-31)
Ddd周。（周日）。
Dddd中文版2.01，同上。
Ddddd日期(1996/12/20)
Dddddd日期。（1996 65438+2月20日）
在M月，前面不加0。(1-12)
Mm月份，前面有0。(01-12)
嗯中國展示。（十二月）
Mmmm中文版2.01，同上。
Yy年。(00-99)
年年。(0000-9999)
h小時。(0-23)
Hh小時。(00-23)
n分鐘。(0-59)
Nn分鐘。(00-59)
s秒。(0-59)
Ss秒。(00-59)
t時間。（晚上09:20）
Tt時間。（09:20:65438+下午05點）
Am/pm分別顯示Am或pm（如果大寫，則為大寫）。
A/p單獨顯示a或p。
模型
以下示例將“會議時間為2月15日星期三1995上午10:30”分配給字符串變量s。
S := FormatDateTime（“會議於“年月日，日，“時，分，上午/下午“，
StrToDateTime（‘2/15/95 10:30am‘）；//?
-
現在返回當前日期和時間。
-
單位系統
函數原型function Now:TDateTime；
模型
程序t表格1。Button1Click（發件人:to object）；
開始
標簽1。標題:= DateTimeToStr（現在）；
結束；
#現在，日期時間表示例
-
StrToDate將字符串轉換為TDateTime的日期。
-
單位系統
函數原型functions date（const s:string）:tdatetime；
示例過程表單1.button1click（發送方:對象）；
定義變量
ADate:TDateTime；
開始
ADate:= StrToDate（edit 1。文字）；
標簽1。標題:= DateToStr（ADate）；
結束；
模型
程序t表格1。Button1Click（發件人:to object）；
定義變量
ADate:TDateTime；
天數:數組【1..7】的字符串；
開始
days【1】:=‘Sunday‘；
days【2】:=‘星期壹‘；
days【3】:=‘星期二‘；
days【4】:=‘星期三‘；
days【5】:=‘星期四‘；
days【6】:=‘Friday‘；
days【7】:=‘星期六‘；
ADate:= StrToDate（edit 1。文字）；
show message（edit 1text+‘是壹個“+days【day ofweek（ADate）】；
結束；
# StrToDate，DayOfWeek示例
-
字符串轉換為TDateTime時的日期和時間。
-
單位系統
函數原型函數strodatetime（const s:string）:tdatetime；
模型
程序t表格1。Button1Click（發件人:to object）；
定義變量
ADateAndTime:TDateTime；
開始
ADateAndTime:= StrToDateTime（edit 1。文字）；
表1。FieldByName（“時間戳”）。AsDateTime:= ADateAndTime；
結束；
-
StrToTime將字符串轉換為TDateTime的時間。
-
單位系統
函數原型functions RTO time（const s:string）:tdatetime；
模型
程序t表格1。Button1Click（發件人:to object）；
定義變量
ATime:TDateTime；
開始
ATime:= StrToTime（edit 1。文字）；
如果ATime & lt那就0.50
ShowMessage（“早上好”）
其他
ShowMessage（“下午好”）；
結束；
-
Time返回當前時間。
-
單位系統
函數原型函數時間:TDateTime
模型
程序t表格1。Timer1Timer（發送方:to object）；
定義變量
DateTime:TDateTime；
str:字符串；
開始
DateTime:= Time；//存儲當前日期和時間
str := TimeToStr（日期時間）；//將時間轉換成字符串
標題:= str//在窗體標題上顯示時間
{請註意，這可以通過以下代碼行完成:
caption:= Time tostr（Time）；}
結束；
#時間，時間測試示例
-
TimeToStr時間被轉換為內部訓練字符串。（09:20:65438+下午05點）
-
單位系統
函數原型function time tostr（time:tdatetime）:string；
過程配置存儲程序
New分配指針p的存儲空間，
大小是p表示的類型的大小。
-
Dispose釋放New。
-
單元系統
函數原型過程New（var P:指針）；
函數原型過程Dispose（var P:指針）；
示例類型
普利斯特裏plistentry
TListEntry =記錄
下壹個:PListEntry
文本:字符串；
計數:整數；
結束；
定義變量
List，P:plist entry；
開始
...
新（P）；
P^.next:= List；
P^.text:=‘Hello world’；
P^.計數:= 1；
list:= P；
...
處置；
…
結束；
模型
類型
str 18 = string【18】；
定義變量
p:^str18；
開始
新（P）；
P^ :=“現在妳看到了。。。”；
處置；{現在妳沒有了...}
結束；
-
GetMem配置指針P的內存空間，大小可以自行設置。
-
模型
定義變量
f:文件；
大小:整數；
緩沖區:PChar
開始
assign file（F，‘test . txt‘）；
重置（F，1）；
嘗試
size:= FileSize（F）；
get mem（Buffer，Size）；
嘗試
block read（f，Buffer^，大小）；
ProcessFile（緩沖區，大小）；
最後
FreeMem（緩沖區）；
結束；
最後
close file（F）；
結束；
結束；
幾乎所有與系統相關的常用時間函數都在這裏。妳問的每個問題都很準確。這是唯壹的答案。