系統函式

# FastWeb 系統函式

適用平臺：WEB(桌面)，APP(移動)

該手冊內的內容用於編寫程式時作為參考，包含系統使用的函式以及副程式。

# 1. 字串處理函式

# 1.1. CompareStr

function CompareStr(const S1,S2:string):Integer;

該函式用於比較兩個字串，字串需區分大小寫。

參數	說明
S1	待比較的字串
S2	待比較的字串

返回值：如果S1與S2不相同，則函式的返回值不為0；如果S1與S2相同，則返回值為0。
示例：

//JScript
  //定義並賦值
  var s1,s2,s3,s4;
  s1 = "Hi,Hello";
  s2 = "HI,Hello";
  s3 = "book";
  s4 = "book";
  //判定s1,s2是否相同
  if (CompareStr(s1,s2) == 0){
    ShowMessage("string s1 and s2 are equal."); //相同
	}
  else{
    ShowMessage("string s1 and s2 are not equal.");  //不同
  }
  //判定s3,s4是否相同
  if (CompareStr(s3,s4) == 0){
    ShowMessage("string s3 and s4 are equal.");  //相同
  }
  else{
    ShowMessage("string s3 and s4 are not equal.");  //不同
  }

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

//PasScript
//定義
var
  s1: String;
  s2: String;
  s3: String;
  s4: String;
begin
  //賦值
  s1 := 'Hi,Hello';
  s2 := 'HI,Hello';
  s3 := 'book';
  s4 := 'book';
  //判斷s1,s2是否相同
  if CompareStr(s1,s2) = 0 then
    ShowMessage('string s1 and s2 are equal.') //相同
  else
    ShowMessage('string s1 and s2 are not equal.'); //不同
  if CompareStr(s3,s4) = 0 then
    ShowMessage('string s3 and s4 are equal.') //相同
  else
    ShowMessage('string s3 and s4 are not equal.');   //不同
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

// Make sure to add code blocks to your code group

運行結果

string s1 and s2 are not equal. string s3 and s4 are equal.

# 1.2. CompareText

function CompareText(S1: String; S2: String): Integer;

該函式通過序數值比較兩個字串，不區分大小寫。

參數	說明
S1	待比較的字串
S2	待比較的字串

返回值：如果S1與S2不相同，則函式的返回值不為0；如果S1與S2相同，則返回值為0。
示例：

//JScript
  //定義並賦值
  var s1,s2,s3,s4;
  s1 = "Hi,Hello";
  s2 = "HI,Hello";
  s3 = "book";
  s4 = "book";
  //判定s1,s2是否相同
  if (CompareText(s1,s2) == 0){
    ShowMessage("string s1 and s2 are equal.");   //相同
	}
  else{
    ShowMessage("string s1 and s2 are not equal."); //不同
  }
  //判定s3,s4是否相同
  if (CompareText(s3,s4) == 0){
    ShowMessage("string s3 and s4 are equal.");  //相同
  }
  else{
    ShowMessage("string s3 and s4 are not equal.");  //不同
  }

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

//PasScript
//定義
var
  s1: String;
  s2: String;
  s3: String;
  s4: String;
begin
  //賦值
  s1 := 'Hi,Hello';
  s2 := 'HI,Hello';
  s3 := 'book';
  s4 := 'book';
  //判定s1,s2是否相同
  if CompareText(s1,s2) = 0 then
    ShowMessage('string s1 and s2 are equal.') //相同
  else
    ShowMessage('string s1 and s2 are not equal.'); //不同
  //判定s3,s4是否相同
  if CompareText(s3,s4) = 0 then
    ShowMessage('string s3 and s4 are equal.') //相同
  else
    ShowMessage('string s3 and s4 are not equal.');//不同
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

// Make sure to add code blocks to your code group

運行結果

string s1 and s2 are equal. string s3 and s4 are equal.

# 1.3. Copy

function Copy(S: String; Index,Count: Integer): String;

該函式用於返回一個字串的字串或者動態陣列中的一個元素。

參數	說明
S	待取的字串
Index	整形表達式，作為擷取字串或元素的起始位置
Count	整形表達式，表示擷取的字元數目

返回值：函式返回擷取的字串或陣列。
示例：

//JScript
  var s1,s3;
  s1 = "Hi,Hello";
  //擷取字串從第一位開始至第四位為新的字串
  s3 = Copy(s1,1,4);
  ShowMessage(s3);

1
2
3
4
5
6

//PasScript
var
  s1: String;
  s3: String;
begin
  s1 := 'Hi,Hello';
  //擷取字串從第一位開始至第四位為新的字串
  s3 := Copy(s1,1,4);
  ShowMessage(s3);
end;

1
2
3
4
5
6
7
8
9
10

// Make sure to add code blocks to your code group

運行結果：

Hi,H

# 1.4. LeftStr

function LeftStr(const AText: WideString; const ACount: Integer): WideString;

該函式在字串的開始處返回指定長度的字串。

參數	說明
AText	一個字串表達式
ACount	一個整型表達式，表示函式返回的字串長度

返回值：函式返回擷取的字串。
示例：

//JScript
ShowMessage(LeftStr("IsoFace",3));

1
2

//PasScript
begin
  ShowMessage(LeftStr('IsoFace',3));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果

Iso

# 1.5. Length

fucntion Length(S): Integer;

該函式返回字串的字元數。

參數	說明
S	一個字串表達式

返回值：函式返回字串的長度數值。
示例：

//JScript
  var s1,s3;
  s1 = "Hi,Hello";
  s3 = IntToStr(Length(s1));
  ShowMessage("String length：" + s3);

1
2
3
4
5

//PasScript
var
  s1: String;
  s3: String;
begin
  s1 := 'Hi,Hello';
  s3 := IntToStr(Length(s1));
  ShowMessage('String length：' + s3);
end;

1
2
3
4
5
6
7
8
9

// Make sure to add code blocks to your code group

運行結果：

String length：8

# 1.6. LowerCase

function LowerCase(const S: string): String;

該函式將字串轉換為小寫格式。

參數	說明
S	待轉換的字串

返回值：函式返回指定的字串的小寫格式。
示例：

//JScript
  var s1;
  s1 = "Hi,Hello";
  s1 = LowerCase(s1);
  ShowMessage(s1);

1
2
3
4
5

//PasScript
var
  s1: String;
begin
  s1 := 'Hi,Hello';
  s1 := LowerCase(s1);
  ShowMessage(s1);
end;

1
2
3
4
5
6
7
8

// Make sure to add code blocks to your code group

運行結果

hi,hello

# 1.7. Pos

function Pos(SubStr: String; S: String): Integer;

該函式返回子字串第一次出現在指定字串中的索引值。

參數	說明
SubStr	是一個要查詢的字串表達式
S	源字串

返回值：如果字串在源字串中存在，則函式返回子字串在源字串中首次出現的位置，否則函式返回0。
示例：

//JScript
  var s1,s2,s3;
  s1 = "Hi,Hello";
  s2 = "He";
  s3 = IntToStr(Pos(s2,s1));
  ShowMessage("String position：" + s3);

1
2
3
4
5
6

//PasScript
var
  s1: String;
  s2: String;
  s3: String;
begin
  s1 := 'Hi,Hello';
  s2 := 'He';
  s3 := IntToStr(Pos(s2,s1));
  ShowMessage('String position：' + s3);
end;

1
2
3
4
5
6
7
8
9
10
11

// Make sure to add code blocks to your code group

運行結果：

String position：4

# 1.8. PosEx

function PosEx(const SubStr, S: string; Offset: Integer): Integer;

該函式返回子字串在源字串中的索引值。

部分	說明
SubStr	欲查詢的字串表達式
S	源字串
Offset	是一個整型表達式，表示從源字串的什麼位置開始檢索

返回值：函式在Offset開始處返回SubStr在S中的索引值。如果子字串沒有發現或Offset大於S的長度或者Offset小於1，函式返回0。
示例：

//JScript
  ShowMessage(IntToStr(PosEx("Hello","Hello IsoFace",2)));
  ShowMessage(IntToStr(PosEx("IsoFace","Hello IsoFace",2)));

1
2
3

//PasScript
begin
  ShowMessage(IntToStr(PosEx('Hello','Hello IsoFace',2)));
  ShowMessage(IntToStr(PosEx('IsoFace','Hello IsoFace',2)));
end;

1
2
3
4
5

// Make sure to add code blocks to your code group

運行結果：

0 7

# 1.9. QuotedStr

function QuotedStr(const S: String): String;

該函式返回字串的引證串，引證串是在字串的開始和結尾新增」'「。

參數	說明
S	字串表達式

返回值：函式返回參數指定字串的引證串。
示例：

//JScript
  var s1,s2;
  s1 = "Hi,Hello";
  s2 = "He";
  ShowMessage(s1);
  ShowMessage(QuotedStr(s2));

1
2
3
4
5
6

//PasScript
var
  s1: String;
  s2: String;
begin
  s1 := 'Hi,Hello';
  s2 := 'He';
  ShowMessage(s1);
  ShowMessage(QuotedStr(s2));
end;

1
2
3
4
5
6
7
8
9
10

// Make sure to add code blocks to your code group

運行結果：

Hi,Hello 'He'

# 1.10. RightStr

function RightStr(const AText: WideString; const ACount: Integer): WideString;

該函式返回字串尾端開始指定長度的字串。

參數	說明
AText	一個字串表達式
ACount	一個整型表達式，表示函式返回的字串長度

返回值：函式返回擷取的字串。
示例：

//JScript
  ShowMessage(RightStr("IsoFace",4));

1
2

//PasScript
begin
  ShowMessage(RightStr('IsoFace',4));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果

Face

# 1.11. SameText

function SmaeText(const S1,S2:String): Boolean;

該函式根據序數值比較兩個字串，不區分大小寫。

參數	說明
S1、S2	待比較的字串表達式

返回值：如果S1與S2相等，函式返回值為True，否則為False。
示例：

//JScript
  var s1,s2;
  s1 = "he is a box";
  s2 = "He is a box";
  if (SameText(s1,s2)){
    ShowMessage("Same");
  }

1
2
3
4
5
6
7

//PasScript
var
  s1: String;
  s2: String;
begin
  s1 := 'he is a box';
  s2 := 'He is a box';
  if SameText(s1,s2) Then
  begin
    ShowMessage('Same');
  End;
end;

1
2
3
4
5
6
7
8
9
10
11
12

// Make sure to add code blocks to your code group

運行結果

Same

# 1.12. StringOfChar

function StringOfChar(Ch: Char; Count: Integer): String;

該函式返回一個循環指定次數字元的字串。

部分	說明
Ch	字元型別表達式，指定字串的內容
Count	整型表達式，指定函式返回的字串由多少個字元組成

返回值：函式返回一個由Count指定個數和Ch指定字元的字串。
示例：

//JScript
  var s1,s2,s3;
  s1 = "A";
  ShowMessage(StringOfChar(S1,5) + "  " + StringOfChar("C",5));

1
2
3
4

//PasScript
var
  s1: Char;
  s2: Integer;
  s3: String;
begin
  s1 := 'A';
  ShowMessage(StringOfChar(S1,5) + '  ' + StringOfChar('C',5));
end;

1
2
3
4
5
6
7
8
9

// Make sure to add code blocks to your code group

運行結果：

AAAAA CCCCC

# 1.13. Trim

function Trim(const S: String): String;

該函式用於刪除字串的首尾空格。

部分	說明
S	字串表達式

返回值：函式返回去掉首尾空格后的新字串。
示例：

//JScript
  var s1,s2;
  s1 = "Hi,H e  llo";
  s2 = "   IsoFace   ";
  ShowMessage(Trim(s1));
  ShowMessage(Trim(s2));

1
2
3
4
5
6

//PasScript
var
  s1: String;
  s2: String;
begin
  s1 := 'Hi,H e  llo';
  s2 := '   IsoFace   ';
  ShowMessage(Trim(s1));
  ShowMessage(Trim(s2));
end;

1
2
3
4
5
6
7
8
9
10

// Make sure to add code blocks to your code group

運行結果：

Hi,H e llo IsoFace

# 1.14. TrimLeft

function TrimLeft(const S: String): String;

該函式用於刪除字串的首部空格。

部分	說明
S	字串表達式

返回值：函式返回去掉首部空格后的新字串。
示例：

//JScript
  var s1,s2;
  s1 = "   Hi,H e  llo";
  s2 = "   IsoFace   ";
  ShowMessage(TrimLeft(s1));
  ShowMessage(TrimLeft(s2));

1
2
3
4
5
6

//PasScript
var
  s1: String;
  s2: String;
begin
  s1 := '   Hi,H e  llo';
  s2 := '   IsoFace   ';
  ShowMessage(TrimLeft(s1));
  ShowMessage(TrimLeft(s2));
end;

1
2
3
4
5
6
7
8
9
10

// Make sure to add code blocks to your code group

運行結果：

Hi,H e llo IsoFace

# 1.15. TrimRight

function TrimRight(const S: String): String;

該函式用於刪除字串的尾部空格。

部分	說明
S	字串表達式

返回值：函式返回去掉尾部空格后的新字串。
示例：

//JScript
  var s1,s2;
  s1 = "   Hi,H e  llo";
  s2 = "   IsoFace   ";
  ShowMessage(TrimRight(s1));
  ShowMessage(TrimRight(s2));

1
2
3
4
5
6

//PasScript
var
  s1: String;
  s2: String;
begin
  s1 := '   Hi,H e  llo';
  s2 := '   IsoFace   ';
  ShowMessage(TrimRight(s1));
  ShowMessage(TrimRight(s2));
end;

1
2
3
4
5
6
7
8
9
10

// Make sure to add code blocks to your code group

運行結果：

Hi,H e llo IsoFace

# 1.16. UpperCase

function UpperCase(const S: string): String;

該函式將字串轉換為大寫格式。

部分	說明
S	待轉換的字串

返回值：函式返回指定的字串的大寫格式。
示例：

//JScript
  var s1 ;
  s1 = "Hi,Hello";
  s1 = UpperCase(s1);
  ShowMessage(s1);

1
2
3
4
5

//PasScript
var
  s1: String;
begin
  s1 := 'Hi,Hello';
  s1 := UpperCase(s1);
  ShowMessage(s1);
end;

1
2
3
4
5
6
7
8

// Make sure to add code blocks to your code group

運行結果

HI,HELLO

# 2. 科學計算函式

# 2.1. Abs

function Abs(X);

該函式用於返回指定數值的絕對值。

部分	說明
X	實型表達式，只支援浮點數型別的數據

返回值：函式返回參數X指定的絕對值。
示例：

//JScript
  ShowMessage(FloatToStr(Abs(-15)));
  ShowMessage(FloatToStr(Abs(-1.5)));

1
2
3

//PasScript
begin
  ShowMessage(FloatToStr(Abs(-15)));
  ShowMessage(FloatToStr(Abs(-1.5)));
end;

1
2
3
4
5

// Make sure to add code blocks to your code group

運行結果

15 1.5

# 2.2. Exp

function Exp(X: Real): Real;

該函式用於返回指定數的指數。

部分	說明
X	實型表達式

返回值：函式返回e的X次冪，e是自然對數的底。
示例：

//JScript
  ShowMessage(FloatToStr(Exp(2)));
  ShowMessage(FloatToStr(Exp(1.5)));
  ShowMessage(FloatToStr(Exp(0)));

1
2
3
4

//PasScript
begin
  ShowMessage(FloatToStr(Exp(2)));
  ShowMessage(FloatToStr(Exp(1.5)));
  ShowMessage(FloatToStr(Exp(0)));
end;

1
2
3
4
5
6

// Make sure to add code blocks to your code group

運行結果：

7.38905609893065 4.48168907033806 1

# 2.3. Int

function Int(X: Extended):Extended;

該函式返回實數的整數部分。

部分	說明
X	實型表達式

返回值：函式返回參數X的整數部分。
示例：

//JScript
  ShowMessage(FloatToStr(Int(-12.025)));
  ShowMessage(FloatToStr(Int(12.012)));
  ShowMessage(FloatToStr(Frac(1.25)));

1
2
3
4

//PasScript
begin
  ShowMessage(FloatToStr(Int(-12.025)));
  ShowMessage(FloatToStr(Int(12.012)));
  ShowMessage(FloatToStr(Frac(1.25)));
end;

1
2
3
4
5
6

// Make sure to add code blocks to your code group

運行結果：

-12 12 0.25

# 2.4. IsZero

function IsZero(const A: Extended; Epsilon: Extended): Boolean;

該函式測試實型表達式是否等於或者接近零。

部分	說明
A	待測的表達式
Epsilon	與零之間的差距

返回值：如果A的值為0，函式返回True，如果指定Epsilon參數，當A與0的差距小於等於Epsilon時，函式返回True，否則返回False。
示例：

//JScript
function UgButton01OnClick(sender)
{
  if (IsZero(5,5.1)){
    ShowMessage("Close Zero.");
  }
  if (IsZero(3000.1 , 3000)){
    ShowMessage("Close Zero.");
  }
  else{
    ShowMessage("Over.");
  }
}

1
2
3
4
5
6
7
8
9
10
11
12
13
14

//PasScript
begin
  if IsZero(5,5.1) then
    ShowMessage('Close Zero.');
  if IsZero(3000.1 , 3000) then
    ShowMessage('Close Zero.')
  else
    ShowMessage('Over.');
end;

1
2
3
4
5
6
7
8
9

// Make sure to add code blocks to your code group

運行結果：

Close Zero. Over.

# 2.5. Ln

function Ln(X: Real):Real;

該函式用來計算一個數的自然對數。

部分	說明
X	實型表達式

返回值：X的自然對數值。
示例：

//JScript
  ShowMessage(FloatToStr(Ln(35.6)));
  ShowMessage(FloatToStr(Ln(20.6)));

1
2
3

//PasScript
begin
  ShowMessage(FloatToStr(Ln(35.6)));
  ShowMessage(FloatToStr(Ln(20.6)));
end;

1
2
3
4
5

// Make sure to add code blocks to your code group

運行結果：

3.57234563785798 3.02529107579554

# 2.6. Pi

function Pi: Extnded;

函式Pi返回圓周率的值。
返回值：函式Pi返回圓周率的值。
示例：

//JScript
  ShowMessage(FloatToStr(Pi));

1
2

//PasScript
begin
  ShowMessage(FloatToStr(Pi));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

3.14159265358979

# 2.7. Power

function Power(const Base,Exponent: Extended): Extended;

該函式返回底數的任何次冪。

部分	說明
Base	實型表達式，表示一個底數
Exponent	實型表達式，表示一個指數

返回值：函式的返回值是Base的Exponent次冪。
示例：

//JScript
  ShowMessage(FloatToStr(Power(2,4)));

1
2

//PasScript
begin
  ShowMessage(FloatToStr(Power(2,4)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

16

# 2.8. Round

function Round(X:Extended): Int64;

該函式將實數四捨五入為整數。

部分	說明
X	實型表達式

返回值：函式的返回值是X四捨五入后的整數。
示例：

//JScript
  ShowMessage(IntToStr(Round(-4.6)));
  ShowMessage(IntToStr(Round(-4.3)));
  ShowMessage(IntToStr(Round(4.6)));
  ShowMessage(IntToStr(Round(4.3)));

1
2
3
4
5

//PasScript
begin
  ShowMessage(IntToStr(Round(-4.6)));
  ShowMessage(IntToStr(Round(-4.3)));
  ShowMessage(IntToStr(Round(4.6)));
  ShowMessage(IntToStr(Round(4.3)));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：

-5 -4 5 4

# 2.9. SameValue

function SameValue(const A, B: Extended; Epsilon: Extended): Boolean;

該函式用於檢測兩個實數是否相同或相近。

部分	說明
A	待比較的實型表達式
B	待比較的實型表達式
Epsilon	實型表達式，表示與零的差距

返回值：當Epsilon為零時，如果A與B相等，函式返回True，否則為False。當Epsilon不為零時，如果A與B的差距小於等於Epsilon，函式返回True，否則為False。
示例：

//JScript
  if (SameValue(10.2,15.2,4)){
    ShowMessage("Same");
  }
  else{
    ShowMessage("Not Same");
  }
  if (SameValue(10.2,15.2,5)){
    ShowMessage("Same");
  }
  else{
    ShowMessage("Not Same");
  }

1
2
3
4
5
6
7
8
9
10
11
12
13

//PasScript
begin
  if SameValue(10.2,15.2,4) then
    ShowMessage('Same')
  else
    ShowMessage('Not Same');
  if SameValue(10.2,15.2,5) then
    ShowMessage('Same')
  else
    ShowMessage('Not Same');
end;

1
2
3
4
5
6
7
8
9
10
11

// Make sure to add code blocks to your code group

運行結果：

Not Same Same

# 2.10. Sqrt

function Sqrt(X:Extended): Extended;

該函式用於計算一個數的平方根。

部分	說明
X	數字達式

返回值：函式返回值是X的平方根。
示例：

//JScript
  ShowMessage(FloatToStr(Sqrt(10.1)));
  ShowMessage(FloatToStr(Sqrt(25)));

1
2
3

//PasScript
begin
  ShowMessage(FloatToStr(Sqrt(10.1)));
  ShowMessage(FloatToStr(Sqrt(25)));
end;

1
2
3
4
5

// Make sure to add code blocks to your code group

運行結果：

3.17804971641414 5

# 2.11. Trunc

function Trunc(X:Extended):Int64;

該函式返回一個實數的整數部分。

部分	說明
X	數字達式

返回值：函式返回X的整數部分。
示例：

//JScript
  ShowMessage(IntToStr(Trunc(12.45)));
  ShowMessage(IntToStr(Trunc(-12.45)));
  ShowMessage(IntToStr(Trunc(0)));

1
2
3
4

//PasScript
begin
  ShowMessage(IntToStr(Trunc(12.45)));
  ShowMessage(IntToStr(Trunc(-12.45)));
  ShowMessage(IntToStr(Trunc(0)));
end;

1
2
3
4
5
6

// Make sure to add code blocks to your code group

運行結果：

12 -12 0

# 3. 序數函式

# 3.1. Ord

function Ord(X);

該函式用於獲取順序型別表達式的順序值。

部分	說明
X	序數型別表達式

返回值：返回一個順序表達式的順序值。
示例：

//JScript
  ShowMessage("'a' ASCII ord:" + IntToStr(Ord("a")));

1
2

//PasScript
begin
  ShowMessage('''a'' ASCII ord:' + IntToStr(Ord('a')));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

'a' ASCII ord：97

# 4. 三角函式

# 4.1. ArcCos

function ArcCos(const X : Extended): Extended;

該函式用於計算參數X的反餘弦值。X的取值在-1至1之間。

部分	說明
X	要計算的數值

返回值：返回指定參數的反餘弦值。
示例：

//JScript
  ShowMessage(FloatToStr(ArcCos(0.5)));

1
2

//PasScript
begin
  ShowMessage(FloatToStr(ArcCos(0.5)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

1.0471975511966

# 4.2. ArcSin

function ArcSin(const X : Extended) : Extended;

該函式用於計算參數X的反正弦值，X的值為-1至1之間。

部分	說明
X	要計算的數值

返回值：返回指定參數的反正弦值。
示例：

//JScript
  ShowMessage(FloatToStr(ArcSin(0.5)));

1
2

//PasScript
begin
  ShowMessage(FloatToStr(ArcSin(0.5)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

0.523598775598299

# 4.3. ArcTan

function ArcTan(const X: Extended): Extended;

該函式計算參數X的反正切值。

部分	說明
X	將要計算反正切的值

返回值：返回指定參數的反正切值。
示例：

//JScript
  ShowMessage(FloatToStr(ArcTan(0.5)));

1
2

//PasScript
begin
  ShowMessage(FloatToStr(ArcTan(0.5)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

返回結果：

0.463647609000806

# 4.4. ArcTan2

function ArcTan2(const Y, X: Extended): Extended;

該函式獲取正確象限中的角度。

部分	說明
X，Y	獲取正確象限角度的參數

返回值：返回正確象限中的角度。
示例：

//JScript
  ShowMessage(FloatToStr(ArcTan2(4,5)));

1
2

//PasScript
begin
  ShowMessage(FloatToStr(ArcTan2(4,5)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

返回結果：

0.67474094223553

# 4.5. Cos

function Cos(Const X: Extended): Extended;

該函式計算參數X的餘弦值。

部分	說明
X	將要計算餘弦的值

返回值：返回指定參數的餘弦值。
示例：

//JScript
  ShowMessage(FloatToStr(Cos(0.5)));

1
2

//PasScript
begin
  ShowMessage(FloatToStr(Cos(0.5)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果

0.877582561890373

# 4.6. Sin

function Sin(const X: Extended): Extended;

該函式計算參數X的正弦值。

部分	說明
X	將要計算正弦的值

返回值：返回指定參數的正弦值。
示例：

//JScript
  ShowMessage(FloatToStr(Sin(0.5)));

1
2

//PasScript
begin
  ShowMessage(FloatToStr(Sin(0.5)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

0.479425538604203

# 5. 統計函式

# 6. 金融函式

# 6.1. DoubleDecliningBalance

function DoubleDecliningBalance(const Cost, Salvage: Extended; Life, Period: Integer): Extended;

該函式使用雙倍餘額遞減法或其他方法指定的方法計算一筆資產在給定期間內的折舊值。

部分	說明
Cost	表示資產原值
Salvage	表示資產在折舊期末的價值，也稱為資產殘值
Life	表示折舊期限，也稱作資產的使用壽命
Period	表示要計算折舊值的期間

返回值：返回資產的折舊值數據。
示例：

//JScript
  ShowMessage(FloatToStr(DoubleDecliningBalance(800000,80000,6,2)));

1
2

//PasScript
begin
  ShowMessage(FloatToStr(DoubleDecliningBalance(800000,80000,6,2)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

177777.777777778

# 6.2. SYDDepreciation

function SYDDepreciation(const Cost, Salvage: Extended; Life, Period: Integer): Extended;

該函式返回某項資產按年限總和折舊法計算的指定期間的折舊值。

部分	說明
Cost	表示資產原值
Salvage	表示資產在折舊期末的價值，也稱為資產殘值
Life	表示折舊期限，也稱作資產的使用壽命
Period	表示要計算折舊值的期間

返回值：返回折舊的數據值。
示例：

//JScript
  ShowMessage(FloatToStr(SYDDepreciation(200000,40000,6,1)));

1
2

//PasScript
begin
  ShowMessage(FloatToStr(SYDDepreciation(200000,40000,6,1)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

45714.2857142857

# 7. 隨機數函式

# 7.1. RandomRange

function RandomRange[(Range1,Range2:Integer)];

該函式用於產生一個Range1≤X≤Range2的隨機數。

部分	說明
Range	產生隨機數的範圍

返回值：在[Range1，Range2]之間的任意數。
示例：

//JScript
  ShowMessage(IntToStr(RandomRange(0,10)));

1
2

//PasScript
begin
  ShowMessage(IntToStr(RandomRange(0,10)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：運行該語句后產生一個大於等於0小於10的整數。

# 8. 單位換算函式

# 9. 日期函式

# 9.1. CurrentYear

function CurrentYear: Word;

返回系統目前的年份。
返回值：函式返回系統目前的年份。
示例：

//JScript
  var Yearis;
  Yearis = CurrentYear();
  ShowMessage(IntToStr(Yearis));

1
2
3
4

//PasScript
var
  Yearis: word;
begin
  Yearis := CurrentYear();
  ShowMessage(IntToStr(Yearis));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

# 9.2. Date

function Date: TDateTime;

獲得系統目前日期。
返回值：返回系統目前日期。
示例：

//JScript
  ShowMessage(DateToStr(Date));

1
2

//PasScript
begin
  ShowMessage(DateToStr(Date));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

顯示系統目前日期，比如2019-10-06

# 9.3. DateOf

function DateOf(const AValue: TDateTime): TDateTime;

該函式用於將給定的TDateTime值轉化為僅包含日期時間資訊的TDateTime值。

部分	說明
AValue	待轉換的日期時間值

返回值：返回僅包含日期的TDateTime值。
示例：

//JScript
  ShowMessage(DateToStr(DateOf(Now)));

1
2

//PasScript
begin
  ShowMessage(DateToStr(DateOf(Now)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：顯示目前日期。

# 9.4. DateTimeToFileDate

function DateTimeToFileDate(DateTime: TDateTime): Integer;

該函式將TDateTime對象的日期時間表示形式轉換為OS時間資訊。

部分	說明
DateTime	待轉換的日期時間值

返回值：返回參數對應的OS時間資訊。
示例：

//JScript
  ShowMessage("System Time：" + IntToStr(DateTimeToFileDate(Now)));

1
2

//PasScript
begin
  ShowMessage('System Time：' + IntToStr(DateTimeToFileDate(Now)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：顯示操作系統的對應時間。

# 9.5. DateTimeToStr

function DateTimeToStr(DateTime:TDateTime):String;

該函式將TDateTime的值轉換為字串型別。

參數	說明
DateTime	TDateTime日期時間型別

返回值：TDateTime值轉換后的字串型別。
示例：

//JScript
  ShowMessage(DateTimeToStr(Now));

1
2

//PasScript
begin
  ShowMessage(DateTimeToStr(Now));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

返回目前的系統時間，例如 2020-01-20 12:30:05

# 9.6. DateToStr

function DateToStr(DateTime:TDateTime):String;

該函式將TDateTime的值轉換為字串型別。

參數	說明
DateTime	TDateTime日期時間型別

返回值：TDateTime值轉換后的字串型別。
示例：

//JScript
  ShowMessage(DateToStr(Now));
  ShowMessage(DateToStr(Date()));

1
2
3

//PasScript
begin
  ShowMessage(DateToStr(Now));
  ShowMessage(DateToStr(Date()));
end;

1
2
3
4
5

// Make sure to add code blocks to your code group

運行結果：

返回目前的系統時間，例如 2020-01-20 返回目前的系統時間，例如 2020-01-20

# 9.7. DayOf

function DayOf(const AValue: TDateTime): Word;

該函式返回指定TDateTime值表示日期的值。

部分	說明
AValue	表示日期

返回值：返回指定日期的值(1-31)。
示例

//JScript
  ShowMessage(IntToStr(DayOf(Now)));

1
2

//PasScript
begin
  ShowMessage(IntToStr(DayOf(Now)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：顯示目前的日期數值。

# 9.8. DayOfTheMonth

function DayOfTheMonth(const AValue: TDateTime): Word;

該函式用於計返回指定月份的日期數值。

部分	說明
AValue	指定日期

返回值：返回指定日期的日的值（1-31）。
示例：

//JScript
  ShowMessage(IntToStr(DayOf(StrToDate("2020-11-1"))) + " " + IntToStr(DayOfTheMonth(StrToDate("2020-11-11"))));

1
2

//PasScript
begin
  ShowMessage(IntToStr(DayOf(StrToDate('2020-11-1'))) + ' ' + IntToStr(DayOfTheMonth(StrToDate('2020-11-11'))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

1 11

# 9.9. DayOfTheWeek

function DayOfTheWeek(const AValue: TDateTime): Word;

該函式用於計算指定的日期為星期幾。此處以星期一開始計數。

部分	說明
AValue	待計算的日期型別

返回值：返回計算后的Word型別值（1-7）。
示例：

//JScript
  ShowMessage(IntToStr(DayOfTheWeek(Date())) + " " + IntToStr(DayOfTheWeek(StrToDate("2020-3-11"))));

1
2

//PasScript
begin
  ShowMessage(IntToStr(DayOfTheWeek(Date())) + ' ' + IntToStr(DayOfTheWeek(StrToDate('2020-3-11'))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：顯示目前日期的星期數，2020年3月11日顯示為3，表示為星期三。

# 9.10. DayOfTheYear

function DayOfTheYear(const AValue: TDateTime): Word;

該函式用於計算指定的日期為一年中的第幾天。

部分	說明
AValue	待計算的日期型別

返回值：返回計算后的Word型別值。
示例：

//JScript
  ShowMessage(IntToStr(DayOfTheYear(StrToDate("2020-11-01"))));

1
2

//PasScript
begin
  ShowMessage(IntToStr(DayOfTheYear(StrToDate('2020-11-01'))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

306

# 9.11. DayOfWeek

function DayOfWeek(Date: TDateTime): Integer;

該函式計算指定的日期為星期幾。

參數	說明
Date	待計算的日期型別

返回值：返回計算后的整數(1~7)。
示例：

//JScript
   switch (DayOfWeek(date())){
   case 1: {ShowMessage("Today is Sunday");}
   case 2: {ShowMessage("Today is Monday");}
   case 3: {ShowMessage("Today is Tuesday");}
   case 4: {ShowMessage("Today is Wednesday");}
   case 5: {ShowMessage("Today is Thursday");}
   case 6: {ShowMessage("Today is Friday");}
   case 7: {ShowMessage("Today is Saturday");}
   }

1
2
3
4
5
6
7
8
9
10

//PasScript
begin
   case DayOfWeek(date()) Of
   1: ShowMessage('Today is Sunday');
   2: ShowMessage('Today is Monday');
   3: ShowMessage('Today is Tuesday');
   4: ShowMessage('Today is Wednesday');
   5: ShowMessage('Today is Thursday');
   6: ShowMessage('Today is Friday');
   7: ShowMessage('Today is Saturday');
   End;
end;

1
2
3
4
5
6
7
8
9
10
11
12

// Make sure to add code blocks to your code group

運行結果：

顯示今天的星期數

# 9.12. DaysBetween

function DaysBetween(const ANow, AThen: TDateTime): Integer;

該函式用於計算指定的兩個日期之間相差的天數。

部分	說明
ANow	待比較的日期時間表達式
AThen	待比較的日期時間表達式

返回值：返回參數指定的兩個日期相差的天數。
示例：

//JScript
  ShowMessage(IntToStr(DaysBetween(StrToDate("2010-3-29"),StrToDate("2020-11-1"))));

1
2

//PasScript
begin
  ShowMessage(IntToStr(DaysBetween(StrToDate('2010-3-29'),StrToDate('2020-11-1'))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

3870

# 9.13. DaysInAMonth

function DaysInAMonth(const AYear, AMonth: Word): Word;

計算指定年份的指定月份的天數。

部分	說明
AYear	指定的年份
AMonth	指定的月份

返回值：返回指定年份的指定月份的天數。
示例：

//JScript
  var Yearis,Monthis;
  Yearis = YearOf(StrToDate("2020-11-1"));
  Monthis = MonthOf(StrToDate("2020-11-1"));
  ShowMessage(IntToStr(DaysInAMonth(YearIs,MonthIs)) + " " + IntToStr(DaysInAMonth(2020,2)));

1
2
3
4
5

//PasScript
var
  Yearis,Monthis: Integer;
begin
  Yearis := YearOf(StrToDate('2020-11-1'));
  Monthis := MonthOf(StrToDate('2020-11-1'));
  ShowMessage(IntToStr(DaysInAMonth(YearIs,MonthIs)) + ' ' + IntToStr(DaysInAMonth(2020,2)));
end;

1
2
3
4
5
6
7
8

// Make sure to add code blocks to your code group

運行結果：

30 29

# 9.14. DaysInAYear

function DaysInAYear(const AYear: Word): Word;

該函式獲得指定年份的總天數。

部分	說明
AYear	計算總天數的年份

返回值：返回指定年份的總天數，可以獲取閏年的天數。
示例：

//JScript
  ShowMessage(IntToStr(DaysInAYear(YearOf(StrToDate("2020-11-1")))));

1
2

//PasScript
begin
  ShowMessage(IntToStr(DaysInAYear(YearOf(StrToDate('2020-11-1')))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

366

# 9.15. DaysInMonth

function DaysInMonth(const AValue: TDateTime): Word;

該函式用於獲得一個月的總天數。

部分	說明
AValue	待計算月份總天數的日期

返回值：返回指定日期所在月份的總天數。
示例：

//JScript
  ShowMessage(IntToStr(DaysInMonth(StrToDate("2020-11-1"))));

1
2

//PasScript
begin
  ShowMessage(IntToStr(DaysInMonth(StrToDate('2020-11-1'))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

30

# 9.16. DaysInYear

function DaysInYear(const AValue: TDateTime): Word;

該函式用於獲得指定日期時間型別的表達式所在的年份的總天數，如果是閏年，總天數為366。

部分	說明
AValue	待轉換的日期時間型別值

返回值：返回指定日期時間型別的表達式所在年份的總天數。
示例：

//JScript
  ShowMessage(IntToStr(DaysInYear(StrToDate("2020-11-1"))));

1
2

//PasScript
begin
  ShowMessage(IntToStr(DaysInYear(StrToDate('2020-11-1'))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

366

# 9.17. DaysSpan

function DaySpan(const ANow, AThen: TDateTime): Double;

該函式用於計算兩個日期時間型別表達式所描述的日期相差的天數。

部分	說明
ANow	待比較的日期時間表達式
AThen	待比較的日期時間表達式

返回值：返回參數給定兩個日期相差的天數，是Double型變數。
示例：

//JScript
  ShowMessage(FloatToStr(DaySpan(StrToDate("2010-11-1"),StrToDate("2020-11-1"))));

1
2

//PasScript
begin
  ShowMessage(FloatToStr(DaySpan(StrToDate('2010-11-1'),StrToDate('2020-11-1'))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

3653

# 9.18. DecodeDateFully

function DecodeDateFully(const DateTime: TDateTime; var Year, Month, Day, DOW: Word): Boolean;

該函式用於分解TDateTime型別表達式為年、月、日和周值。星期數以星期日作為序數的開始。

部分	說明
DateTime	待分解的日期時間表達式
Year	得到TDateTime值分解后的年份
Month	得到TDateTime值分解后的月份
Day	得到TDateTime值分解后的日
Dow	日期表達式的星期

返回值：如果日期表達式所在的年份是閏年，函式返回True，否則返回False。
示例：

//JScript
  var Year,Month,Day,Dow;
  DecodeDateFully(StrToDate("2020-11-1"),Year,Month,Day,Dow);
  ShowMessage(IntToStr(Year) + "/" + IntToStr(Month) + "/"  + IntToStr(Day) + " WeekNumber:" + IntToStr(Dow));

1
2
3
4

//PasScript
var
  Year,Month,Day,Dow: Word;
begin
  DecodeDateFully(StrToDate('2020-11-1'),Year,Month,Day,Dow);
  ShowMessage(IntToStr(Year) + '/' + IntToStr(Month) + '/'  + IntToStr(Day) + ' WeekNumber:' + IntToStr(Dow));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

# 9.19. EncodeDate

function EncodeDate(Year,Month,Day: Word): TDateTime;

該函式把指定的年、月、日轉換成對應的TDateTime值。

參數	說明
Year	待轉換TDateTime型別日期值的年份
Month	待轉換TDateTime型別日期值的月份
Day	待轉換TDateTime型別日期值的日

返回值：TDateTime日期值。
示例：

//JScript
  ShowMessage(DateToStr(EncodeDate(2005,07,07)));

1
2

//PasScript
begin
  ShowMessage(DateToStr(EncodeDate(2005,07,07)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

2005-07-07

# 9.20. EncodeDateDay

function EncodeDateDay(const AYear, ADayOfYear: Word): TDateTime;

該函式把指定年份的多少天轉換為對應的DateTime日期。

部分	說明
AYear	待轉換的TDateTime型別日期值的年份
ADayOfYear	指定年份的第多少天

返回值：返回TDateTime日期值。
示例：

//JScript
  var DateTimeIs;
  DateTimeIs = EncodeDateDay(2020,306);
  ShowMessage(DateToStr(DateTimeIs));

1
2
3
4

//PasScript
var
  DateTimeIs: TDateTime;
begin
  DateTimeIs := EncodeDateDay(2020,306);
  ShowMessage(DateToStr(DateTimeIs));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：

2020-11-01

# 9.21. EncodeDateMonthWeek

function EncodeDateMonthWeek(const AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word): TDateTime;

該函式把指定年份、月份、該月的第幾周和周值轉換成的日期時間型別。

部分	說明
AYear	日期表達式的年份
AMonth	日期表達式的月份
AWeekOfMonth	該日是當月的第幾周
ADayOfWeek	當日的周值

返回值：TDateTime日期值。
示例：

//JScript
  var DateTimeIs;
  DateTimeIs = EncodeDateMonthWeek(2020,5,3,4);
  ShowMessage(DateTimeToStr(DateTimeIs));

1
2
3
4

//PasScript
var
  DateTimeIs: TDateTime;
begin
  DateTimeIs := EncodeDateMonthWeek(2020,5,3,4);
  ShowMessage(DateTimeToStr(DateTimeIs));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：

2020-05-21

# 9.22. EncodeDateTime

function EncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word): TDateTime;

把指定的年、月、日、時、分、秒和毫秒轉換成對應的TDateTime值。

部分	說明
AYear	日期表達式的年份
AMonth	日期表達式的月份
ADay	日期表達式表示的日
AHour	日期表達式表示的小時
AMinute	日期表達式表示的分鐘
ASecond	日期表達式表示的秒鐘
AMillisecond	日期表達式表示的毫秒

返回值：返回TDateTime日期值。
示例：

//JScript
  var DateTimeIs;
  DateTimeIs = EncodeDateTime(2020,12,8,12,33,33,333);
  ShowMessage(DateTimeToStr(DateTimeIs));

1
2
3
4

//PasScript
var
  DateTimeIs: TDateTime;
begin
  DateTimeIs := EncodeDateTime(2020,12,8,12,33,33,333);
  ShowMessage(DateTimeToStr(DateTimeIs));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：

2020-12-08 12:33:33

# 9.23. EncodeDateWeek

function EncodeDateWeek(const AYear, AWeekOfYear, ADayOfWeek: Word): TDateTime;

該函式用於把指定年份的第幾周的周值轉換成對應的日期時間型別。

部分	說明
AYear	日期表達式的年份
AWeekOfYear	日期表達式該日期是當年的第多少周
ADayOfWeek	日期表達式的星期

返回值：返回TDateTime日期值。
示例：

//JScript
  var DateTimeIs;
  DateTimeIs = EncodeDateWeek(2020,45,1);
  ShowMessage(DateTimeToStr(DateTimeIs));

1
2
3
4

//PasScript
var
  DateTimeIs: TDateTime;
begin
  DateTimeIs := EncodeDateWeek(2020,45,1);
  ShowMessage(DateTimeToStr(DateTimeIs));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：

2020-11-02

# 9.24. EncodeDayOfWeekInMonth

function EncodeDayOfWeekInMonth(const AYear, AMonth, ANthDayOfWeek, ADayOfWeek: Word): TDateTime;

該函式把指定年份、月份和該月的第幾周的某個周值轉換成TDateTime型別。

部分	說明
AYear	日期表達式的年份
AMonth	日期表達式的月份
ANthDayOfWeek	日期表達式的星期值在本月的序號
ADayOfWeek	日期表達式的星期

返回值：TDateTime日期值。
示例：

//JScript
  var DateTimeIs;
  DateTimeIs = EncodeDayOfWeekInMonth(2020,4,2,5);
  ShowMessage(DateTimeToStr(DateTimeIs));

1
2
3
4

//PasScript
var
  DateTimeIs: TDateTime;
begin
  DateTimeIs := EncodeDayOfWeekInMonth(2020,4,2,5);
  ShowMessage(DateTimeToStr(DateTimeIs));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：

2020-04-10

# 9.25. EncodeTime

function EncodeTime(Hour,Min,Sec,MSec: Word): TDateTime;

該函式把指定的小時、分、秒、毫秒轉換成對應的TDateTime型別值。

部分	說明
Hour	待轉換TDateTime型別日期值的小時
Min	待轉換TDateTime型別日期值的分鐘
Sec	待轉換TDateTime型別日期值的秒數
MSec	待轉換TDateTime型別日期值的毫秒

返回值：TDateTime型別值。
示例：

//JScript
  ShowMessage(TimeToStr(EncodeTime(15,33,35,999)));

1
2

//PasScript
begin
  ShowMessage(TimeToStr(EncodeTime(15,33,35,999)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

15:33:35

# 9.26. EndOfAMonth

function EndOfAMonth(const AYear, AMonth: Word): TDateTime;

該函式用於獲得指定月份最後一天的最後可表示時刻。

部分	說明
AYear	年份
AMonth	月份

返回值：函式返回參數指定年份的月份最後一天的最後可表示時刻。
示例：

//JScript
  ShowMessage(DateTimeToStr(EndOfAMonth(2020,11)));

1
2

//PasScript
begin
  ShowMessage(DateTimeToStr(EndOfAMonth(2020,11)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

2020-11-30 23:59:59

# 9.27. EndOfAWeek

function EndOfAWeek(const AYear, AWeekOfYear, ADayOfWeek: Word): TDateTime;

該函式獲得指定年、周、周值的最後可表示時刻。

部分	說明
AYear	指定獲取最後時刻的年份
AWeekOfYear	指定獲取最後時刻的周
ADayOfWeek	指定獲取最後時刻的周值

返回值：返回參數指定年、周、周值的最後可表示時刻。
示例：

//JScript
  ShowMessage(DateTimeToStr(EndOfAWeek(2020,23,3)));

1
2

//PasScript
begin
  ShowMessage(DateTimeToStr(EndOfAWeek(2020,23,3)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

2020-06-03 23:59:59

# 9.28. EndOfTheDay

function EndOfTheDay(const AValue: TDateTime): TDateTime;

該函式獲取與指定TDateTime型別表達式相同日期的最後可表示時刻。

部分	說明
AValue	日期時間型別表達式

返回值：返回指定TDateTime型別表達式相同日期的最後可表示時刻。
示例：

//JScript
  ShowMessage(DateTimeToStr(EndOfTheDay(StrToDate("2020-11-1"))));

1
2

//PasScript
begin
  ShowMessage(DateTimeToStr(EndOfTheDay(StrToDate('2020-11-1'))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

2020-11-01 23:59:59

# 9.29. EndOfTheMonth

function EndOfTheMonth(const AValue: TDateTime): TDateTime;

該函式用於獲取參數指定的TDateTime日期時間表達式值所在的月份的最後時刻。

部分	說明
AValue	TDateTime日期時間型別表達式

返回值：返回參數指定月份最後一天的最後可表示時刻。
示例：

//JScript
  var MyEndDay;
  MyEndDay = EndOfTheMonth(StrToDate("2020-11-1"));
  ShowMessage(DateTimeToStr(MyEndDay));

1
2
3
4

//PasScript
Var
  MyEndDay: TDateTime;
begin
  MyEndDay := EndOfTheMonth(StrToDate('2020-11-1'));
  ShowMessage(DateTimeToStr(MyEndDay));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：

2020-11-30 23:59:59

# 9.30. EndOfTheWeek

function EndOfTheWeek(const AValue: TDateTime): TDateTime;

該函式用於獲取參數指定的TDateTime日期時間表達式值所在周的最後時刻。

部分	說明
AValue	TDateTime日期時間型別表達式

返回值：返回參數日期所在周最後一天的最後可表示時刻。
示例：

//JScript
  var MyEndDay;
  MyEndDay = EndOfTheWeek(StrToDate("2020-11-1"));
  ShowMessage(DateTimeToStr(MyEndDay));

1
2
3
4

//PasScript
Var
  MyEndDay: TDateTime;
begin
  MyEndDay := EndOfTheWeek(StrToDate('2020-11-1'));
  ShowMessage(DateTimeToStr(MyEndDay));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：

2020-11-01 23:59:59

# 9.31. EndOfTheYear

function EndOfTheYear(const AValue: TDateTime): TDateTime;

該函式用於獲取參數指定的TDateTime日期時間表達式值所在年份的最後時刻。

部分	說明
AValue	TDateTime日期時間型別表達式

返回值：返回參數日期所在年份最後一天的最後可表示時刻。
示例：

//JScript
  var MyEndDay;
  MyEndDay = EndOfTheYear(StrToDate("2020-11-1"));
  ShowMessage(DateTimeToStr(MyEndDay));

1
2
3
4

//PasScript
Var
  MyEndDay: TDateTime;
begin
  MyEndDay := EndOfTheYear(StrToDate('2020-11-1'));
  ShowMessage(DateTimeToStr(MyEndDay));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：

2020-12-31 23:59:59

# 9.32. FormatDateTime

function FormatDateTime(const Format: String; DateTime: TDateTime): String;

該函式利用Format參數給定的格式格式化DateTime參數給定的TDateTime值。

參數	說明
Format	格式化字串的形式
DateTime	TDateTime型別表達式

返回值：按Format格式格式化的字串。
示例：

//JScript
  ShowMessage(FormatDateTime("'Today is 'yyyy-m-d",now));
  ShowMessage(FormatDateTime("'DateTime is 'hh:mm:ss",now));
  ShowMessage(FormatDateTime("'Today is 'm-d-yyyy",now));

1
2
3
4

//PasScript
begin
  ShowMessage(FormatDateTime('''Today is ''yyyy-m-d',now));
  ShowMessage(FormatDateTime('''DateTime is ''hh:mm:ss',now));
  ShowMessage(FormatDateTime('''Today is ''m-d-yyyy',now));  
end;

1
2
3
4
5
6

// Make sure to add code blocks to your code group

運行結果：

Today is 2020-01-01 DateTime is 13:25:35 Today is 01-01-2020

# 9.33. GetTime

function GetTime: TDateTime;

該函式用於返回目前系統時間。
返回值：TDateTime型別值。
示例：

//JScript
  ShowMessage(TimeToStr(GetTime()));

1
2

//PasScript
begin
  ShowMessage(TimeToStr(GetTime()));
end;

1
2
3
4

// Make sure to add code blocks to your code group

# 9.34. HourOf

function HourOf(const: AValue: TDateTime): Word;

部分	說明
AValue	TDateTime日期時間型別表達式

返回值：返回表示參數給定的TDateTime日期時間型別表達式的小時部分的Word型別數。
示例：

//JScript
  ShowMessage(IntToStr(HourOf(Now)));

1
2

//PasScript
begin
  ShowMessage(IntToStr(HourOf(Now)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

begin
  ShowMessage(IntToStr(HourOf(Now)));
end;

1
2
3

運行結果：

顯示目前時刻的小時的數字。

# 9.35. HourOfTheDay

function HourOfTheDay(const AValue: TDateTime): Word;

該函式獲得參數給定的日期時間型別表達式的小數部分。

部分	說明
AValue	TDateTime日期時間型別表達式

返回值：返回能表示參數給定的TDateTime日期時間型別表達式小時部分的Word型別數。
示例：

//JScript
  ShowMessage(IntToStr(HourOfTheDay(StrToDateTime("2020-03-10 14:36:55"))));

1
2

//PasScript
begin
  ShowMessage(IntToStr(HourOfTheDay(StrToDateTime('2020-03-10 14:36:55'))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

14

# 9.36. HourOfTheMonth

function HourOfTheMonth(const AValue: TDateTime): Word;

該函式用於獲得參數給定日期時間型別表達式與對應月份第一天零時之間已流逝的小時數。

部分	說明
AValue	TDateTime型別表達式

返回值：返回參數給定日期時間型別表達式與對應月份第一天零時之間已流逝的小時數的Word型別值。
示例：

//JScript
  ShowMessage(IntToStr(HourOfTheMonth(StrToDateTime("2020-03-10 14:36:55"))));

1
2

//PasScript
begin
  ShowMessage(IntToStr(HourOfTheMonth(StrToDateTime('2020-03-10 14:36:55'))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

230

# 9.37. HourOfTheWeek

function HourOfTheWeek(const AValue: TDateTime): Word;

該函式獲得參數給定日期時間型別表達式與對應週期的星期一零時之間已流逝的小時數。

部分	說明
AValue	待轉換的小時數的日期和時間

返回值：返回一個word值。
示例：

//JScript
  ShowMessage(IntToStr(HourOfTheWeek(StrToDateTime("2020-03-10 14:36:55"))));

1
2

//PasScript
begin
  ShowMessage(IntToStr(HourOfTheWeek(StrToDateTime('2020-03-10 14:36:55'))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

38

# 9.38. HourOfTheYear

function HourOfTheYear(const AValue: TDateTime): Word;

該函式獲得參數目前時間到對應年份1月1日已流逝的小時數。

部分	說明
AValue	待轉換的小時數的日期和時間

返回值：返回參數目前時間到對應年份1月1日已流逝的小時數。
示例：

//JScript
  ShowMessage(IntToStr(HourOfTheYear(StrToDateTime("2020-03-10 14:36:55"))));

1
2

//PasScript
begin
  ShowMessage(IntToStr(HourOfTheYear(StrToDateTime('2020-03-10 14:36:55'))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

1670

# 9.39. HoursBetween

function HoursBetween(const ANow, AThen: TDateTime): Int64;

該函式用於獲取指定的兩個TDateTime型別日期時間表達式之間相差的小時數。

部分	說明
ANow	待比較的日期時間
AThen	待比較的日期時間

返回值：返回指定的兩個TDateTime型別日期時間表達式之間相差的小時數的Int64型別值。
示例：

//JScript
  ShowMessage(IntToStr(HoursBetween(StrToDateTime("2020-03-10 14:36:55"),StrToDateTime("2020-11-01 13:35:16"))));

1
2

//PasScript
begin
  ShowMessage(IntToStr(HoursBetween(StrToDateTime('2020-03-10 14:36:55'),StrToDateTime('2020-11-01 13:35:16'))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

5662

# 9.40. HourSpan

function HourSpan(const ANow, AThen: TDateTime): Double;

該函式用於獲取指定的兩個TDateTime值之間相差的小時數。

部分	說明
ANow	待比較的日期時間
AThen	待比較的日期時間

返回值：返回指定的兩個TDateTime型別日期時間表達式之間相差的小時數的Double型別值。
示例：

//JScript
  ShowMessage(FloatToStr(HourSpan(StrToDateTime("2020-03-10 14:36:55"),StrToDateTime("2020-11-01 13:35:16"))));

1
2

//PasScript
begin
  ShowMessage(FloatToStr(HourSpan(StrToDateTime('2020-03-10 14:36:55'),StrToDateTime('2020-11-01 13:35:16'))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

5662.972499999992

# 9.41. IncDay

function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer=1): TDateTime;

該函式根據指定天數來增加或減少TDateTime型別的日。

部分	說明
AValue	TDateTime型別日期的表達式
ANumberOfDays	待增加或減少日的數量

返回值：返回改變后的TDateTime型別值。
示例：

//JScript
  var ADate;
  ADate = IncDay(StrToDate("2020-10-01"),5);
  ShowMessage(DateToStr(ADate));
  ADate = IncDay(StrToDate("2020-10-01"),-1);
  ShowMessage(DateToStr(ADate));

1
2
3
4
5
6

//PasScript
Var  
  ADate: TDateTime;
begin
  ADate := IncDay(StrToDate('2020-10-01'),5);
  ShowMessage(DateToStr(ADate));
  ADate := IncDay(StrToDate('2020-10-01'),-1);
  ShowMessage(DateToStr(ADate));  
end;

1
2
3
4
5
6
7
8
9

// Make sure to add code blocks to your code group

運行結果：

2020-10-06 2020-09-30

# 9.42. IncHour

function IncHour(const AValue: TDateTime; const ANumberOfHours: Int64 = 1): TDateTime;

該函式根據參數給定的值來增加或減少TDateTime值的小時。

部分	說明
AValue	TDateTime型別日期的表達式
ANumberOfHours	待增加或減少小時的數量

返回值：返回改變后的TDateTime型別值。
示例：

//JScript
  var ADate;
  ADate = IncHour(StrToDateTime("2020-10-01 12:00:00"),5);
  ShowMessage(DateTimeToStr(ADate));
  ADate = IncHour(StrToDateTime("2020-10-01 13:00:00"),-1);
  ShowMessage(DateTimeToStr(ADate));

1
2
3
4
5
6

//PasScript
Var  
  ADate: TDateTime;
begin
  ADate := IncHour(StrToDateTime('2020-10-01 12:00:00'),5);
  ShowMessage(DateTimeToStr(ADate));
  ADate := IncHour(StrToDateTime('2020-10-01 13:00:00'),-1);
  ShowMessage(DateTimeToStr(ADate)); 
end;

1
2
3
4
5
6
7
8
9

// Make sure to add code blocks to your code group

運行結果：

2020-10-01 17:00:00 2020-10-01 12:00:00

# 9.43. IncMilliSecond

function IncMilliSecond(const AValue: TDateTime; const ANumberOfMilliSeconds: Int64 = 1): TDateTime;

該函式根據參數給定的值來增加或減少TDateTime值的毫秒。

部分	說明
AValue	TDateTime型別日期的表達式
ANumberOfMilliSeconds	待增加或減少毫秒的數量

返回值：返回改變后的TDateTime型別值。
示例：

//JScript
  var ADate;
  ADate = IncMilliSecond(StrToDateTime("2020-10-01 12:00:00"),5000);
  ShowMessage(DateTimeToStr(ADate));
  ADate = IncMilliSecond(StrToDateTime("2020-10-01 13:00:00"),-3000);
  ShowMessage(DateTimeToStr(ADate));

1
2
3
4
5
6

//PasScript
Var  
  ADate: TDateTime;
begin
  ADate := IncMilliSecond(StrToDateTime('2020-10-01 12:00:00'),5000);
  ShowMessage(DateTimeToStr(ADate));
  ADate := IncMilliSecond(StrToDateTime('2020-10-01 13:00:00'),-3000);
  ShowMessage(DateTimeToStr(ADate));
end;

1
2
3
4
5
6
7
8
9

// Make sure to add code blocks to your code group

運行結果：

2020-10-01 12:00:05 2020-10-01 12:59:57

# 9.44. IncMinute

function IncMinute(const AValue: TDateTime; const ANumberOfMinutes: Int64 = 1): TDateTime;

該函式根據參數給定的值來增加或減少TDateTime值的分鐘。

部分	說明
AValue	TDateTime型別日期的表達式
ANumberOfMinutes	待增加或減少分鐘的數量

返回值：返回改變后的TDateTime型別值。
示例：

//JScript
  var ADate;
  ADate = IncMinute(StrToDateTime("2020-10-01 12:00:00"),5);
  ShowMessage(DateTimeToStr(ADate));
  ADate = IncMinute(StrToDateTime("2020-10-01 13:00:00"),-3);
  ShowMessage(DateTimeToStr(ADate));

1
2
3
4
5
6

//PasScript
Var  
  ADate: TDateTime;
begin
  ADate := IncMinute(StrToDateTime('2020-10-01 12:00:00'),5);
  ShowMessage(DateTimeToStr(ADate));
  ADate := IncMinute(StrToDateTime('2020-10-01 13:00:00'),-3);
  ShowMessage(DateTimeToStr(ADate));
end;

1
2
3
4
5
6
7
8
9

// Make sure to add code blocks to your code group

運行結果：

2020-10-01 12:05:00 2020-10-01 12:57:00

# 9.45. IncMonth

function IncMonth(const Date: TDateTime; NumberOfMonths: Integer=1): TDateTime;

該函式根據參數給定的值來增加或減少TDateTime值的月份。

部分	說明
Date	TDateTime型別日期時間的表達式
NumberOfMonths	待增加或減少月的數量

返回值：返回改變后的TDateTime型別值。
示例：

//JScript
  ShowMessage(DateToStr(IncMonth(StrToDateTime("2020-11-01"),1)));
  ShowMessage(DateToStr(IncMonth(StrToDateTime("2020-11-01"),3)));
  ShowMessage(DateToStr(IncMonth(StrToDateTime("2020-11-01"),-2)));

1
2
3
4

//PasScript
begin
  ShowMessage(DateToStr(IncMonth(StrToDateTime('2020-11-01'),1)));
  ShowMessage(DateToStr(IncMonth(StrToDateTime('2020-11-01'),3)));
  ShowMessage(DateToStr(IncMonth(StrToDateTime('2020-11-01'),-2)));
end;

1
2
3
4
5
6

// Make sure to add code blocks to your code group

運行結果：

2020-12-01 2021-02-01 2020-09-01

# 9.46. IncSecond

function IncSecond(const Date: TDateTime; NumberOfSeconds: Integer=1): TDateTime;

該函式根據參數給定的值來增加或減少TDateTime值的秒數。

部分	說明
Date	TDateTime型別日期時間的表達式
NumberOfSeconds	待增加或減少秒的數量

返回值：返回改變后的TDateTime型別值。
示例：

//JScript
  var ADate;
  ADate = IncSecond(StrToDateTime("2020-10-01 12:00:00"),5);
  ShowMessage(DateTimeToStr(ADate));
  ADate = IncSecond(StrToDateTime("2020-10-01 13:00:00"),-3);
  ShowMessage(DateTimeToStr(ADate));

1
2
3
4
5
6

//PasScript
Var  
  ADate: TDateTime;
begin
  ADate := IncSecond(StrToDateTime('2020-10-01 12:00:00'),5);
  ShowMessage(DateTimeToStr(ADate));
  ADate := IncSecond(StrToDateTime('2020-10-01 13:00:00'),-3);
  ShowMessage(DateTimeToStr(ADate));
end;

1
2
3
4
5
6
7
8
9

// Make sure to add code blocks to your code group

運行結果：

2020-10-01 12:00:05 2020-10-01 12:59:57

# 9.47. IncWeek

function IncWeek(const AValue: TDateTime; NumberOfWeeks: Integer=1): TDateTime;

該函式根據參數給定的值來增加或減少TDateTime值的週數。

部分	說明
AValue	TDateTime型別日期時間的表達式
NumberOfWeeks	待增加或減少周的數量

返回值：返回改變后的TDateTime型別值。
示例：

//JScript
  var ADate;
  ADate = IncWeek(StrToDate("2020-10-01"),2);
  ShowMessage(DateToStr(ADate));
  ADate = IncWeek(StrToDate("2020-10-01"),-2);
  ShowMessage(DateToStr(ADate));

1
2
3
4
5
6

Var  
  ADate: TDateTime;
begin
  ADate := IncWeek(StrToDate('2020-10-01'),2);
  ShowMessage(DateToStr(ADate));
  ADate := IncWeek(StrToDate('2020-10-01'),-2);
  ShowMessage(DateToStr(ADate));
end;

1
2
3
4
5
6
7
8

// Make sure to add code blocks to your code group

運行結果：

2020-10-15 2020-09-17

# 9.48. IncYear

function IncYear(const AValue: TDateTime; const ANumberOfYears: Integer = 1):TDateTime;

該函式根據參數給定的值來增加或減少TDateTime值的年份。

部分	說明
AValue	TDateTime型別日期時間的表達式
NumberOfYears	待增加或減少年份的數量

返回值：返回改變后的TDateTime型別值。
示例：

//JScript
  var ADate;
  ADate = IncYear(StrToDate("2020-10-01"),2);
  ShowMessage(DateToStr(ADate));
  ADate = IncYear(StrToDate("2020-10-01"),-2);
  ShowMessage(DateToStr(ADate));

1
2
3
4
5
6

//PasScript
Var  
  ADate: TDateTime;
begin
  ADate := IncYear(StrToDate('2020-10-01'),2);
  ShowMessage(DateToStr(ADate));
  ADate := IncYear(StrToDate('2020-10-01'),-2);
  ShowMessage(DateToStr(ADate));
end;

1
2
3
4
5
6
7
8
9

// Make sure to add code blocks to your code group

運行結果：

2022-10-01 2018-10-01

# 9.49. IsInLepYear

function IsInLeapYear(const AValue: TDateTime): Boolean;

判斷參數給定的日期所在的年份是不是閏年。

部分	說明
AValue	TDateTime型別日期時間的表達式

返回值：如果是閏年返回True，否則返回False。
示例：

//JScript
  if (IsInLeapYear(date())){
    ShowMessage("This year is leap year");
  }
  else{
    ShowMessage("This year is not lep year");
  }

1
2
3
4
5
6
7

//PasScript
begin
  if IsInLeapYear(date()) then
    ShowMessage('This year is leap year')
  else
    ShowMessage('This year is not lep year');
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：顯示今年是否為閏年，例如本示例製作年份為2020年，該年份內執行該程式碼顯示今年為閏年。

# 9.50. IsLeapYear

function IsLeapYear(Year: Word): Boolean

該函式用於檢驗所給的年份是否為閏年。

部分	說明
Year	待檢驗的年份

返回值：如果是閏年則返回True，否則返回False。
示例：

//JScript
  var BoolIs,YearIs;
  YearIs = 2000;
  while (YearIs < 2005)
  {
    BoolIs = IsLeapYear(YearIs);
    if (BoolIs){
      ShowMessage("Leap Year" + "(" + IntToStr(YearIs) + ")");
    }
    else{
      ShowMessage("Common Year" + "(" + IntToStr(YearIs) + ")");
    }
    YearIs = YearIs + 1;
  }

1
2
3
4
5
6
7
8
9
10
11
12
13
14

//PasScript
var
  BoolIs: Boolean;
  YearIs: Integer;
begin
  YearIs := 2000;
  while YearIs < 2005 Do
  begin
    BoolIs := IsLeapYear(YearIs);
    if BoolIs Then
      ShowMessage('Leap Year' + '(' + IntToStr(YearIs) + ')')
    else
      ShowMessage('Common Year' + '(' + IntToStr(YearIs) + ')');
    YearIs := YearIs + 1;
  End;
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

// Make sure to add code blocks to your code group

運行結果：

Leap Year(2000) Common Year(2001) Common Year(2002) Common Year(2003) Leap Year(2004)

# 9.51. IsPM

function IsPM(const AValue: TDateTime): Boolean;

檢驗參數的時間是否為下午。

部分	說明
AValue	TDateTime型別日期時間的表達式

返回值：如果給定的TDateTime值的時間是下午函式返回True，否則返回False。
示例：

//JScript
  ShowMessage(BoolToStr(IsPM(StrToDateTime("2020-11-01 12:00:00")))); 
  ShowMessage(BoolToStr(IsPM(StrToDateTime("2020-11-01 11:59:59"))));

1
2
3

//PasScript
begin
  ShowMessage(BoolToStr(IsPM(StrToDateTime('2020-11-01 12:00:00')))); 
  ShowMessage(BoolToStr(IsPM(StrToDateTime('2020-11-01 11:59:59')))); 
end;

1
2
3
4
5

// Make sure to add code blocks to your code group

運行結果：

-1(表示為True) 0(表示為False)

# 9.52. IsSameDay

function IsSameDay(const AValue, ABasis: TDateTime): Boolean;

部分	說明
AValue	TDateTime型別日期時間的表達式
ABasis	TDateTime型別日期時間的表達式

返回值：如果兩參數列示同一日期函式返回True，否則返回False。
示例：

//JScript
  if (IsSameDay(StrToDateTime("2020-2-24"), StrToDateTime("2020-4-24 16:50"))){
    ShowMessage("Same Day");
  }
  else{
    ShowMessage("Not Same Day");
  }

1
2
3
4
5
6
7

//PasScript
begin
  if IsSameDay(StrToDateTime('2020-2-24'), StrToDateTime('2020-4-24 16:50')) then
    ShowMessage('Same Day')
  else
    ShowMessage('Not Same Day');
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：

Not Same Day

# 9.53. IsToday

function IsToday(const AValue: TDateTime): Boolean;

該函式檢測發生的日期與系統日期是否相同。

部分	說明
AValue	TDateTime型別日期時間的表達式

返回值：如果參數給定的日期與系統目前日期相同返回True，否則返回False。
示例：

//JScript
  if (IsToday(StrToDateTime("2020-2-24"))){
    ShowMessage("Today");
  }
  else{
    ShowMessage("Not Today");
  }

1
2
3
4
5
6
7

//PasScript
begin
  if IsToday(StrToDateTime('2020-2-24')) then
    ShowMessage('Today')
  else
    ShowMessage('Not Today');
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：

Not Today

# 9.54. IsValidDate

function IsValidDate(const AYear, AMonth, ADay: Word): Boolean;

該函式用於檢驗給定的年、月、日是否合乎規範。

部分	說明
AYear	年
AMonth	月
ADay	日

返回值：如果待檢驗的年、月、日合法則返回True，否則返回False。
示例：

//JScript
  ShowMessage(BoolToStr(IsValidDate(2020,5,30)));
  ShowMessage(BoolToStr(IsValidDate(2020,4,31)));
  ShowMessage(BoolToStr(IsValidDate(0000,4,30)));

1
2
3
4

//PasScript
begin
  ShowMessage(BoolToStr(IsValidDate(2020,5,30)));
  ShowMessage(BoolToStr(IsValidDate(2020,4,31)));
  ShowMessage(BoolToStr(IsValidDate(0000,4,30)));
end;

1
2
3
4
5
6

// Make sure to add code blocks to your code group

運行結果：

-1 0 0

# 9.55. IsValidDateDay

function IsValidDateDay(const AYear, ADayOfYear: Word): Boolean;

檢查參數給定的天數是不是再指定年份的總天數範圍之內。

部分	說明
AYear	年
ADayOfYear	待檢驗的天數

返回值：若參數給定的天數在指定年份的總天數範圍之內返回True，否則返回False。
示例：

//JScript
  ShowMessage(BoolToStr(IsValidDateDay(2020,367)));
  ShowMessage(BoolToStr(IsValidDateDay(2020,0)));
  ShowMessage(BoolToStr(IsValidDateDay(2020,4)));

1
2
3
4

//PasScript
begin
  ShowMessage(BoolToStr(IsValidDateDay(2020,367)));
  ShowMessage(BoolToStr(IsValidDateDay(2020,0)));
  ShowMessage(BoolToStr(IsValidDateDay(2020,4)));
end;

1
2
3
4
5
6

// Make sure to add code blocks to your code group

運行結果：

0 0 -1

# 9.56. IsValidDateMonthWeek

function IsValidDateMonthWeek(const AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word): Boolean;

該函式是檢驗參數給定的年份、月份、該月份第幾周和周值的合法性。

部分	說明
AYear	年份
AMonth	月份
AWeekOfMonth	週數
ADayOfWeek	星期

返回值：如果給定參數合法則返回True，否則返回False。
示例：

//JScript
  ShowMessage(BoolToStr(IsValidDateMonthWeek(2020,5,2,7)));
  ShowMessage(BoolToStr(IsValidDateMonthWeek(2020,13,2,7)));
  ShowMessage(BoolToStr(IsValidDateMonthWeek(2020,5,6,7)));

1
2
3
4

//PasScript
begin
  ShowMessage(BoolToStr(IsValidDateMonthWeek(2020,5,2,7)));
  ShowMessage(BoolToStr(IsValidDateMonthWeek(2020,13,2,7)));
  ShowMessage(BoolToStr(IsValidDateMonthWeek(2020,5,6,7)));
end;

1
2
3
4
5
6

// Make sure to add code blocks to your code group

運行結果：

-1 0 0

# 9.57. IsValidDateTime

function IsValidDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word): Boolean;

檢驗參數給定的年、月、日、小時、分鐘、秒和毫秒的合法性。

部分	說明
AYear	年份
AMonth	月份
ADay	待檢驗的日
AHour	待檢驗的小時
AMinute	分鐘
ASecond	秒
AMilliSecond	毫秒

返回值：如果所有被檢驗的值都是合法函式返回True，否則返回False。
示例：

//JScript
  ShowMessage(BoolToStr(IsValidDateTime(2020,06,20,23,22,25,0)));
  ShowMessage(BoolToStr(IsValidDateTime(2020,13,20,23,23,24,0)));
  ShowMessage(BoolToStr(IsValidDateTime(2020,12,13,34,12,32,0)));

1
2
3
4

//PasScript
begin
  ShowMessage(BoolToStr(IsValidDateTime(2020,06,20,23,22,25,0)));
  ShowMessage(BoolToStr(IsValidDateTime(2020,13,20,23,23,24,0)));
  ShowMessage(BoolToStr(IsValidDateTime(2020,12,13,34,12,32,0)));
end;

1
2
3
4
5
6

// Make sure to add code blocks to your code group

運行結果：

-1 0 0

# 9.58. IsValidDateWeek

function IsValidDateWeek(const AYear, AWeekOfYear, ADayOfWeek: Word): Boolean;

檢驗參數給定的年份、週數，合法性。

部分	說明
AYear	年份
AWeekOfYear	週數
ADayOfWeek	周值

返回值：如果被檢驗值合法，函式返回True，否則返回False。
示例：

//JScript
  ShowMessage(BoolToStr(IsValidDateWeek(2020,50,5)));
  ShowMessage(BoolToStr(IsValidDateWeek(2020,0,5)));
  ShowMessage(BoolToStr(IsValidDateWeek(2020,53,6)));

1
2
3
4

//PasScript
begin
  ShowMessage(BoolToStr(IsValidDateWeek(2020,50,5)));
  ShowMessage(BoolToStr(IsValidDateWeek(2020,0,5)));
  ShowMessage(BoolToStr(IsValidDateWeek(2020,53,6)));
end;

1
2
3
4
5
6

// Make sure to add code blocks to your code group

運行結果：

-1 0 -1

# 9.59. IsValidTime

function IsValidTime(const AHour, AMinute, ASecond, AMilliSecond: Word): Boolean;

檢驗參數給定的小時、分鐘、秒、和毫秒的合法性。

部分	說明
AHour	待檢驗的小時
AMinute	待檢驗的分鐘
ASecond	待檢驗的秒
AMilliSecond	待檢驗的毫秒

返回值：如果被檢驗值合法，函式返回True，否則返回False。
示例：

//JScript
  ShowMessage(BoolToStr(IsValidTime(20,35,25,0)));

1
2

//PasScript
begin
  ShowMessage(BoolToStr(IsValidTime(20,35,25,0)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

-1

# 9.60. MilliSecondOf

function MilliSecondOf(const AValue: TDateTime): Word;

該函式獲得參數給定日期時間型別表達式的毫秒。

部分	說明
AValue	日期時間型別表達式

返回值：返回能代表參數給定的日期時間型別表達式毫秒的Word型別值。
示例：

//JScript
  var MiliSecond;
  MilliSecond = MilliSecondOf(Now);
  ShowMessage(IntToStr(MilliSecond));

1
2
3
4

//PasScript
Var 
  MilliSecond: Word;
begin
  MilliSecond := MilliSecondOf(Now);
  ShowMessage(IntToStr(MilliSecond));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

執行上述程式碼，得到目前系統時間的毫秒值。

# 9.61. MilliSecondOfTheDay

function MilliSecondOfTheDay(const AValue: TDateTime): Cardinal;

該函式獲得TDateTime參數所在天已流逝的毫秒數。

部分	說明
AValue	日期時間型別表達式

返回值：返回已流逝的毫秒數。
示例：

//JScript
  var MilCount;
  MilCount = MilliSecondOfTheDay(Now);
  ShowMessage(IntToStr(Milcount));

1
2
3
4

//PasScript
var
  MilCount: Longword;
begin
  MilCount := MilliSecondOfTheDay(Now);
  ShowMessage(IntToStr(Milcount));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：顯示當天已流逝的毫秒數。

# 9.62. MilliSecondOfTheHour

function MilliSecondOfTheHour(const AValue: TDateTime): Cardinal;

該函式用於獲得所在小時已流逝的毫秒數。

部分	說明
AValue	日期時間型別表達式

返回值：返回已流逝的毫秒數。
示例：

//JScript
  var MilCount;
  MilCount = MilliSecondOfTheHour(Now);
  ShowMessage(IntToStr(Milcount));

1
2
3
4

//PasScript
var
  MilCount: Longword;
begin
  MilCount := MilliSecondOfTheHour(Now);
  ShowMessage(IntToStr(Milcount));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：顯示目前所在小時已流逝的毫秒數。

# 9.63. MilliSecondOfTheMinute

function MilliSecondOfTheMinute(const AValue: TDateTime): Cardinal;

該函式用於獲得參數指定的TDateTime值，與它同一分鐘的起點之間已流逝的毫秒數。

部分	說明
AValue	日期時間型別表達式

返回值：返回已流逝的毫秒數。
示例：

//JScript
  var MilCount;
  MilCount = MilliSecondOfTheMinute(Now);
  ShowMessage(IntToStr(Milcount));

1
2
3
4

//PasScript
var
  MilCount: Longword;
begin
  MilCount := MilliSecondOfTheMinute(Now);
  ShowMessage(IntToStr(Milcount));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：顯示目前分鐘已流逝的毫秒數。

# 9.64. MilliSecondOfTheMonth

function MilliSecondOfTheMonth(const AValue: TDateTime): Cardinal;

該函式用於獲取參數指定的TDateTime值與它同一月的起點之間已流逝的毫秒數。

部分	說明
AValue	日期時間型別表達式

返回值：返回已流逝的毫秒數。
示例：

//JScript
  var MilCount;
  MilCount = MilliSecondOfTheMonth(Now);
  ShowMessage(IntToStr(Milcount));

1
2
3
4

//PasScript
var
  MilCount: Longword;
begin
  MilCount := MilliSecondOfTheMonth(Now);
  ShowMessage(IntToStr(Milcount));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：顯示目前時刻所在月份已流逝的毫秒數。

# 9.65. MilliSecondOfTheSecond

function MilliSecondOfTheSecond(const AValue: TDateTime): Word;

該函式用於獲得參數指定的TDateTime值與它同一秒的起點之間已流逝的毫秒數。

部分	說明
AValue	日期時間型別表達式

返回值：返回已流逝的毫秒數。
示例：

//JScript
  var MilCount;
  MilCount = MilliSecondOfTheSecond(Now);
  ShowMessage(IntToStr(Milcount));

1
2
3
4

//PasScript
var
  MilCount: Longword;
begin
  MilCount := MilliSecondOfTheSecond(Now);
  ShowMessage(IntToStr(Milcount));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：顯示目前秒數中已流逝的毫秒數。

# 9.66. MilliSecondsBetween

function MilliSecondsBetween(const ANow, AThen: TDateTime): Int64;

該函式獲取參數指定的兩個日期時間型別表達式之間相差的毫秒數。

部分	說明
ANow	待比較的日期時間型別表達式
AThen	帶比較的日期時間型別表達式

返回值：返回兩日期時間型別表達式相差的毫秒數（64位整型值）。
示例：

//JScript
  ShowMessage(IntToStr(MilliSecondsBetween(Now,Now + 1)));

1
2

//PasScript
begin
  ShowMessage(IntToStr(MilliSecondsBetween(Now,Now + 1)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：該段程式碼用於計算一天有多少毫秒數。

86400000

# 9.67. MinuteOf

function MinuteOf(const AValue: TDateTime):Word;

該函式獲取指定的日期時間表達式時鐘的分鐘數。

部分	說明
AValue	日期時間型別表達式

返回值：返回指定的日期時間表達式時鐘的分鐘數(Word型別值)。
示例：

//JScript
  ShowMessage(IntToStr(MinuteOf(Now)));

1
2

//PasScript
begin
  ShowMessage(IntToStr(MinuteOf(Now)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

該段程式碼執行后，訊息對話方塊顯示系統目前分鐘。

# 9.68. MinuteOfTheHour

function MinuteOfTheHour(const AValue: TDateTime): Word;

該函式用於指定TDateTime值與它同一小時的起點之間已流逝的分鐘數。

部分	說明
AValue	日期時間型別表達式

返回值：返回已流逝的分鐘數。
示例：

//JScript
  ShowMessage(IntToStr(MinuteOfTheHour(StrToDateTime("2020-11-01 13:24:00"))));

1
2

//PasScript
begin
  ShowMessage(IntToStr(MinuteOfTheHour(StrToDateTime('2020-11-01 13:24:00'))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

24

# 9.69. MinuteOfTheMonth

function MinuteOfTheMonth(const AValue: TDateTime): Word;

該函式用於獲得參數指定的TDateTime值與它同一月的起點之間已經流逝的分鐘數。

部分	說明
AValue	日期時間型別表達式

返回值：返回已流逝的分鐘數。
示例：

//JScript
  ShowMessage(IntToStr(MinuteOfTheMonth(StrToDateTime("2020-11-02 13:24:00"))));

1
2

//PasScript
begin
  ShowMessage(IntToStr(MinuteOfTheMonth(StrToDateTime('2020-11-02 13:24:00'))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

2244

# 9.70. MinuteOfTheWeek

function MinuteOfTheWeek(const AValue: TDateTime): Word;

該函式用於獲得參數指定的TDateTime值與它同一周的起點之間已經流逝的分鐘數。

部分	說明
AValue	日期時間型別表達式

返回值：返回已流逝的分鐘數。
示例：

//JScript
  ShowMessage(IntToStr(MinuteOfTheWeek(StrToDateTime("2020-11-04 13:24:00"))));

1
2

//PasScript
begin
  ShowMessage(IntToStr(MinuteOfTheWeek(StrToDateTime('2020-11-04 13:24:00'))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

3684

# 9.71. MinuteOfTheYear

function MinuteOfTheYear(const AValue: TDateTime): Cardinal;

該函式用於獲得參數指定的TDateTime值與它同一年的起點之間已經流逝的分鐘數。

部分	說明
AValue	日期時間型別表達式

返回值：返回已流逝的分鐘數。
示例：

//JScript
  ShowMessage(IntToStr(MinuteOfTheYear(StrToDateTime("2020-11-04 13:24:00"))));

1
2

//PasScript
begin
  ShowMessage(IntToStr(MinuteOfTheYear(StrToDateTime('2020-11-04 13:24:00'))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

444324

# 9.72. MinutesBetween

function MinutesBetween(const ANow, AThen: TDateTime): Int64;

該函式獲得指定TDateTime值之間相差的分鐘數。

部分	說明
ANow	日期時間表達式
AThen	日期時間表達式

返回值：返回參數給定的兩個TDateTime值之間相差的分鐘數的64位整型。
示例：

//JScript
  ShowMessage(IntToStr(MinutesBetween(Now,StrToDateTime("2020-11-1 3:51"))));

1
2

//PasScript
begin
  ShowMessage(IntToStr(MinutesBetween(Now,StrToDateTime('2020-11-1 3:51'))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：返回目前時間與給定時間相差的分鐘數。

# 9.73. MinuteSpan

function MinuteSpan(const ANow, AThen: TDateTime): Double;

該函式獲得參數給定的兩個TDateTime型別值相差的分鐘數。返回的數據型別為double。

部分	說明
ANow	日期時間表達式
AThen	日期時間表達式

返回值：返回參數給定的兩個TDateTime值之間相差的分鐘數的Double型別。
示例：

//JScript
  ShowMessage(FloatToStr(MinuteSpan(Now,StrToDateTime("2020-11-1 3:51"))));

1
2

//PasScript
begin
  ShowMessage(FloatToStr(MinuteSpan(Now,StrToDateTime('2020-11-1 3:51'))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：返回目前時間與給定時間相差的分鐘數。

# 9.74. MonthOf

function MonthOf(const AValue: TDateTime):Word;

該函式獲得參數給定日期時間型別表達式的月份。

部分	說明
AValue	日期時間型別表達式

返回值：返回能代表參數給定的日期時間型別表達式月份的Word型別值。
示例：

//JScript
  var Mon;
  Mon = MonthOf(Now);
  ShowMessage(IntToStr(Mon));

1
2
3
4

//PasScript
var
  Mon: Word;
begin
  Mon := MonthOf(Now);
  ShowMessage(IntToStr(Mon));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

執行上述程式碼，顯示系統目前月份。

# 9.75. MonthOfTheYear

function MonthOfTheYear(const AValue: TDateTime): Word;

該函式獲得參數給定日期時間型別表達式的月份。

部分	說明
AValue	日期時間型別表達式

返回值：返回能代表參數給定的日期時間型別表達式月份的word型別值。
示例：

//JScript
  var Mon;
  Mon = MonthOfTheYear(Now);
  ShowMessage(IntToStr(Mon));

1
2
3
4

//PasScript
Var
  Mon: Word;
begin
  Mon := MonthOfTheYear(Now);
  ShowMessage(IntToStr(Mon));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：顯示系統目前月份。

# 9.76. MonthsBetween

function MonthsBetween(const ANow, AThen: TDateTime): Integer;

部分	說明
ANow	待比較的日期時間型別表達式
AThen	待比較的日期時間型別表達式

返回值：返回參數給定的兩日期時間型別表達式之間相差的整月數的Word型別值。
示例：

//JScript
  ShowMessage(IntToStr(MonthsBetween(Date,EndOfTheYear(now))));

1
2

//PasScript
begin
  ShowMessage(IntToStr(MonthsBetween(Date,EndOfTheYear(now))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：顯示目前月份與年末月份的差值。

# 9.77. MonthSpan

function MonthSpan(const ANow, AThen: TDateTime): Double;

該函式獲取給定的兩日期時間型別表達式之間相差的月數。

部分	說明
ANow	待比較的日期時間型別表達式
AThen	待比較的日期時間型別表達式

返回值：返回參數給定的兩日期時間型別表達式之間相差月數的Double型別值。
示例：

//JScript
  ShowMessage(FloatToStr(MonthSpan(Date,EndOfTheYear(now))));

1
2

//PasScript
begin
  ShowMessage(FloatToStr(MonthSpan(Date,EndOfTheYear(now))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：顯示目前日期與年末日期的月份相差浮點數值。

# 9.78. Now

function Now: TDateTime;

該函式用於獲取系統目前的日期和時間。
返回值：返回系統目前的日期和時間。
示例：

//JScript
  ShowMessage(DateTimeToStr(now));
  ShowMessage(DateTimeToStr(Now()));

1
2
3

//PasScript
begin
  ShowMessage(DateTimeToStr(now));
  ShowMessage(DateTimeToStr(Now()));
end;

1
2
3
4
5

// Make sure to add code blocks to your code group

運行結果：

2020-01-01 13:25:35 2020-01-01 13:35:37

# 9.79. RecodeDate

function RecodeDate(const AValue: TDateTime; const AYear, AMonth, ADay: Word): TDateTime;

函式把參數指定的日期替換為參數Year、Month、Day所對應的日期。

部分	說明
AValue	被替換的日期時間型別表達式
AYear	替換后的年份
AMonth	替換后的月份
ADay	替換后的日

返回值：返回變換后的日期。
示例：

//JScript
  ShowMessage(DateToStr(RecodeDate(Now,2020,07,07)));

1
2

//PasScript
begin
  ShowMessage(DateToStr(RecodeDate(Now,2020,07,07)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

# 9.80. RecodeDateTime

function RecodeDateTime(const AValue: TDateTime; const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word): TDateTime;

該函式把參數指定的日期時間型別表達式替換為參數給定的年、月、日、小時、分鐘、秒和毫秒所對應的日期時間值。

部分	說明
AValue	被替換后的日期時間型別表達式
AYear	替換后的年份
AMonth	替換后的月份
ADay	替換后的日
AHour	替換后的小時
AMinute	替換后的分鐘
ASecond	替換后的秒鐘
AMilliSecond	替換后的毫秒

返回值：返回變換后的日期時間型別值。
示例：

//JScript
  ShowMessage(DateTimeToStr(RecodeDateTime(Now,2020,07,07,12,25,25,0)));

1
2

//PasScript
begin
  ShowMessage(DateTimeToStr(RecodeDateTime(Now,2020,07,07,12,25,25,0)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

2020-07-07 12:25:25

# 9.81. RecodeDay

function RecodeDay(const AValue: TDateTime; const ADay: Word): TDateTime;

把參數指定的日期時間型別表達式替換為參數給定日所對應的日期時間值。

部分	說明
AValue	被替換的日期時間型別表達式
ADay	替換后的日

返回值：返回變換后的日期時間型別值。
示例：

//JScript
  ShowMessage(DateToStr(RecodeDay(Now,1)));

1
2

//PasScript
begin
  ShowMessage(DateToStr(RecodeDay(Now,1)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：將目前日期的日改為1日。

# 9.82. RecodeHour

function RecodeHour(const AValue: TDateTime; const AHour: Word): TDateTime;

該函式將指定時間中的小時替換為另一個指定的小時。

部分	說明
AValue	被替換的日期時間型別表達式
AHour	替換的小時

返回值：返回修改小時後的時間。
示例：

//JScript
  ShowMessage(DateTimeToStr(RecodeHour(StrToDateTime("2020-11-1 12:00:00"),6)));

1
2

//PasScript
begin
  ShowMessage(DateTimeToStr(RecodeHour(StrToDateTime('2020-11-1 12:00:00'),6)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

2020-11-1 06:00:00

# 9.83. RecodeMilliSecond

function RecodeMilliSecond(const AValue: TDateTime; const AMilliSecond: Word): TDateTime;

該函式將指定時間中的毫秒替換成指定的數值。

部分	說明
AValue	被替換的日期時間型別表達式
AMilliSeconds	替換的毫秒值

返回值：返回替換毫秒后的時間。
示例：

//JScript
  var AValue;
  AValue = RecodeMilliSecond(now,100);
  ShowMessage(FormatDateTime("yyyy-mm-dd hh:mm:ss:zzz",AValue));

1
2
3
4

//PasScript
var
  AValue: TDateTime;
begin
  AValue := RecodeMilliSecond(now,100);
  ShowMessage(FormatDateTime('yyyy-mm-dd hh:mm:ss:zzz',AValue));  
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：運行后返回參數指定的值(0-999)。

# 9.84. RecodeMinute

function RecodeMinute(const AValue: TDateTime; const AMinute: Word): TDateTime;

該函式將指定時間中的分替換稱為特定數值。

部分	說明
AValue	被替換的日期時間型別表達式
AMinute	返回被替換分鐘的時間

返回值：返回替換后的時間。
示例：

//JScript
  var AValue;
  AValue = RecodeMinute(now,10);
  ShowMessage(FormatDateTime("yyyy-mm-dd hh:mm:ss",AValue));

1
2
3
4

//PasScript
var
  AValue: TDateTime;
begin
  AValue := RecodeMinute(now,10);
  ShowMessage(FormatDateTime('yyyy-mm-dd hh:mm:ss',AValue));  
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：運行后返回參數特定的值（0-59）。

# 9.85. RecodeSecond

function RecodeSecond(const AValue: TDateTime; const ASecond: Word): TDateTime;

該函式將指定時間的秒替換為指定的數值。

部分	說明
AValue	被替換的日期時間型別表達式
ASecond	替換秒指定的數值

返回值：返回替換秒后的時間。
示例：

//JScript
  var AValue;
  AValue = RecodeSecond(now,10);
  ShowMessage(FormatDateTime("yyyy-mm-dd hh:mm:ss",AValue));

1
2
3
4

//PasScript
var
  AValue: TDateTime;
begin
  AValue := RecodeSecond(now,10);
  ShowMessage(FormatDateTime('yyyy-mm-dd hh:mm:ss',AValue));  
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：運行后返回參數的特定的值(0-59)。

# 9.86. RecodeTime

function RecodeTime(const AValue: TDateTime; const AHour, AMinute, ASecond, AMilliSecond: Word): TDateTime;

該函式將指定時間的時、分、秒和毫秒替換為指定的數值。

部分	說明
AValue	被替換的日期時間型別表達式
AHour,AMinute,ASecond	替換時、分、秒和毫秒的指定值

返回值：返回替換后的時間。
示例：

//JScript
  var AValue;
  AValue = RecodeTime(now,11,12,13,144);
  ShowMessage(FormatDateTime("yyyy-mm-dd hh:mm:ss:zzz",AValue));

1
2
3
4

//PasScript
var
  AValue: TDateTime;
begin
  AValue := RecodeTime(now,11,12,13,144);
  ShowMessage(FormatDateTime('yyyy-mm-dd hh:mm:ss:zzz',AValue));  
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：函式運行后，返回一個更改當前時間的時鐘為11、分鐘為12、秒鐘為13、毫秒為14的值。

# 9.87. RecodeYear

function RecodeYear(const AValue: TDateTime; const AYear: Word): TDateTime;

該函式用於將指定時間的年份替換為指定的數值。

部分	說明
AValue	被替換的日期時間型別表達式
AYear	替換年份的指定值

返回值：返回替換后的時間。
示例：

//JScript
  var AValue;
  AValue = RecodeYear(now,2021);
  ShowMessage(FormatDateTime("yyyy-mm-dd hh:mm:ss:zzz",AValue));

1
2
3
4

//PasScript
var
  AValue: TDateTime;
begin
  AValue := RecodeYear(now,2021);
  ShowMessage(FormatDateTime('yyyy-mm-dd hh:mm:ss:zzz',AValue));  
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：函式運行后，返回一個更改當前時間的年份為2021年的值。

# 9.88. SameDate

function SameDate(const A, B: TDateTime): Boolean;

該函式比較A和B兩個參數指定的TDateTime值是否表示相同的日期，不包括時間部分。

部分	說明
A，B	待比較的兩個日期

返回值：如果相同返回True，否則返回False。
示例：

//JScript
  var ADate,BDate;
  ADate = StrToDateTime("2020-11-1");
  BDate = StrToDateTime("2020-11-2");
  if (SameDate(ADate,BDate)){
    ShowMessage("Same");
  }
  else{
    ShowMessage("not Same");
  }

1
2
3
4
5
6
7
8
9
10

//PasScript
var
  ADate: TDateTime;
  BDate: TDateTime;
begin
  ADate := StrToDateTime('2020-11-1');
  BDate := StrToDateTime('2020-11-2');
  if SameDate(ADate,BDate) then
    ShowMessage('Same')
  else
    ShowMessage('not Same');
end;

1
2
3
4
5
6
7
8
9
10
11
12

// Make sure to add code blocks to your code group

運行結果：

not Same

# 9.89. SameDateTime

function SameDateTime(const A, B: TDateTime): Boolean;

該函式比較兩個時間是否相同。

部分	說明
A，B	待比較的兩個時間

返回值：返回是否相同，如果相同返回True，否則返回False。
示例：

//JScript
  var ADate,BDate;
  ADate = StrToDateTime("2020-11-1 15:00:00");
  BDate = StrToDateTime("2020-11-1 15:00:01");
  if (SameDateTime(ADate,BDate)){
    ShowMessage("Same");
  }
  else{
    ShowMessage("not Same");
  }

1
2
3
4
5
6
7
8
9
10

//PasScript
var
  ADate: TDateTime;
  BDate: TDateTime;
begin
  ADate := StrToDateTime('2020-11-1 15:00:00');
  BDate := StrToDateTime('2020-11-1 15:00:01');
  if SameDateTime(ADate,BDate) then
    ShowMessage('Same')
  else
    ShowMessage('not Same');
end;

1
2
3
4
5
6
7
8
9
10
11
12

// Make sure to add code blocks to your code group

運行結果：

not Same

# 9.90. SameTime

function SameTime(const A, B: TDateTime): Boolean;

該函式比較兩個時間是否相等，不包括日期部分。

部分	說明
A，B	待比較的兩個時間

返回值：比較兩個時間段是否相等，如果相等返回True，否咋返回False。
示例**

//JScript
  var ADate,BDate;
  ADate = StrToDateTime("2020-11-1 15:00:00");
  BDate = StrToDateTime("2020-11-2 15:00:00");
  if (SameTime(ADate,BDate)){
    ShowMessage("Same");
  }
  else{
    ShowMessage("not Same");
  }

1
2
3
4
5
6
7
8
9
10

//PasScript
var
  ADate: TDateTime;
  BDate: TDateTime;
begin
  ADate := StrToDateTime('2020-11-1 15:00:00');
  BDate := StrToDateTime('2020-11-2 15:00:00');
  if SameTime(ADate,BDate) then
    ShowMessage('Same')
  else
    ShowMessage('not Same');
end;

1
2
3
4
5
6
7
8
9
10
11
12

// Make sure to add code blocks to your code group

運行結果：

Same

# 9.91. SecondOf

function SecondOf(const AValue: TDateTime;): Word;

該函式返回指定時間中表示的秒數。

部分	說明
AValue	待操作的TDateTime型別的時間值

返回值：返回取得的秒數。
示例：

//JScript
  ShowMessage(IntToStr(SecondOf(Now)));

1
2

//PasScript
begin
  ShowMessage(IntToStr(SecondOf(Now)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

執行上述程式碼后，顯示目前系統的秒數。

# 9.92. SecondOfTheDay

function SecondOfTheDay(const AValue: TDateTime): Cardinal;

該函式用於返回指定時間與同一天00:00:00之間已流逝的秒數。

部分	說明
AValue	指定計算的時間

返回值：返回流逝的秒數。
示例：

//JScript
  var ADate,SecOf;
  ADate = Now();
  SecOf = SecondOftheDay(ADate);
  ShowMessage(IntToStr(SecOf));

1
2
3
4
5

//PasScript
var
  ADate: TDateTime;
  SecOf: Word;
begin
  ADate := Now();
  SecOf := SecondOftheDay(ADate);
  ShowMessage(IntToStr(SecOf));
end;

1
2
3
4
5
6
7
8
9

// Make sure to add code blocks to your code group

運行結果：運行后返回流逝的秒數。

# 9.93. SecondOfTheHour

function SecondOfTheHour(const AValue: TDateTime): Word;

該函式用於返回指定時間與同一天同一時的起始時間之間流逝的秒數。

部分	說明
AValue	指定計算的時間

返回值：返回流逝的小時數。
示例：

//JScript
  var ADate,HourOf;
  ADate = Now();
  HourOf = SecondOfTheHour(ADate);
  ShowMessage(IntToStr(HourOf));

1
2
3
4
5

//PasScript
var
  ADate: TDateTime;
  HOurOf: Word;
begin
  ADate := Now();
  HOurOf := SecondOfTheHour(ADate);
  ShowMessage(IntToStr(HOurOf));
end;

1
2
3
4
5
6
7
8
9

// Make sure to add code blocks to your code group

運行結果：顯示目前小時已流逝的秒數。

# 9.94. SecondOfTheMinute

function SecondOfTheMinute(const AValue: TDateTime): Word;

該函式返回指定時間與同一天同一分鐘的起始時間之間流逝的秒數。

部分	說明
AValue	指定計算的時間

返回值：返回流逝的秒數。
示例：

//JScript
  var ADate, HourOf;
  ADate = Now();
  HOurOf = SecondOftheMinute(ADate);
  ShowMessage(IntToStr(HOurOf));

1
2
3
4
5

//PasScript
var
  ADate: TDateTime;
  HOurOf: Word;
begin
  ADate := Now();
  HOurOf := SecondOftheMinute(ADate);
  ShowMessage(IntToStr(HOurOf));
end;

1
2
3
4
5
6
7
8
9

// Make sure to add code blocks to your code group

返回值：返回流逝的秒數。

# 9.95. SecondOfTheMonth

function SecondOfTheMonth(const AValue: TDateTime): Cardinal;

該函式返回指定時間與同一天同一分鐘的起始時間之間流逝的秒數。

部分	說明
AValue	指定計算的時間

返回值：返回流逝的秒數。
示例：

//JScript
  var ADate, HourOf;
  ADate = Now();
  HOurOf = SecondOftheMonth(ADate);
  ShowMessage(IntToStr(HOurOf));

1
2
3
4
5

//PasScript
var
  ADate: TDateTime;
  HOurOf: Word;
begin
  ADate := Now();
  HOurOf := SecondOftheMonth(ADate);
  ShowMessage(IntToStr(HOurOf));
end;

1
2
3
4
5
6
7
8
9

// Make sure to add code blocks to your code group

返回值：返回流逝的秒數。

# 9.96. SecondOfTheWeek

function SecondOfTheWeek(const AValue: TDateTime): Cardinal;

該函式返回指定的時間與其所在周首天00:00:00之間流逝的秒數。

部分	說明
AValue	指定計算的時間

返回值：返回流逝的秒數。
示例：

//JScript
  var ADate, HourOf;
  ADate = Now();
  HOurOf = SecondOfTheWeek(ADate);
  ShowMessage(IntToStr(HOurOf));

1
2
3
4
5

//PasScript
var
  ADate: TDateTime;
  HOurOf: Word;
begin
  ADate := Now();
  HOurOf := SecondOfTheWeek(ADate);
  ShowMessage(IntToStr(HOurOf));
end;

1
2
3
4
5
6
7
8
9

// Make sure to add code blocks to your code group

返回值：返回流逝的秒數。

# 9.97. SecondsBetween

function SecondsBetween(const ANow, AThen: TDateTime): Int64;

該函式返回兩個間隔時間相差的秒數。

部分	說明
ANow,AThen	兩個計算相差值的時間

返回值：返回兩個間隔時間相差的秒數。
示例：

//JScript
  var ADT, TADt,Sec;
  ADt = Now();
  TADt= StrToDateTime("2020-08-08 08:08:08");
  Sec = SecondsBetween(ADt, TADt);
  ShowMessage("Time pass" + IntToStr(Sec) + "second");

1
2
3
4
5
6

//PasScript
var
  ADt, TADt: TDateTime;
  Sec: Int64;
begin
  ADt := Now();
  TADt:= StrToDateTime('2020-08-08 08:08:08');
  Sec := SecondsBetween(ADt, TADt);
  ShowMessage('Time pass' + IntToStr(Sec) + 'second');
end;

1
2
3
4
5
6
7
8
9
10

// Make sure to add code blocks to your code group

運行結果：該函式返回ADt與TADt之間相差的秒數。

# 9.98. SecondsSpan

function SecondSpan(const ANow, AThen: TDateTime): Double;

該函式返回兩個指定時間相差的秒數，包括分數秒。

部分	說明
ANow,AThen	兩個計算相差值的時間

返回值：該函式返回Double型別的相差秒數。
示例：

//JScript
  var ADT, TADt,Sec;
  ADt = Now();
  TADt= StrToDateTime("2020-08-08 08:08:08");
  Sec = SecondSpan(ADt, TADt);
  ShowMessage("Time pass" + FloatToStr(Sec) + "second");

1
2
3
4
5
6

//PasScript
var
  ADt, TADt: TDateTime;
  Sec: Double;
begin
  ADt := Now();
  TADt:= StrToDateTime('2020-08-08 08:08:08');
  Sec := SecondSpan(ADt, TADt);
  ShowMessage('Time pass' + FloatToStr(Sec) + 'second');
end;

1
2
3
4
5
6
7
8
9
10

// Make sure to add code blocks to your code group

運行結果：該函式返回ADt與TADt之間相差的秒數。

# 9.99. StartOfAWeek

function StartOfAWeek(const AYear, AWeekOfYear, ADayOfWeek: Word): TDateTime;

該函式返回指定日期中指定星期的第一個可表示時刻。

部分	說明
AYear	指定的年
AWeekOfYear	指定周
ADayOfWeek	指定周的第一天是哪天

返回值：返回一個時間值。
示例：

//JScript
  var DT;
  DT = StartOfAWeek(2020,45,1);
  ShowMessage(DateToStr(DT));

1
2
3
4

//PasScript
var
  DT: TDateTime;
begin
  DT := StartOfAWeek(2020,45,1);
  ShowMessage(DateToStr(DT));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：

2020-11-02

# 9.100. StartOfAYear

function StartOfAYear(const AYear: Word): TDateTime;

該函式返回指定年份的第一個可表示的時刻。

部分	說明
AYear	指定年份

返回值：返回獲得的時間。
示例：

//JScript
  var DT;
  DT = StartOfAYear(2020);
  ShowMessage(DateToStr(DT));

1
2
3
4

//PasScript
var
  DT: TDateTime;
begin
  DT := StartOfAYear(2020);
  ShowMessage(DateToStr(DT));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：

2020-01-01

# 9.101. StartOfTheDay

function StartOfTheDay(const AValue: TDateTime): TDateTime;

該函式根據指定的日期返回當天的零時時間。

部分	說明
AValue	日期表達式

返回值：函式返回AValue所表示的某一天的開始時間。
示例：

//JScript
  ShowMessage(FormatDateTime("yyyy-mm-dd hh:mm:ss",StartOfTheDay(Now)));

1
2

//PasScript
begin
  ShowMessage(FormatDateTime('yyyy-mm-dd hh:mm:ss',StartOfTheDay(Now)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：該函式顯示當天的零時時間。

# 9.102. StartOfTheMonth

function StartOfTheMonth(const AValue: TDateTime): TDateTime;

該函式根據指定的日期返回當月第一天的零時時間。

部分	說明
AValue	日期表達式

返回值：函式返回AValue所表示的某一天的開始時間。
示例：

//JScript
  ShowMessage(FormatDateTime("yyyy-mm-dd hh:nn:ss",StartOfTheMonth(Now)));

1
2

//PasScript
begin
  ShowMessage(FormatDateTime('yyyy-mm-dd hh:nn:ss',StartOfTheMonth(Now)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

執行上述程式碼，單擊按鈕，顯示本月的零時時間。

# 9.103. StartOfTheWeek

function StartOfTheWeek(const AValue: TDateTime): TDateTime;

該函式根據指定的日期返回本週第一天的零時時間。

部分	說明
AValue	日期表達式

返回值：函式返回AValue所表示的某一天的開始時間。
示例：

//JScript
  ShowMessage(FormatDateTime("yyyy-mm-dd hh:nn:ss",StartOfTheWeek(Now)));

1
2

//PasScript
begin
  ShowMessage(FormatDateTime('yyyy-mm-dd hh:nn:ss',StartOfTheWeek(Now)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

顯示本週週一的零時時間。

# 9.104. StartOfTheYear

function StartOfTheYear(const AValue: TDateTime): TDateTime;

該函式根據指定的日期返回當年的第一天的零時時間。

部分	說明
AValue	日期表達式

返回值：函式返回AValue所表示的某一天的開始時間。
示例：

//JScript
  ShowMessage(FormatDateTime("yyyy-mm-dd hh:nn:ss",StartOfTheYear(Now)));

1
2

//PasScript
begin
  ShowMessage(FormatDateTime('yyyy-mm-dd hh:nn:ss',StartOfTheYear(Now)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

顯示本年第一天的零時時間。

# 9.105. StrToDate

function StrToDate(const S: String): TDateTime;

該函式將字串轉換為日期值。

參數	說明
S	字串表達式，表示待轉換的字串

返回值：函式返回轉換后的日期數據。
示例：

//JScript
  ShowMessage(DateTimeToStr(StrToDate("2020-01-01")));

1
2

//PasScript
begin
  ShowMessage(DateTimeToStr(StrToDate('2020-01-01')));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

2020-01-01

# 9.106. StrToDateDef

function StrToDateDef(const S: String; const Default: TDateTime): TDateTime;

該函式將字串轉換為日期值，如果字串不符合日期格式，返回預設值。

參數	說明
S	字串表達式，表示待轉換的字串
Default	日期數據，表示為函式提供的預設值

返回值：函式返回轉換后的日期數據，如果S不符合日期格式，函式返回預設值。
示例：

//JScript
  var ADate,BDate;
  ADate = StrToDate("2008-01-01");
  BDate = StrToDateDef("2008-01-0s",ADate);
  ShowMessage(DateToStr(BDate));

1
2
3
4
5

//PasScript
var
  ADate: TDateTime;
  BDate: TDateTime;
begin
  ADate := StrToDate('2008-01-01');
  BDate := StrToDateDef('2008-01-0s',ADate);
  ShowMessage(DateToStr(BDate));
end;

1
2
3
4
5
6
7
8
9

// Make sure to add code blocks to your code group

# 9.107. StrToDateTime

function StrToDate(const S: String): TDateTime;

該函式將字串轉換為日期值。

參數	說明
S	字串表達式，表示待轉換的字串

返回值：函式返回轉換后的日期時間數據。
示例：

//JScript
  var ADate;
  ADate = StrToDateTime("2020-11-01 13:25:28");
  ShowMessage(DateTimeToStr(ADate));

1
2
3
4

//PasScript
var
  ADate: TDateTime;
begin
  ADate := StrToDateTime('2020-11-01 13:25:28');
  ShowMessage(DateTimeToStr(ADate));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：

2020-11-01 13:25:28

# 9.108. StrToDateTimeDef

function StrToDateTimeDef(const S: String; const Default: TDateTime): TDateTime;

該函式將字串轉換為日期時間型別，如果字串不符合格式，則使用預設值。

參數	說明
S	字串表達式，表示待轉換的字串
Default	日期數據，表示為函式提供的預設值

返回值：函式返回轉換后的日期時間數據，如果S不符合日期時間格式，函式返回預設值。
示例：

//JScript
  var ADate;
  ADate = StrToDateTimeDef("2008-01-0D 12:59:59",Now);
  ShowMessage(DateTimeToStr(ADate));

1
2
3
4

//PasScript
var
  ADate: TDateTime;
begin
  ADate := StrToDateTimeDef('2008-01-0D 12:59:59',Now);
  ShowMessage(DateTimeToStr(ADate));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

上述函式運行后，字串表達式中的日期時間數據不符合格式要求，函式返回預設值。

# 9.109. StrToTime

function StrToTime(const S: String): TDateTime;

該函式將字串轉換為時間。

部分	說明
S	字串表達式，表示待轉換的字串

返回值：返回轉換后的時間數據。
示例：

//JScript
  var ATime;
  ATime = StrToTime("12:59:59");
  if (ATime < 0.5){
    ShowMessage("Good Morning!");
  }
  else{
    ShowMessage("Good Afternoon!");
  }

1
2
3
4
5
6
7
8
9

//PasScript
var
  ATime: TDateTime;
begin
  ATime := StrToTime('12:59:59');
  if ATime < 0.5 then
    ShowMessage('Good Morning!')
  else
    ShowMessage('Good Afternoon!');
end;

1
2
3
4
5
6
7
8
9
10

// Make sure to add code blocks to your code group

運行結果：

Good Afternoon!

# 9.110. StrToTimeDef

function StrToDateDef(Const S: string; const Default: TDateTime): TDateTime;

該函式將字串轉換為時間，如果字串不符合要求，則返回預設值。

參數	說明
S	字串表達式，表示待轉換的字串
Default	日期數據，表示為函式提供的預設值

返回值：函式返回轉換后的時間數據，如果S不符合時間格式，函式返回預設值。
示例：

//JScript
  var ATime;
  ATime = StrToTimeDef("12:00:0s",Now);
  ShowMessage(TimeToStr(ATime));

1
2
3
4

//PasScript
var
  ATime: TDateTime;
begin
  ATime := StrToTimeDef('12:00:0s',Now);
  ShowMessage(TimeToStr(ATime));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

該函式運行后，由於時間格式不符合要求，函式返回目前時間。

# 9.111. Time

function Time: TDateTime;

函式用於返回目前系統時間。

返回值：函式返回系統目前的時間數據。
示例：

//JScript
  ShowMessage(TimeToStr(time));

1
2

//PasScript
begin
  ShowMessage(TimeToStr(time));
end;

1
2
3
4

// Make sure to add code blocks to your code group

該示例運行后，返回目前系統的時間。

# 9.112. TimeOf

function TimeOf(const AValue: TDateTime): TDateTime;

該函式用於去掉日期時間數據的日期部分，使其只包含時間部分，將日期設定為0。

部分	說明
AValue	日期時間型別表達式

返回值：函式返回轉換后的時間數據。
示例：

//JScript
  ShowMessage(FormatDateTime("hh:mm:ss",TimeOf(Now)));
  ShowMessage(FormatDateTime("yyyy-mm-dd",TimeOf(Now)));

1
2
3

//PasScript
begin
  ShowMessage(FormatDateTime('hh:mm:ss',TimeOf(Now)));
  ShowMessage(FormatDateTime('yyyy-mm-dd',TimeOf(Now)));
end;

1
2
3
4
5

// Make sure to add code blocks to your code group

運行結果：顯示目前時間資訊，日期則顯示為1899-12-30

# 9.113. TimeToStr

function TimeToStr(Time: TDateTime): String;

該函式返回日期時間數據中時間部分的字串。

參數	說明
Time	日期時間型別表達式

返回值：函式返回時間部分的字串。
示例：

//JScript
  ShowMessage(TimeToStr(Now));

1
2

//PasScript
begin
  ShowMessage(TimeToStr(Now));
end;

1
2
3
4

// Make sure to add code blocks to your code group

該示例運行后，顯示目前系統的時間。

# 9.114. Today

function Today: TDateTime;

函式Today返回目前的日期數據，時間部分被設定為0。
返回值：返回目前系統的日期。
示例：

//JScript
  ShowMessage(DateToStr(Today));

1
2

//PasScript
begin
  ShowMessage(DateToStr(Today));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：顯示目前的系統日期。

# 9.115. Tomorrow

function Tomorrow: TDateTime;

該函式返回明天的日期數據，時間部分被設定為0。
返回值：函式返回明天日期。
示例：

//JScript
  ShowMessage(DateToStr(Tomorrow));

1
2

//PasScript
begin
  ShowMessage(DateToStr(Tomorrow));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：顯示目前系統的明天的日期。

# 9.116. TryEncodeDateMonthWeek

function TryEncodeDateMonthWeek(const AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word; var AValue: TDateTime): Boolean;

該函式根據指定的年、月、每月的第幾周、每週的第幾天等資訊產生一個日期。

部分	說明
AYear	整型表達式，用於表示產生日期的年份
AMonth	整型表達式，用於表示產生日期的月份
AWeekOfMonth	整型表達式，用於表示月份的第幾周
ADayOfWeek	整型表達式，用於表示某一週的第幾天
AValue	日期表達式，用於儲存產生的日期數據

返回值：如果函式能夠產生合規的日期，返回值為True，否則返回False。
示例：

//JScript
  var ADate;
  if (TryEncodeDateMonthWeek(2020,11,2,2,ADate)){
    ShowMessage(DateToStr(ADate));  
  }

1
2
3
4
5

//PasScript
var
  ADate: TDateTime;
begin
  if TryEncodeDateMonthWeek(2020,11,2,2,ADate) Then
    ShowMessage(DateToStr(ADate));
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：

2020-11-10

# 9.117. WeekOf

function WeekOf(const AValue: TDateTime): Word;

該函式根據日期值返回日期值所在的周在一年中的週數。

部門	說明
AValue	日期表達式，用於指定日期數據

返回值：函式返回參數指定的日期在一年中的週數。
示例：

//JScript
  ShowMessage(IntToStr(WeekOf(Now)));

1
2

//PasScript
begin
  ShowMessage(IntToStr(WeekOf(Now)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行后顯示當天的本年週數。

# 9.118. WeekOfTheMonth

function WeekOfTheMonth(const AValue: TDateTime): Word;

該函式根據指定的日期判斷本週是本月中的第幾周。

部分	說明
AValue	日期表達式，用於表示指定日期數據
AYear	整型表達式，用於返回日期中的年份
AMonth	整型表達式，用於返回日期中的月份

返回值：函式返回參數指定的日期在本月中的週數。
示例：

//JScript
  ShowMessage(IntToStr(WeekOfTheMonth(Now)));

1
2

//PasScript
begin
  ShowMessage(IntToStr(WeekOfTheMonth(Now)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：顯示當天在本月中的週數。

# 9.119. WeekOfTheYear

function WeekOfTheYear(const AValue: TDateTime): Word;

該函式根據日期值返回日期值所在的周在一年中的週數。

部分	說明
AValue	日期表達式，用於指定日期數據
AYear	整型表達式，用於返回日期中的年份

返回值：函式返回參數指定的日期在所標識的年中的週數。
示例：

//JScript
  ShowMessage(IntToStr(WeekOfTheYear(Now)));

1
2

//PasScript
begin
  ShowMessage(IntToStr(WeekOfTheYear(Now)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：顯示本週在一年中的週數。

# 9.120. WeeksBetween

function WeeksBetween(const ANow, AThen: TDateTime): Integer;

該函式用於計算兩個日期之間的週數。

部分	說明
ANow	待比較的日期
AThen	待比較的日期

返回值：函式返回參數指定的時間段的週數。
示例：

//JScript
  ShowMessage(IntToStr(WeeksBetween(Now , Now + 14)));

1
2

//PasScript
begin
  ShowMessage(IntToStr(WeeksBetween(Now , Now + 14)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：

2

# 9.121. WithinPastHours

function WithinPastHours(const ANow, AThen: TDateTime; const AHours: Int64): Boolean;

該函式判斷兩個時間段之間的差距是否在指定的小時之內。

部分	說明
ANow	待比較的日期
AThen	待比較的日期
AHours	整型表達式，用於指定時間段的差距

返回值：如果指定的時間段小於等於AHours，函式返回True，否則返回False。
示例：

//JScript
  var msg;
  if (WithinPastDays(StrToTime("12:00:00") , StrToTime("15:00:00"),3)){
    msg = "Time pass less than 3";
  }
  else{
    msg = "Time pass large than 3";
  }
  ShowMessage(msg);

1
2
3
4
5
6
7
8
9

//PasScript
var
  msg: String;
begin
  if WithinPastDays(StrToTime('12:00:00') , StrToTime('15:00:00'),3) Then
    msg := 'Time pass less than 3'
  else
    msg := 'Time pass large than 3';
  ShowMessage(msg);
end;

1
2
3
4
5
6
7
8
9
10

// Make sure to add code blocks to your code group

運行結果：

Time pass less than 3

# 9.122. WithinPastMilliSeconds

function WithinPastMilliSeconds(const ANow, AThen: TDateTime; const AMilliSeconds: Int64): Boolean;

該函式判斷兩個時間段之間的差距是否在指定的毫秒之內。

部分	說明
ANow	日期表達式
AThen	日期表達式
AMilliSeconds	整型表達式，用於指定時間段的差距

返回值：如果指定的時間段小於等於AMilliSeconds，函式返回True，否則返回False。
示例：

//JScript
  var msg;
  if (WithinPastMilliSeconds(StrToTime("12:00:00.099") , StrToTime("12:00:00.999"),1000)){
    msg = "Less than 1000";
  }
  else{
    msg = "Large than 1000";
  }
  ShowMessage(msg);

1
2
3
4
5
6
7
8
9

//PasScript
var
  msg: String;
begin
  if WithinPastMilliSeconds(StrToTime('12:00:00.099') , StrToTime('12:00:00.999'),1000) Then
    msg := 'Less than 1000'
  else
    msg := 'Large than 1000';
  ShowMessage(msg);
end;

1
2
3
4
5
6
7
8
9
10

// Make sure to add code blocks to your code group

運行結果：

Less than 1000

# 9.123. WithPastMinutes

function WithinPastMinutes(const ANow, AThen: TDateTime; const AMinutes: Int64): Boolean;

該函式判斷兩個時間段之間的差距是否在指定的分鐘數之內。

部分	說明
ANow	日期表達式
AThen	日期表達式
AMinutes	整型表達式，用於指定時間段的差距

返回值：如果指定的時間算小於等於AMinutes，函式返回True，否則返回False。
示例：

//JScript
  var msg;
  if (WithinPastMinutes(StrToTime("12:10:00") , StrToTime("12:03:00"),6)){
    msg = "Less than 6";
  }
  else{
    msg = "Large than 6";
  }
  ShowMessage(msg);

1
2
3
4
5
6
7
8
9

//PasScript
var
  msg: String;
begin
  if WithinPastMinutes(StrToTime('12:10:00') , StrToTime('12:03:00'),6) Then
    msg := 'Less than 6'
  else
    msg := 'Large than 6';
  ShowMessage(msg);
end;

1
2
3
4
5
6
7
8
9
10

// Make sure to add code blocks to your code group

運行結果：

Large than 6

# 9.124. WithinPastMonths

function WithinPastMonths(const ANow, AThen: TDateTime; const AMonths: Integer): Boolean;

該函式判斷兩個時間段之間的差距是否在指定的月數之內。

部分	說明
ANow	日期表達式
AThen	日期表達式
AMonths	整型表達式，用於指定時間段的差距

返回值：如果指定的時間段小於等於AMonths，函式返回True，否則返回False。

//JScript
  var msg;
  if (WithinPastMonths(StrToDate("2020-11-1") , StrToDate("2023-12-1"),28)){
    msg = "Less than 28";
  }
  else{
    msg = "Large than 28";
  }
  ShowMessage(msg);

1
2
3
4
5
6
7
8
9

//PasScript
var
  msg: String;
begin
  if WithinPastMonths(StrToDate('2020-11-1') , StrToDate('2023-12-1'),28) Then
    msg := 'Less than 28'
  else
    msg := 'Large than 28';
  ShowMessage(msg);
end;

1
2
3
4
5
6
7
8
9
10

// Make sure to add code blocks to your code group

運行結果：

Large than 28

# 9.125. WithinPastSeconds

function WithinPastSeconds(const ANow, AThen: TDateTime; const ASeconds: Int64): Boolean;

該函式判斷兩個時間段之內的差距是否在指定的秒數之內。

部分	說明
ANow	日期表達式
AThen	日期表達式
ASeconds	整型表達式，用於指定時間段的差距

返回值：如果指定的時間段小於等於ASeconds，函式返回True，否則返回False。
示例：

//JScript
  var msg;
  if (WithinPastSeconds(StrToDateTime("2020-11-1 12:00:00") , StrToDateTime("2020-11-10 12:00:11"),864000)){
    msg = "Less than 864000";
  }
  else{
    msg = "Large than 864000";
  }
  ShowMessage(msg);

1
2
3
4
5
6
7
8
9

//PasScript
var
  msg: String;
begin
  if WithinPastSeconds(StrToDateTime('2020-11-1 12:00:00') , StrToDateTime('2020-11-10 12:00:11'),864000) Then
    msg := 'Less than 864000'
  else
    msg := 'Large than 864000';
  ShowMessage(msg);
end;

1
2
3
4
5
6
7
8
9
10

// Make sure to add code blocks to your code group

運行結果：

Less than 864000

# 9.126. WithinPastWeeks

function WithinPastWeeks(const ANow, AThen: TDateTime; const AWeeks: Integer): Boolean;

該函式判斷兩個時間段之間的差距是否在指定的週數之內。

部分	說明
ANow	日期表達式
AThen	日期表達式
AWeeks	整型表達式，用於指定時間段的差距

返回值：如果指定的時間段小於等於AWeeks，函式返回True，否則返回False。
示例：

//JScript
  var msg;
  if (WithinPastWeeks(StrToDateTime("2020-11-1 12:00:00") , StrToDateTime("2020-11-10 12:00:11"),2)){
    msg = "Less than 2";
  }
  else{
    msg = "Large than 2";
  }
  ShowMessage(msg);

1
2
3
4
5
6
7
8
9

//PasScript
var
  msg: String;
begin
  if WithinPastWeeks(StrToDateTime('2020-11-1 12:00:00') , StrToDateTime('2020-11-10 12:00:11'),2) Then
    msg := 'Less than 2'
  else
    msg := 'Large than 2';
  ShowMessage(msg);
end;

1
2
3
4
5
6
7
8
9
10

// Make sure to add code blocks to your code group

運行結果：

Less than 2

# 9.127. WithinPastYears

function WithinPastYears(const ANow, AThen: TDateTime; const AYears: Integer): Boolean;

該函式用於判斷兩個時間段之間的差距是否在指定的年數之內。

部分	說明
ANow	日期表達式
AThen	日期表達式
AYears	整型表達式，用於指定時間段的差距

返回值：如果指定的時間段小於等於AYears，函式返回True，否則返回False。
示例：

//JScript
  var msg;
  if (WithinPastYears(StrToDateTime("2020-11-1 12:00:00") , StrToDateTime("2021-10-30 12:00:00"),1)){
    msg = "Less than 1";
  }
  else{
    msg = "Large than 1";
  }
  ShowMessage(msg);

1
2
3
4
5
6
7
8
9

//PasScript
var
  msg: String;
begin
  if WithinPastYears(StrToDateTime('2020-11-1 12:00:00') , StrToDateTime('2021-10-30 12:00:00'),1) Then
    msg := 'Less than 1'
  else
    msg := 'Large than 1';
  ShowMessage(msg);
end;

1
2
3
4
5
6
7
8
9
10

// Make sure to add code blocks to your code group

運行結果：

Less than 1

# 9.128. YearOf

function YearOf(const AValue: TDate): Word;

該函式返回指定日期的年份。

部門	說明
AValue	日期表達式，用於指定日期數據

返回值：函式返回AValue所標識的年份。
示例：

//JScript
  ShowMessage(IntToStr(YearOf(Now)));

1
2

//PasScript
begin
  ShowMessage(IntToStr(YearOf(Now)));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行后顯示當天顯示的年份數。

# 9.129. YearsBetween

function YearsBetween(const ANow, AThen: TDateTime): Integer;

函式返回兩個日期數據之間大約的年數。

部分	說明
ANow	日期表達式
AThen	日期表達式

返回值：函式返回兩個日期數據之間大約的年數。
示例：

//JScript
  ShowMessage(FloatToStr(YearsBetween(Now,StrToDate("2077-10-11"))));

1
2

//PasScript
begin
  ShowMessage(FloatToStr(YearsBetween(Now,StrToDate('2077-10-11'))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：運行后顯示當天與2077年相差的年數。

# 9.130. YearsSpan

function YearSpan(const ANow, AThen: TDateTime): Double;

該函式返回兩個日期數據之間大約的年數，包含小數部分。

部分	說明
ANow	日期表達式
AThen	日期表達式

返回值：函式返回兩個日期之間大約的年數，包含小數部分。
示例：

//JScript
  ShowMessage(FloatToStr(YearSpan(Now,StrToDate("2077-10-11"))));

1
2

//PasScript
begin
  ShowMessage(FloatToStr(YearSpan(Now,StrToDate('2077-10-11'))));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：運行后顯示當天與2077年相差的年數，包含小數部分。

# 9.131. YesterDay

function Yesterday: TDateTime;

該函式返回昨天的日期。
返回值：函式返回昨天的系統日期。
示例：

//JScript
  ShowMessage(DateToStr(Yesterday));

1
2

//PasScript
begin
  ShowMessage(DateToStr(Yesterday));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：該函式返回昨天的系統日期。

# 10. 型別轉換函式

# 10.1. Bounds

function Bounds(ALeft, ATop, AWidth, AHeight: Integer): TRect;

該函式獲得某個矩形。

部分	說明
ALeft,ARight,AWidth,AHeight	轉換區域的規格大小

返回值：返回一個TRect型別的矩陣。
示例：

//JScript
  var MyRect;
  MyRect = Bounds(10,10,50,50);

1
2
3

//PasScript
var
  MyRect : TRect;
begin
  MyRect := Bounds(10,10,50,50);
end;

1
2
3
4
5
6

// Make sure to add code blocks to your code group

運行結果：設定一個指定規格的矩形。

# 10.2. IntToHex

function IntToHex(Vlue:Integer;Digits:Integer):String;

該函式將一個數字轉換成一個字串，字串中包含該數字的十六進制表現形式。

部分	說明
Value	將要轉換的整形值
Digits	轉換位數

返回值：返回轉換后的字串。

//JScript
  var S = 2147483647;
  ShowMessage(IntToHex(S,0));
  ShowMessage(IntToHex(S,8));
  ShowMessage(IntToHex(S,10));

1
2
3
4
5

//PasScript
var
  S: Integer;
begin
  S := 2147483647;
  ShowMessage(IntToHex(S,0));
  ShowMessage(IntToHex(S,8));
  ShowMessage(IntToHex(S,10));
end;

1
2
3
4
5
6
7
8
9

// Make sure to add code blocks to your code group

運行結果：

7FFFFFFF 7FFFFFFF 007FFFFFFF

# 10.3. IntToStr

function IntToStr(Value: Integer): String;

該函式將一個指定整型值轉換成一個字串。

參數	說明
Value	將要轉換的整型值

返回值：返回轉換后的字串。
示例：

//JScript
   ShowMessage(IntToStr(1982));
   ShowMessage(IntToStr(-1982));

1
2
3

//PasScript
begin
   ShowMessage(IntToStr(1982));
   ShowMessage(IntToStr(-1982));
end;

1
2
3
4
5

// Make sure to add code blocks to your code group

運行結果：

1982 -1982

# 10.4. Point

function Point(AX,AY: Integer): TPoint;

該函式建立一個TPoint結構表示AX,AY指定的座標。

參數	說明
AX,AY	轉換座標

返回值：返回一個TPoint型別的值。
示例：

//JScript
  var TP;
  TP = Point(10,10);

1
2
3

//PasScript
var
  TP: TPoint;
begin
  TP := Point(10,10);
end;

1
2
3
4
5
6

// Make sure to add code blocks to your code group

該端程式碼在座標(10,10)的位置建立一個TPoint型別的點。

# 10.5. Rect

function Rect(ALeft,ATop,ARight,ABottom: Integer): TRect;

該函式用一組座標建立一個TRect結構，此結構用指定的座標表示矩形。

參數	說明
ALeft	左邊界座標
ARight	右邊界座標
ATop	上邊界座標
ABottom	下邊界座標
ATopLeft	左上角的點
ABottomRight	右下角的點

返回值：返回一個TRect型別的矩陣。
示例：

//JScript
  var MyRect;
  MyRect = Rect(10,10,170,70);

1
2
3

//PasScript
var
  MyRect: TRect;
begin
  MyRect := Rect(10,10,170,70);
end;

1
2
3
4
5
6

// Make sure to add code blocks to your code group

# 10.6. SmallPoint

function SmallPoint(AX,AY: SmallInt): TSmallPoint;

該函式用一對座標建立一個TSmallPoint結構以表示指定的座標。

參數	說明
AX	X軸座標值
AY	Y軸座標值

返回值：返回TSmallPoint型別的值。
示例：

//JScript
  var S;
  S = SmallPoint(15,25);

1
2
3

//PasScript
var
  S: TSmallPoint;
begin
  S := SmallPoint(15,25);
end;

1
2
3
4
5
6

// Make sure to add code blocks to your code group

該程式碼建立一個座標為(15,25)的座標點。

# 10.7. StrToBoolDef

function StrToBoolDef(const S: String; const Default: Boolean): Boolean;

該函式將參數指定的字串轉化為Boolean型別值，字串為非邏輯表達式時將返回預設值。

參數	說明
S	將要轉換的字串
Default	預設返回值

返回值：返回轉換后的Boolean型別值。
示例：

//JScript
  if (StrToBoolDef("0",True)){
    ShowMessage("True");
  }
  else{
    ShowMessage("False");
  }
  if (StrToBoolDef("-1",True)){
    ShowMessage("True");
  }
  else{
    ShowMessage("False");
  }
  if (StrToBoolDef("5",True)){
    ShowMessage("True");
  }
  else{
    ShowMessage("False");
  }

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

//PasScript
begin
  if StrToBoolDef('0',True) Then
    ShowMessage('True')
  else
    ShowMessage('False');
  if StrToBoolDef('-1',True) Then
    ShowMessage('True')
  else
    ShowMessage('False');
  if StrToBoolDef('5',True) Then
    ShowMessage('True')
  else
    ShowMessage('False');
end;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

// Make sure to add code blocks to your code group

運行結果：

False True True

# 10.8. StrToInt

function StrToInt(const S: String): Integer;

函式將參數指定用的二進制或十六進制符號表示的一個整形字串轉換為一個整數值。

參數	說明
S	將要轉換的字串

返回值：返回轉換后的整形值。
示例：

//JScript
  var si,i;
  si = "19091103";
  i = StrToInt(si);

1
2
3
4

//PasScript
var
  si: String;
  i: Integer;
begin
  si := '19091103';
  i := StrToInt(si);
end;

1
2
3
4
5
6
7
8

// Make sure to add code blocks to your code group

該端程式碼將字串si轉換為整型值，並存儲到變數i中，i的值為19091103。

# 10.9. StrToIntDef

function StrToIntDef(const S: String; const Default: Integer): Integer;

該函式將指定的一個表示整型數字的字串轉換為一個數值。

參數	說明
S	將要轉換的字串
Default	預設返回值

返回值：返回轉換后的整型值，如果S不能夠轉換為整型值，則返回預設值Default。
示例：

//JScript
  var si,i;
  s = "First";
  i = StrToIntDef(s,18);
  ShowMessage(IntToStr(i));

1
2
3
4
5

//PasScript
var
  i: Integer;
  s: String;
begin
  s := 'First';
  i := StrToIntDef(s,18);
  ShowMessage(IntToStr(i));
end;

1
2
3
4
5
6
7
8
9

// Make sure to add code blocks to your code group

運行結果：

18

# 10.10. StrToInt64

function StrToInt64(const S: String): Int64;

該函式將指定的一個整型數字字串轉換為一個數值。

參數	說明
S	將要轉換的字串

返回值：返回Int64的整型值。
示例：

//JScript
  var s,i;
  s = "2147483648";
  i = StrToInt64(s)

1
2
3
4

//PasScript
var
  i: int64;
  s: String;
begin
  s := '2147483648';
  i := StrToInt64(s);
end;

1
2
3
4
5
6
7
8

// Make sure to add code blocks to your code group

# 10.11. StreamToStr

Function StreamToStr(AStream:TStream):String;

該函式將指定的記憶體流資訊轉換為字串。

參數	說明
AStream	將要轉換的流

返回值：返回字串數值。

# 11. 檔案處理函式

# 11.1. ExcludeTrailingBackslash

function ExcludeTrailingBackslash(const S: string): string;

改函式使用多位元組字符集，它刪除參數中結束路徑界定符\，並向後相容。

部分	說明
S	待轉換的字串

返回值：返回刪除界定符的字串。
示例：

//JScript
  var s;
  s = ExcludeTrailingBackslash("D:\\test\\");
  ShowMessage(s);

1
2
3
4

//PasScript
var
  s: String;
begin
  s := ExcludeTrailingBackslash('D:\test\');
  ShowMessage(s);
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：

D:\test

# 11.2. ExcludeTrailingPathDelimiter

function ExcludeTrailingPathDelimiter(const S: string): string;

部分	說明
S	待轉換的字串

該函式使用多位元組字符集，它刪除參數中結束路徑界定符\，若參數中最後一個字元為界定符，則刪除該字元，否則參數無改變返回。
返回值：返回刪除界定符的字串。
示例：

//JScript
  var s;
  s = ExcludeTrailingPathDelimiter("D:\\test\\");
  ShowMessage(s);

1
2
3
4

//PasScript
var
  s: String;
begin
  s := ExcludeTrailingPathDelimiter('D:\test\');
  ShowMessage(s);
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：

D:\test

# 11.3. ExpandFileName

function ExpandFileName(const FileName: string): string;

該函式將相對檔名轉換為完全標準化路徑。它不驗證產生的完全標準化路徑是否引用一個現有的檔案。

部分	說明
FileName	待查詢的檔名稱(相對檔名稱)

返回值：返回一個標準化檔案路徑。
示例：

//JScript
  var s;
  s = ExpandFileName("test.txt");
  ShowMessage(s);

1
2
3
4

//PasScript
var
  s: String;
begin
  s := ExpandFileName('test.txt');
  ShowMessage(s);
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：顯示目前相對路徑的完全標準化路徑。

# 11.4. ExpandUNCFileName

function ExpandUNCFileName(const FileName: string): string;

該函式利用網路檔案的通用命名協議(NUC)返回一個完全標準化的路徑名。本地的檔名使用方式同ExpandFileName。

部分	說明
FileName	待查詢的檔名稱(相對檔名稱)

返回值：返回一個標準化檔案路徑。
示例：

//JScript
  var s;
  s = ExpandUNCFileName("test.txt");
  ShowMessage(s);

1
2
3
4

//PasScript
var
  s: String;
begin
  s := ExpandUNCFileName('test.txt');
  ShowMessage(s);
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：顯示目前相對路徑的完全標準化路徑。

# 11.5. ExtractFileDir

function ExtractFileDir(const FileName: string): string;

部分	說明
FileName	待查詢的檔名稱

返回值：返回一個目錄路徑。
示例：

//JScript
  var s;
  s = ExtractFileDir("D:\\test.txt");
  ShowMessage(s);

1
2
3
4

//PasScript
var
  s: String;
begin
  s := ExtractFileDir('D:\test.txt');
  ShowMessage(s);
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：顯示目前相對路徑的目錄路徑。例如D:\

# 11.6. ExtractFileDrive

function ExtractFileDrive(const FileName: string): string;

該函式返回完全標準化路徑名的驅動器部分。

部分	說明
FileName	待查詢的檔名稱

返回值：返回一個目錄路徑。
示例：

//JScript
  var s;
  s =  ExtractFileDrive("D:\\test.txt");
  ShowMessage(s);

1
2
3
4

//PasScript
var
  s: String;
begin
  s :=  ExtractFileDrive('D:\test.txt');
  ShowMessage(s);
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：顯示目前路徑的驅動器名稱。例如D:

# 11.7. ExtractFileName

function ExtractFileName(const FileName: string): string;

該函式用於從指定的字串中提取檔名。

部分	說明
FileName	待查詢的檔名稱

返回值：返回一個目錄路徑。
示例：

//JScript
  var s;
  s =  ExtractFileName("D:\\test.txt");
  ShowMessage(s);

1
2
3
4

//PasScript
var
  s: String;
begin
  s :=  ExtractFileName('D:\test.txt');
  ShowMessage(s);
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：顯示路徑。例如test.txt

# 11.8. ExtractFileExt

function ExtractFileExt(const FileName: string): string;

該函式返回FileName參數指定檔名的副檔名，產生的字串包含分隔檔名的副檔名和副檔名的句點符。

部分	說明
FileName	待查詢的檔名稱

返回值：返回一個檔案的副檔名。
示例：

//JScript
  var s;
  s =  ExtractFileExt("D:\\test.txt");
  ShowMessage(s);

1
2
3
4

//PasScript
var
  s: String;
begin
  s :=  ExtractFileExt('D:\test.txt');
  ShowMessage(s);
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：

.txt

# 11.9. ExtarctFilePath

function ExtractFilePath(const FileName: string): string;

該函式用於返回指定檔案的工作路徑。

部分	說明
FileName	指定的檔名

返回值：返回檔案的工作路徑。
示例:

//JScript
  var s;
  s =  ExtractFilePath("D:\\test.txt");
  ShowMessage(s);

1
2
3
4

//PasScript
var
  s: String;
begin
  s :=  ExtractFilePath('D:\test.txt');
  ShowMessage(s);
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：

D:\

# 11.10. ExtractRelativePath

function ExtractRelativePath(const BaseName, DestName: string): string;

該函式用於將完全標準化的路徑轉換為相對路徑名。

部分	說明
BaseName	基本目錄的完全標準化路徑，不一定包含檔名
DestName	指定被轉換的檔名(包含路徑)

返回值：返回指定的路徑。
示例：

//JScript
  var s;
  s =  ExtractRelativePath("D:\\test\\","D:\\test.txt");
  ShowMessage(s);

1
2
3
4

//PasScript
var
  s: String;
begin
  s :=  ExtractRelativePath('D:\test\','D:\test.txt');
  ShowMessage(s);
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：

..\test.txt

# 11.11. FileAge

function FileAge(const FileName: string): LongInt; overload;

該函式返回指定檔案的操作系統時間。

部分	說明
FileName	指定的檔名

返回值：返回指定檔案的操作系統時間，如果返回-1則表示檔案沒有找到。
示例：

//JScript
  ShowMessage(IntToStr(FileAge("D:\\test.txt")));

1
2

//PasScript
begin
  ShowMessage(IntToStr(FileAge('D:\test.txt')));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：執行該語句后，返回檔案的日期時間。

# 11.12. FileExists

  function FileExists(const FileName: String): Boolean;

該函式用於測試指定的檔案是否存在。

部分	說明
FileName	指定檔案的名稱

返回值：如果指定的檔案存在返回True，否則返回False。
示例：

//JScript
  if (FileExists("sample.pdf")){
    ShowMessage("File Exist");
  }
  else{
    ShowMessage("File not Exist");
  }

1
2
3
4
5
6
7

//PasScript
begin
  if FileExists('sample.pdf') then
    ShowMessage('File Exist')
  else
    ShowMessage('File not Exist');
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：

File not Exist

# 11.13. FileIsReadOnly

function FileIsReadOnly(const FileName: string): Boolean;

該函式用於判斷指定檔案是否是隻讀的。

部分	說明
FileName	指定檔案的名稱

返回值：如果檔案為只讀則返回True，否則返回False。
示例：

//JScript
  ShowMessage(BoolToStr(FileIsReadOnly("E:\\test.txt")));

1
2

//PasScript
begin
  ShowMessage(BoolToStr(FileIsReadOnly('E:\test.txt')));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：判斷指定檔案是否為只讀檔案，並彈窗顯示。

# 11.14. FileSetReadOnly

function FileSetReadOnly(const FileName: string; ReadOnly: Boolean): Boolean;

該函式設定檔案是否未只讀。

部分	說明
FileName	指定檔案的檔名
ReadOnly	是否為只讀，如果為True則設定檔案為只讀，否則設定檔案為讀寫

返回值：設定成功則返回True，否則返回False。
示例：

//JScript
  if (FileSetReadOnly("D:\\test.txt",True)){
    ShowMessage("File Set Read Only");
  }

1
2
3
4

//PasScript
begin
  if FileSetReadOnly('D:\test.txt',True) then
    ShowMessage('File Set Read Only"');
end;

1
2
3
4
5

// Make sure to add code blocks to your code group

運行結果：將對應的檔案設定為只讀屬性。

# 11.15. ForceDirectoris

function ForceDirectories(Dir: string): Boolean;

部分	說明
Dir	建立目錄的全名，必須包括上級目錄

返回值：如果建立成功則返回True，否則會返回False。
示例：

//JScript
  var Dir;
  Dir = "D:\\test\\sample";
  if (ForceDirectories(Dir)){
    ShowMessage(Dir + "create successfully" );
  }

1
2
3
4
5
6

//PasScript
var
  Dir: String;
begin
  Dir := 'D:\test\sample';
  if ForceDirectories(Dir) then
    ShowMessage(Dir + 'create successfully' );
end;

1
2
3
4
5
6
7
8

// Make sure to add code blocks to your code group

# 11.16. GetCurrentDir

function GetCurrentDir: string;

該函式返回目前目錄。
返回值：返回目前目錄名稱。
示例：

//JScript
  ShowMessage(GetCurrentDir);

1
2

//PasScript
begin
  ShowMessage(GetCurrentDir);
end;

1
2
3
4

// Make sure to add code blocks to your code group

# 11.17. InCludeTrailingBackslash

function IncludeTrailingBackslash(const S: string): string;

該函式確保路徑名以路徑定界符\結束。

部分	說明
S	待檢查的字串路徑

返回值：返回檢查后的路徑。
示例：

//JScript
  var s;
  s =  IncludeTrailingBackslash("D:\\test");
  ShowMessage(s);

1
2
3
4

//PasScript
var
  s: String;
begin
  s :=  IncludeTrailingBackslash('D:\test');
  ShowMessage(s);
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：

D:\test\

# 11.18. InCludeTrailingPathDelimiter

function IncludeTrailingPathDelimiter(const S: string): string;

該函式確保路徑名以路徑定界符\結束，若參數S表示的路徑名已經以路徑定界符\結束，則返回的字串無變化；否則將S字串加上定界符返回。

部分	說明
S	待檢查的字串路徑

返回值：返回檢查后的路徑。
示例：

//JScript
  var s;
  s =  IncludeTrailingPathDelimiter("D:\\test");
  ShowMessage(s);

1
2
3
4

//PasScript
var
  s: String;
begin
  s :=  IncludeTrailingPathDelimiter('D:\test');
  ShowMessage(s);
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：

D:\test\

# 11.19. IOResult

function IOResult: Integer;

該函式返回最後一次I/O操作的狀態資訊。
返回值：如果最後一次I/O操作執行成功則返回0，否則返回錯誤程式碼。
示例：

//JScript
  if (IOResult == 0){
    ShowMessage("Last I/O Success");
  }

1
2
3
4

//PasScript
begin
  if IOResult = 0 then
    ShowMessage('Last I/O Success');
end;

1
2
3
4
5

// Make sure to add code blocks to your code group

運行結果：如果I/O運行操作無錯誤發生則顯示Last I/O Success。

# 11.20. SetCurrentDir

function SetCurrentDir(const Dir: string): Boolean;

部分	說明
Dir	改變后的目標目錄名稱

返回值：如果執行成功返回True，否則返回False。
示例：

//JScript
  var Dir;
  Dir = "D:\\test";
  if (SetCurrentDir(Dir)){
    ShowMessage(GetCurrentDir());
  }

1
2
3
4
5
6

//PasScript
var
  Dir: String;
begin
  Dir := 'D:\test';
  if SetCurrentDir(Dir) then
    ShowMessage(GetCurrentDir());
end;

1
2
3
4
5
6
7
8

// Make sure to add code blocks to your code group

運行結果：

D:\test

# 12. 格式化函式

# 12.1. FormatCurr

function FormatCurr(const Format: string; Value: Currency): string;

該函式將貨幣型別以指定的格式轉換成字串。

部分	說明
Format	用於指定格式化的字串
Value	將要格式化的內容

返回值：返回將貨幣型別以指定格式轉換成的字串。
示例：

//JScript
  var s;
  S = FormatCurr("#,##0.00;;Zero",0.5);
  ShowMessage(S);

1
2
3
4

//PasScript
var
  S: String;
begin
  S := FormatCurr('#,##0.00;;Zero',0.5);
  ShowMessage(S);
end;

1
2
3
4
5
6
7

// Make sure to add code blocks to your code group

運行結果：

0.50

# 12.2. FormatDateTime

function FormatDateTime(const Format: String; DateTime: TDateTime): String;

該函式用於格式化顯示日期時間。

部分	說明
Format	用於指定格式化的字串
DateTime	格式化顯示的內容

返回值：返回用指定的格式來格式化日期時間的字串。
示例：

//JScript
ShowMessage(FormatDateTime("\"The Metting is on\" dddd,mm mm d, yyyy,\" at \" hh:mm AM/PM",Now +0.125));

1
2

//PasScript
ShowMessage(FormatDateTime('"The Metting is on" dddd,mm mm d, yyyy," at " hh:mm AM/PM',Now +0.125));

1
2

// Make sure to add code blocks to your code group

運行結果：

The Metting is on 星期日，11 11 9 2020，at 01:44 AM。

# 12.3. FormatFloat

function FormatFloat(const Format: String; value: Extended): string;

部分	說明
Format	是一個字串表達式，指定格式化所使用的格式
Value	指定要格式化的內容

返回值：返回將浮點數型別以指定格式轉換成的字串。
示例：

下方表格展示參數的轉換形式。

格式化字串	1234	-1234	0.5	0	PasScript命令	JScript命令
為空時	1234	-1234	0.5	0	`FormatFloat('',0.5)`	`FormatFloat("",0.5)`
0	1234	-1234	1	0	`FormatFloat('0',0.5)`	`FormatFloat("0",0.5)`
0.00	1234.00	-1234.00	0.50	0.00	`FormatFloat('0.00',0.5)`	`FormatFloat("0.00",0.5)`
#.##	1234	-1234	.5		`FormatFloat('#.##',0.5)`	`FormatFloat("#.##",0.5)`
#,##0.00	1,234.00	-1,234.00	0.50	0.00	`FormatFloat('#,##0.00',0.5)`	`FormatFloat("#,##0.00",0.5)`
#,##0.00;(#,##0.00)	1,234.00	(1,234.00)	0.50	0.00	`FormatFloat('#,##0.00;(#.##0.00)',0.5)`	`FormatFloat("#,##0.00;(#.##0.00)",0.5)`
#,##0.00;;Zero	1,234.00	-1,234.00	0.50	0.00	`FormatFloat('#,##0.00;;Zero',0.5)`	`FormatFloat("#,##0.00;;Zero",0.5)`
0.000E+00	1.234E+03	-1.234E+03	5.000E-01	0.000E+00	`FormatFloat('0.000E+00',0.5)`	`FormatFloat("0.000E+00",0.5)`
#.###E-0	1.234E3	-1.234E3	5E-1	0E0	`FormatFloat('#.###E-0',0.5)`	`FormatFloat("#.###E-0",0.5)`

# 13. 視窗控制實用程式

# 13.1. GetComCtlVersion

function GetComCtlVersion: Integer;

該函式返回安裝的ComCtl32.DLL版本號。
返回值：整數型別，返回安裝的版本號。
示例：

//JScript
  ShowMessage(IntToStr(GetComCtlVersion));

1
2

//PasScript
begin
  ShowMessage(IntToStr(GetComCtlVersion));
end;

1
2
3
4

// Make sure to add code blocks to your code group

運行結果：運行結果根據各機器安裝軟體版本的不同而有所差異。

# 14. 指針相關函式

# 14.1. FreeAndNil

function FreeAndNil(var Obj);

該函式用於釋放指定對象，並設定其為空。

部分	說明
Obj	任何類的實體

示例：

//JScript
FreeAndNil(UgButton01);
FreeAndNil(s);

1
2
3

//PasScript
FreeAndNil(UgButton01);
FreeAndNil(s);

1
2
3

// Make sure to add code blocks to your code group

執行該語句后Obj對像將被釋放，並且設定其值為Nil。

← 示例使用方式系統程式→