爱招飞帮助手册
目录

系统函数

# TaskRunner 系统函数

  该手册内的内容用于编写程序时作为参考，包含系统使用的函数以及副程序。

# 1. 字符串处理函数

# 1.1. CompareStr

function CompareStr(const S1,S2:string):Integer;
1
  • 该函数用于比较两个字符串，字符串需区分大小写。
参数 说明
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
  • 运行结果

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

# 1.2. CompareText

function CompareText(S1: String; S2: String): Integer;
1
  • 该函数通过序数值比较两个字符串，不区分大小写。
参数 说明
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
  • 运行结果

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

# 1.3. Copy

function Copy(S: String; Index,Count: Integer): String;
1
  • 该函数用于返回一个字符串的字串或者动态数组中的一个元素。
参数 说明
S 待取的字符串
Index 整形表达式，作为截取字符串或元素的起始位置
Count 整形表达式，表示截取的字符数目

  • 返回值：函数返回截取的字符串或数组。

  • 示例：

//JScript
  var s1,s3;
  s1 = "Hi,Hello";
  //截取字符串从第一位开始至第四位为新的字符串
  s3 = Copy(s1,1,4);
  ShowMessage(s3);
1
2
3
4
5
6
  • 运行结果：

Hi,H

# 1.4. LeftStr

function LeftStr(const AText: WideString; const ACount: Integer): WideString;
1
  • 该函数在字符串的开始处返回指定长度的字符串。
参数 说明
AText 一个字符串表达式
ACount 一个整型表达式，表示函数返回的字串长度

  • 返回值：函数返回截取的字符串。

  • 示例：

//JScript
ShowMessage(LeftStr("IsoFace",3));
1
2
  • 运行结果

Iso

# 1.5. Length

fucntion Length(S): Integer;
1
  • 该函数返回字符串的字符数。
参数 说明
S 一个字符串表达式

  • 返回值：函数返回字符串的长度数值。

  • 示例：

//JScript
  var s1,s3;
  s1 = "Hi,Hello";
  s3 = IntToStr(Length(s1));
  ShowMessage("String length：" + s3);
1
2
3
4
5
  • 运行结果：

String length：8

# 1.6. LowerCase

function LowerCase(const S: string): String;
1
  • 该函数将字符串转换为小写格式。
参数 说明
S 待转换的字符串

  • 返回值：函数返回指定的字符串的小写格式。

  • 示例：

//JScript
  var s1;
  s1 = "Hi,Hello";
  s1 = LowerCase(s1);
  ShowMessage(s1);
1
2
3
4
5
  • 运行结果

hi,hello

# 1.7. Pos

function Pos(SubStr: String; S: String): Integer;
1
  • 该函数返回子字符串第一次出现在指定字符串中的索引值。
参数 说明
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
  • 运行结果：

String position：4

# 1.8. PosEx

function PosEx(const SubStr, S: string; Offset: Integer): Integer;
1
  • 该函数返回子字符串在源字符串中的索引值。
部分 说明
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
  • 运行结果：

0 7

# 1.9. QuotedStr

function QuotedStr(const S: String): String;
1
  • 该函数返回字符串的引证串，引证串是在字符串的开始和结尾添加”'“。
参数 说明
S 字符串表达式

  • 返回值：函数返回参数指定字符串的引证串。

  • 示例：

//JScript
  var s1,s2;
  s1 = "Hi,Hello";
  s2 = "He";
  ShowMessage(s1);
  ShowMessage(QuotedStr(s2));
1
2
3
4
5
6
  • 运行结果：

Hi,Hello 'He'

# 1.10. RightStr

function RightStr(const AText: WideString; const ACount: Integer): WideString;
1
  • 该函数返回字符串尾端开始指定长度的字符串。
参数 说明
AText 一个字符串表达式
ACount 一个整型表达式，表示函数返回的字串长度

  • 返回值：函数返回截取的字符串。

  • 示例：

//JScript
  ShowMessage(RightStr("IsoFace",4));
1
2
  • 运行结果

Face

# 1.11. SameText

function SmaeText(const S1,S2:String): Boolean;
1
  • 该函数根据序数值比较两个字符串，不区分大小写。
参数 说明
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
  • 运行结果

Same

# 1.12. StringOfChar

function StringOfChar(Ch: Char; Count: Integer): String;
1
  • 该函数返回一个循环指定次数字符的字符串。
部分 说明
Ch 字符类型表达式，指定字符串的内容
Count 整型表达式，指定函数返回的字符串由多少个字符组成

  • 返回值：函数返回一个由Count指定个数和Ch指定字符的字符串。

  • 示例：

//JScript
  var s1,s2,s3;
  s1 = "A";
  ShowMessage(StringOfChar(S1,5) + "  " + StringOfChar("C",5));
1
2
3
4
  • 运行结果：

AAAAA CCCCC

# 1.13. Trim

function Trim(const S: String): String;
1
  • 该函数用于删除字符串的首尾空格。
部分 说明
S 字符串表达式

  • 返回值：函数返回去掉首尾空格后的新字符串。

  • 示例：

//JScript
  var s1,s2;
  s1 = "Hi,H e  llo";
  s2 = "   IsoFace   ";
  ShowMessage(Trim(s1));
  ShowMessage(Trim(s2));
1
2
3
4
5
6
  • 运行结果：

Hi,H e llo IsoFace

# 1.14. TrimLeft

function TrimLeft(const S: String): String;
1
  • 该函数用于删除字符串的首部空格。
部分 说明
S 字符串表达式

  • 返回值：函数返回去掉首部空格后的新字符串。

  • 示例：

//JScript
  var s1,s2;
  s1 = "   Hi,H e  llo";
  s2 = "   IsoFace   ";
  ShowMessage(TrimLeft(s1));
  ShowMessage(TrimLeft(s2));
1
2
3
4
5
6
  • 运行结果：

Hi,H e llo IsoFace    

# 1.15. TrimRight

function TrimRight(const S: String): String;
1
  • 该函数用于删除字符串的尾部空格。
部分 说明
S 字符串表达式

  • 返回值：函数返回去掉尾部空格后的新字符串。

  • 示例：

//JScript
  var s1,s2;
  s1 = "   Hi,H e  llo";
  s2 = "   IsoFace   ";
  ShowMessage(TrimRight(s1));
  ShowMessage(TrimRight(s2));
1
2
3
4
5
6
  • 运行结果：

    Hi,H e llo     IsoFace

# 1.16. UpperCase

function UpperCase(const S: string): String;
1
  • 该函数将字符串转换为大写格式。
部分 说明
S 待转换的字符串

  • 返回值：函数返回指定的字符串的大写格式。

  • 示例：

//JScript
  var s1 ;
  s1 = "Hi,Hello";
  s1 = UpperCase(s1);
  ShowMessage(s1);
1
2
3
4
5
  • 运行结果

HI,HELLO

# 2. 科学计算函数

# 2.1. Abs

function Abs(X);
1
  • 该函数用于返回指定数值的绝对值。
部分 说明
X 实型表达式，只支持浮点数类型的数据

  • 返回值：函数返回参数X指定的绝对值。

  • 示例：

//JScript
  ShowMessage(FloatToStr(Abs(-15)));
  ShowMessage(FloatToStr(Abs(-1.5)));
1
2
3
  • 运行结果

15 1.5

# 2.2. Exp

function Exp(X: Real): Real;
1
  • 该函数用于返回指定数的指数。
部分 说明
X 实型表达式

  • 返回值：函数返回e的X次幂，e是自然对数的底。

  • 示例：

//JScript
  ShowMessage(FloatToStr(Exp(2)));
  ShowMessage(FloatToStr(Exp(1.5)));
  ShowMessage(FloatToStr(Exp(0)));
1
2
3
4
  • 运行结果：

7.38905609893065 4.48168907033806 1

# 2.3. Int

function Int(X: Extended):Extended;
1
  • 该函数返回实数的整数部分。
部分 说明
X 实型表达式

  • 返回值：函数返回参数X的整数部分。

  • 示例：

//JScript
  ShowMessage(FloatToStr(Int(-12.025)));
  ShowMessage(FloatToStr(Int(12.012)));
  ShowMessage(FloatToStr(Frac(1.25)));
1
2
3
4
  • 运行结果：

-12 12 0.25

# 2.4. IsZero

function IsZero(const A: Extended; Epsilon: Extended): Boolean;
1
  • 该函数测试实型表达式是否等于或者接近零。
部分 说明
A 待测的表达式
Epsilon 与零之间的差距

  • 返回值：如果A的值为0，函数返回True，如果指定Epsilon参数，当A与0的差距小于等于Epsilon时，函数返回True，否则返回False。

  • 示例：

//JScript
{
  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
  • 运行结果：

Close Zero. Over.

# 2.5. Ln

function Ln(X: Real):Real;
1
  • 该函数用来计算一个数的自然对数。
部分 说明
X 实型表达式

  • 返回值：X的自然对数值。

  • 示例：

//JScript
  ShowMessage(FloatToStr(Ln(35.6)));
  ShowMessage(FloatToStr(Ln(20.6)));
1
2
3
  • 运行结果：

3.57234563785798 3.02529107579554

# 2.6. Pi

function Pi: Extnded;
1

  • 函数Pi返回圆周率的值。

  • 返回值：函数Pi返回圆周率的值。

  • 示例：

//JScript
  ShowMessage(FloatToStr(Pi));
1
2
  • 运行结果：

3.14159265358979

# 2.7. Power

function Power(const Base,Exponent: Extended): Extended;
1
  • 该函数返回底数的任何次幂。
部分 说明
Base 实型表达式，表示一个底数
Exponent 实型表达式，表示一个指数

  • 返回值：函数的返回值是Base的Exponent次幂。

  • 示例：

//JScript
  ShowMessage(FloatToStr(Power(2,4)));
1
2
  • 运行结果：

16

# 2.8. Round

function Round(X:Extended): Int64;
1
  • 该函数将实数四舍五入为整数。
部分 说明
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
  • 运行结果：

-5 -4 5 4

# 2.9. SameValue

function SameValue(const A, B: Extended; Epsilon: Extended): Boolean;
1
  • 该函数用于检测两个实数是否相同或相近。
部分 说明
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
  • 运行结果：

Not Same Same

# 2.10. Sqrt

function Sqrt(X:Extended): Extended;
1
  • 该函数用于计算一个数的平方根。
部分 说明
X 数字达式

  • 返回值：函数返回值是X的平方根。

  • 示例：

//JScript
  ShowMessage(FloatToStr(Sqrt(10.1)));
  ShowMessage(FloatToStr(Sqrt(25)));
1
2
3
  • 运行结果：

3.17804971641414 5

# 2.11. Trunc

function Trunc(X:Extended):Int64;
1
  • 该函数返回一个实数的整数部分。
部分 说明
X 数字达式

  • 返回值：函数返回X的整数部分。

  • 示例：

//JScript
  ShowMessage(IntToStr(Trunc(12.45)));
  ShowMessage(IntToStr(Trunc(-12.45)));
  ShowMessage(IntToStr(Trunc(0)));
1
2
3
4
  • 运行结果：

12 -12 0

# 3. 序数函数

# 3.1. Ord

function Ord(X);
1
  • 该函数用于获取顺序类型表达式的顺序值。
部分 说明
X 序数类型表达式

  • 返回值：返回一个顺序表达式的顺序值。

  • 示例：

//JScript
  ShowMessage("'a' ASCII ord:" + IntToStr(Ord("a")));
1
2
  • 运行结果：

'a' ASCII ord：97

# 4. 三角函数

# 4.1. ArcCos

function ArcCos(const X : Extended): Extended;
1
  • 该函数用于计算参数X的反余弦值。X的取值在-1至1之间。
部分 说明
X 要计算的数值

  • 返回值：返回指定参数的反余弦值。

  • 示例：

//JScript
  ShowMessage(FloatToStr(ArcCos(0.5)));
1
2
  • 运行结果：

1.0471975511966

# 4.2. ArcSin

function ArcSin(const X : Extended) : Extended;
1
  • 该函数用于计算参数X的反正弦值，X的值为-1至1之间。
部分 说明
X 要计算的数值

  • 返回值：返回指定参数的反正弦值。

  • 示例：

//JScript
  ShowMessage(FloatToStr(ArcSin(0.5)));
1
2
  • 运行结果：

0.523598775598299

# 4.3. ArcTan

function ArcTan(const X: Extended): Extended;
1
  • 该函数计算参数X的反正切值。
部分 说明
X 将要计算反正切的值

  • 返回值：返回指定参数的反正切值。

  • 示例：

//JScript
  ShowMessage(FloatToStr(ArcTan(0.5)));
1
2
  • 返回结果：

0.463647609000806

# 4.4. ArcTan2

function ArcTan2(const Y, X: Extended): Extended;
1
  • 该函数获取正确象限中的角度。
部分 说明
X，Y 获取正确象限角度的参数

  • 返回值：返回正确象限中的角度。

  • 示例：

//JScript
  ShowMessage(FloatToStr(ArcTan2(4,5)));
1
2
  • 返回结果：

0.67474094223553

# 4.5. Cos

function Cos(Const X: Extended): Extended;
1
  • 该函数计算参数X的余弦值。
部分 说明
X 将要计算余弦的值

  • 返回值：返回指定参数的余弦值。

  • 示例：

//JScript
  ShowMessage(FloatToStr(Cos(0.5)));
1
2
  • 运行结果

0.877582561890373

# 4.6. Sin

function Sin(const X: Extended): Extended;
1
  • 该函数计算参数X的正弦值。
部分 说明
X 将要计算正弦的值

  • 返回值：返回指定参数的正弦值。

  • 示例：

//JScript
  ShowMessage(FloatToStr(Sin(0.5)));
1
2
  • 运行结果：

0.479425538604203

# 5. 统计函数

# 6. 金融函数

# 6.1. DoubleDecliningBalance

function DoubleDecliningBalance(const Cost, Salvage: Extended; Life, Period: Integer): Extended;
1
  • 该函数使用双倍余额递减法或其他方法指定的方法计算一笔资产在给定期间内的折旧值。
部分 说明
Cost 表示资产原值
Salvage 表示资产在折旧期末的价值，也称为资产残值
Life 表示折旧期限，也称作资产的使用寿命
Period 表示要计算折旧值的期间

  • 返回值：返回资产的折旧值数据。

  • 示例：

//JScript
  ShowMessage(FloatToStr(DoubleDecliningBalance(800000,80000,6,2)));
1
2
  • 运行结果：

177777.777777778

# 6.2. SYDDepreciation

function SYDDepreciation(const Cost, Salvage: Extended; Life, Period: Integer): Extended;
1
  • 该函数返回某项资产按年限总和折旧法计算的指定期间的折旧值。
部分 说明
Cost 表示资产原值
Salvage 表示资产在折旧期末的价值，也称为资产残值
Life 表示折旧期限，也称作资产的使用寿命
Period 表示要计算折旧值的期间

  • 返回值：返回折旧的数据值。

  • 示例：

//JScript
  ShowMessage(FloatToStr(SYDDepreciation(200000,40000,6,1)));
1
2
  • 运行结果：

45714.2857142857

# 7. 随机数函数

# 7.1. RandomRange

function RandomRange[(Range1,Range2:Integer)];
1
  • 该函数用于产生一个Range1≤X≤Range2的随机数。
部分 说明
Range 产生随机数的范围

  • 返回值：在[Range1，Range2]之间的任意数。

  • 示例：

//JScript
  ShowMessage(IntToStr(RandomRange(0,10)));
1
2
  • 运行结果：运行该语句后产生一个大于等于0小于10的整数。

# 8. 单位换算函数

# 9. 日期函数

# 9.1. CurrentYear

function CurrentYear: Word;
1

  • 返回系统当前的年份。

  • 返回值：函数返回系统当前的年份。

  • 示例：

//JScript
  var Yearis;
  Yearis = CurrentYear();
  ShowMessage(IntToStr(Yearis));
1
2
3
4

# 9.2. Date

function Date: TDateTime;
1

  • 获得系统当前日期。

  • 返回值：返回系统当前日期。

  • 示例：

//JScript
  ShowMessage(DateToStr(Date));
1
2
  • 运行结果：

显示系统当前日期，比如2019-10-06

# 9.3. DateOf

function DateOf(const AValue: TDateTime): TDateTime;
1
  • 该函数用于将给定的TDateTime值转化为仅包含日期时间信息的TDateTime值。
部分 说明
AValue 待转换的日期时间值

  • 返回值：返回仅包含日期的TDateTime值。

  • 示例：

//JScript
  ShowMessage(DateToStr(DateOf(Now)));
1
2
  • 运行结果：显示当前日期。

# 9.4. DateTimeToFileDate

function DateTimeToFileDate(DateTime: TDateTime): Integer;
1
  • 该函数将TDateTime对象的日期时间表示形式转换为OS时间信息。
部分 说明
DateTime 待转换的日期时间值

  • 返回值：返回参数对应的OS时间信息。

  • 示例：

//JScript
  ShowMessage("System Time：" + IntToStr(DateTimeToFileDate(Now)));
1
2
  • 运行结果：显示操作系统的对应时间。

# 9.5. DateTimeToStr

function DateTimeToStr(DateTime:TDateTime):String;
1
  • 该函数将TDateTime的值转换为字符串类型。
参数 说明
DateTime TDateTime日期时间类型

  • 返回值：TDateTime值转换后的字符串类型。

  • 示例：

//JScript
  ShowMessage(DateTimeToStr(Now));
1
2
  • 运行结果：

返回当前的系统时间，例如 2020-01-20 12:30:05

# 9.6. DateToStr

function DateToStr(DateTime:TDateTime):String;
1
  • 该函数将TDateTime的值转换为字符串类型。
参数 说明
DateTime TDateTime日期时间类型

  • 返回值：TDateTime值转换后的字符串类型。

  • 示例：

//JScript
  ShowMessage(DateToStr(Now));
  ShowMessage(DateToStr(Date()));
1
2
3
  • 运行结果：

返回当前的系统时间，例如 2020-01-20 返回当前的系统时间，例如 2020-01-20

# 9.7. DayOf

function DayOf(const AValue: TDateTime): Word;
1
  • 该函数返回指定TDateTime值表示日期的值。
部分 说明
AValue 表示日期

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

  • 示例

//JScript
  ShowMessage(IntToStr(DayOf(Now)));
1
2
  • 运行结果：显示当前的日期数值。

# 9.8. DayOfTheMonth

function DayOfTheMonth(const AValue: TDateTime): Word;
1
  • 该函数用于计返回指定月份的日期数值。
部分 说明
AValue 指定日期

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

  • 示例：

//JScript
  ShowMessage(IntToStr(DayOf(StrToDate("2020-11-1"))) + " " + IntToStr(DayOfTheMonth(StrToDate("2020-11-11"))));
1
2
  • 运行结果：

1 11

# 9.9. DayOfTheWeek

function DayOfTheWeek(const AValue: TDateTime): Word;
1
  • 该函数用于计算指定的日期为星期几。此处以星期一开始计数。
部分 说明
AValue 待计算的日期类型

  • 返回值：返回计算后的Word类型值（1-7）。

  • 示例：

//JScript
  ShowMessage(IntToStr(DayOfTheWeek(Date())) + " " + IntToStr(DayOfTheWeek(StrToDate("2020-3-11"))));
1
2
  • 运行结果：显示当前日期的星期数，2020年3月11日显示为3，表示为星期三。

# 9.10. DayOfTheYear

function DayOfTheYear(const AValue: TDateTime): Word;
1
  • 该函数用于计算指定的日期为一年中的第几天。
部分 说明
AValue 待计算的日期类型

  • 返回值：返回计算后的Word类型值。

  • 示例：

//JScript
  ShowMessage(IntToStr(DayOfTheYear(StrToDate("2020-11-01"))));
1
2
  • 运行结果：

306

# 9.11. DayOfWeek

function DayOfWeek(Date: TDateTime): Integer;
1
  • 该函数计算指定的日期为星期几。
参数 说明
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
  • 运行结果：

显示今天的星期数

# 9.12. DaysBetween

function DaysBetween(const ANow, AThen: TDateTime): Integer;
1
  • 该函数用于计算指定的两个日期之间相差的天数。
部分 说明
ANow 待比较的日期时间表达式
AThen 待比较的日期时间表达式

  • 返回值：返回参数指定的两个日期相差的天数。

  • 示例：

//JScript
  ShowMessage(IntToStr(DaysBetween(StrToDate("2010-3-29"),StrToDate("2020-11-1"))));
1
2
  • 运行结果：

3870

# 9.13. DaysInAMonth

function DaysInAMonth(const AYear, AMonth: Word): Word;
1
  • 计算指定年份的指定月份的天数。
部分 说明
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
  • 运行结果：

30 29

# 9.14. DaysInAYear

function DaysInAYear(const AYear: Word): Word;
1
  • 该函数获得指定年份的总天数。
部分 说明
AYear 计算总天数的年份

  • 返回值：返回指定年份的总天数，可以获取闰年的天数。

  • 示例：

//JScript
  ShowMessage(IntToStr(DaysInAYear(YearOf(StrToDate("2020-11-1")))));
1
2
  • 运行结果：

366

# 9.15. DaysInMonth

function DaysInMonth(const AValue: TDateTime): Word;
1
  • 该函数用于获得一个月的总天数。
部分 说明
AValue 待计算月份总天数的日期

  • 返回值：返回指定日期所在月份的总天数。

  • 示例：

//JScript
  ShowMessage(IntToStr(DaysInMonth(StrToDate("2020-11-1"))));
1
2
  • 运行结果：

30

# 9.16. DaysInYear

function DaysInYear(const AValue: TDateTime): Word;
1
  • 该函数用于获得指定日期时间类型的表达式所在的年份的总天数，如果是闰年，总天数为366。
部分 说明
AValue 待转换的日期时间类型值

  • 返回值：返回指定日期时间类型的表达式所在年份的总天数。

  • 示例：

//JScript
  ShowMessage(IntToStr(DaysInYear(StrToDate("2020-11-1"))));
1
2
  • 运行结果：

366

# 9.17. DaysSpan

function DaySpan(const ANow, AThen: TDateTime): Double;
1
  • 该函数用于计算两个日期时间类型表达式所描述的日期相差的天数。
部分 说明
ANow 待比较的日期时间表达式
AThen 待比较的日期时间表达式

  • 返回值：返回参数给定两个日期相差的天数，是Double型变量。

  • 示例：

//JScript
  ShowMessage(FloatToStr(DaySpan(StrToDate("2010-11-1"),StrToDate("2020-11-1"))));
1
2
  • 运行结果：

3653

# 9.18. DecodeDateFully

function DecodeDateFully(const DateTime: TDateTime; var Year, Month, Day, DOW: Word): Boolean;
1
  • 该函数用于分解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

# 9.19. EncodeDate

function EncodeDate(Year,Month,Day: Word): TDateTime;
1
  • 该函数把指定的年、月、日转换成对应的TDateTime值。
参数 说明
Year 待转换TDateTime类型日期值的年份
Month 待转换TDateTime类型日期值的月份
Day 待转换TDateTime类型日期值的日

  • 返回值：TDateTime日期值。

  • 示例：

//JScript
  ShowMessage(DateToStr(EncodeDate(2005,07,07)));
1
2
  • 运行结果：

2005-07-07

# 9.20. EncodeDateDay

function EncodeDateDay(const AYear, ADayOfYear: Word): TDateTime;
1
  • 该函数把指定年份的多少天转换为对应的DateTime日期。
部分 说明
AYear 待转换的TDateTime类型日期值的年份
ADayOfYear 指定年份的第多少天

  • 返回值：返回TDateTime日期值。

  • 示例：

//JScript
  var DateTimeIs;
  DateTimeIs = EncodeDateDay(2020,306);
  ShowMessage(DateToStr(DateTimeIs));
1
2
3
4
  • 运行结果：

2020-11-01

# 9.21. EncodeDateMonthWeek

function EncodeDateMonthWeek(const AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word): TDateTime;
1
  • 该函数把指定年份、月份、该月的第几周和周值转换成的日期时间类型。
部分 说明
AYear 日期表达式的年份
AMonth 日期表达式的月份
AWeekOfMonth 该日是当月的第几周
ADayOfWeek 当日的周值

  • 返回值：TDateTime日期值。

  • 示例：

//JScript
  var DateTimeIs;
  DateTimeIs = EncodeDateMonthWeek(2020,5,3,4);
  ShowMessage(DateTimeToStr(DateTimeIs));
1
2
3
4
  • 运行结果：

2020-05-21

# 9.22. EncodeDateTime

function EncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word): TDateTime;
1
  • 把指定的年、月、日、时、分、秒和毫秒转换成对应的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
  • 运行结果：

2020-12-08 12:33:33

# 9.23. EncodeDateWeek

function EncodeDateWeek(const AYear, AWeekOfYear, ADayOfWeek: Word): TDateTime;
1
  • 该函数用于把指定年份的第几周的周值转换成对应的日期时间类型。
部分 说明
AYear 日期表达式的年份
AWeekOfYear 日期表达式该日期是当年的第多少周
ADayOfWeek 日期表达式的星期

  • 返回值：返回TDateTime日期值。

  • 示例：

//JScript
  var DateTimeIs;
  DateTimeIs = EncodeDateWeek(2020,45,1);
  ShowMessage(DateTimeToStr(DateTimeIs));
1
2
3
4
  • 运行结果：

2020-11-02

# 9.24. EncodeDayOfWeekInMonth

function EncodeDayOfWeekInMonth(const AYear, AMonth, ANthDayOfWeek, ADayOfWeek: Word): TDateTime;
1
  • 该函数把指定年份、月份和该月的第几周的某个周值转换成TDateTime类型。
部分 说明
AYear 日期表达式的年份
AMonth 日期表达式的月份
ANthDayOfWeek 日期表达式的星期值在本月的序号
ADayOfWeek 日期表达式的星期

  • 返回值：TDateTime日期值。

  • 示例：

//JScript
  var DateTimeIs;
  DateTimeIs = EncodeDayOfWeekInMonth(2020,4,2,5);
  ShowMessage(DateTimeToStr(DateTimeIs));
1
2
3
4
  • 运行结果：

2020-04-10

# 9.25. EncodeTime

function EncodeTime(Hour,Min,Sec,MSec: Word): TDateTime;
1
  • 该函数把指定的小时、分、秒、毫秒转换成对应的TDateTime类型值。
部分 说明
Hour 待转换TDateTime类型日期值的小时
Min 待转换TDateTime类型日期值的分钟
Sec 待转换TDateTime类型日期值的秒数
MSec 待转换TDateTime类型日期值的毫秒

  • 返回值：TDateTime类型值。

  • 示例：

//JScript
  ShowMessage(TimeToStr(EncodeTime(15,33,35,999)));
1
2
  • 运行结果：

15:33:35

# 9.26. EndOfAMonth

function EndOfAMonth(const AYear, AMonth: Word): TDateTime;
1
  • 该函数用于获得指定月份最后一天的最后可表示时刻。
部分 说明
AYear 年份
AMonth 月份

  • 返回值：函数返回参数指定年份的月份最后一天的最后可表示时刻。

  • 示例：

//JScript
  ShowMessage(DateTimeToStr(EndOfAMonth(2020,11)));
1
2
  • 运行结果：

2020-11-30 23:59:59

# 9.27. EndOfAWeek

function EndOfAWeek(const AYear, AWeekOfYear, ADayOfWeek: Word): TDateTime;
1
  • 该函数获得指定年、周、周值的最后可表示时刻。
部分 说明
AYear 指定获取最后时刻的年份
AWeekOfYear 指定获取最后时刻的周
ADayOfWeek 指定获取最后时刻的周值

  • 返回值：返回参数指定年、周、周值的最后可表示时刻。

  • 示例：

//JScript
  ShowMessage(DateTimeToStr(EndOfAWeek(2020,23,3)));
1
2
  • 运行结果：

2020-06-03 23:59:59

# 9.28. EndOfTheDay

function EndOfTheDay(const AValue: TDateTime): TDateTime;
1
  • 该函数获取与指定TDateTime类型表达式相同日期的最后可表示时刻。
部分 说明
AValue 日期时间类型表达式

  • 返回值：返回指定TDateTime类型表达式相同日期的最后可表示时刻。

  • 示例：

//JScript
  ShowMessage(DateTimeToStr(EndOfTheDay(StrToDate("2020-11-1"))));
1
2
  • 运行结果：

2020-11-01 23:59:59

# 9.29. EndOfTheMonth

function EndOfTheMonth(const AValue: TDateTime): TDateTime;
1
  • 该函数用于获取参数指定的TDateTime日期时间表达式值所在的月份的最后时刻。
部分 说明
AValue TDateTime日期时间类型表达式

  • 返回值：返回参数指定月份最后一天的最后可表示时刻。

  • 示例：

//JScript
  var MyEndDay;
  MyEndDay = EndOfTheMonth(StrToDate("2020-11-1"));
  ShowMessage(DateTimeToStr(MyEndDay));
1
2
3
4
  • 运行结果：

2020-11-30 23:59:59

# 9.30. EndOfTheWeek

function EndOfTheWeek(const AValue: TDateTime): TDateTime;
1
  • 该函数用于获取参数指定的TDateTime日期时间表达式值所在周的最后时刻。
部分 说明
AValue TDateTime日期时间类型表达式

  • 返回值：返回参数日期所在周最后一天的最后可表示时刻。

  • 示例：

//JScript
  var MyEndDay;
  MyEndDay = EndOfTheWeek(StrToDate("2020-11-1"));
  ShowMessage(DateTimeToStr(MyEndDay));
1
2
3
4
  • 运行结果：

2020-11-01 23:59:59

# 9.31. EndOfTheYear

function EndOfTheYear(const AValue: TDateTime): TDateTime;
1
  • 该函数用于获取参数指定的TDateTime日期时间表达式值所在年份的最后时刻。
部分 说明
AValue TDateTime日期时间类型表达式

  • 返回值：返回参数日期所在年份最后一天的最后可表示时刻。

  • 示例：

//JScript
  var MyEndDay;
  MyEndDay = EndOfTheYear(StrToDate("2020-11-1"));
  ShowMessage(DateTimeToStr(MyEndDay));
1
2
3
4
  • 运行结果：

2020-12-31 23:59:59

# 9.32. FormatDateTime

function FormatDateTime(const Format: String; DateTime: TDateTime): String;
1
  • 该函数利用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
  • 运行结果：

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

# 9.33. GetTime

function GetTime: TDateTime;
1

  • 该函数用于返回当前系统时间。

  • 返回值：TDateTime类型值。

  • 示例：

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

# 9.34. HourOf*

function HourOf(const: AValue: TDateTime): Word;
1
部分 说明
AValue TDateTime日期时间类型表达式

  • 返回值：返回表示参数给定的TDateTime日期时间类型表达式的小时部分的Word类型数。

  • 示例：

//JScript
  ShowMessage(IntToStr(HourOf(Now)));
1
2
  • 运行结果：

  显示当前时刻的小时的数字。

# 9.35. HourOfTheDay

function HourOfTheDay(const AValue: TDateTime): Word;
1
  • 该函数获得参数给定的日期时间类型表达式的小数部分。
部分 说明
AValue TDateTime日期时间类型表达式

  • 返回值：返回能表示参数给定的TDateTime日期时间类型表达式小时部分的Word类型数。

  • 示例：

//JScript
  ShowMessage(IntToStr(HourOfTheDay(StrToDateTime("2020-03-10 14:36:55"))));
1
2
  • 运行结果：

14

# 9.36. HourOfTheMonth

function HourOfTheMonth(const AValue: TDateTime): Word;
1
  • 该函数用于获得参数给定日期时间类型表达式与对应月份第一天零时之间已流逝的小时数。
部分 说明
AValue TDateTime类型表达式

  • 返回值：返回参数给定日期时间类型表达式与对应月份第一天零时之间已流逝的小时数的Word类型值。

  • 示例：

//JScript
  ShowMessage(IntToStr(HourOfTheMonth(StrToDateTime("2020-03-10 14:36:55"))));
1
2
  • 运行结果：

230

# 9.37. HourOfTheWeek

function HourOfTheWeek(const AValue: TDateTime): Word;
1
  • 该函数获得参数给定日期时间类型表达式与对应周期的星期一零时之间已流逝的小时数。
部分 说明
AValue 待转换的小时数的日期和时间

  • 返回值：返回一个word值。

  • 示例：

//JScript
  ShowMessage(IntToStr(HourOfTheWeek(StrToDateTime("2020-03-10 14:36:55"))));
1
2
  • 运行结果：

38

# 9.38. HourOfTheYear

function HourOfTheYear(const AValue: TDateTime): Word;
1
  • 该函数获得参数当前时间到对应年份1月1日已流逝的小时数。
部分 说明
AValue 待转换的小时数的日期和时间

  • 返回值：返回参数当前时间到对应年份1月1日已流逝的小时数。

  • 示例：

//JScript
  ShowMessage(IntToStr(HourOfTheYear(StrToDateTime("2020-03-10 14:36:55"))));
1
2
  • 运行结果：

1670

# 9.39. HoursBetween

function HoursBetween(const ANow, AThen: TDateTime): Int64;
1
  • 该函数用于获取指定的两个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
  • 运行结果：

5662

# 9.40. HourSpan

function HourSpan(const ANow, AThen: TDateTime): Double;
1
  • 该函数用于获取指定的两个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
  • 运行结果：

5662.972499999992

# 9.41. IncDay

function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer=1): TDateTime;
1
  • 该函数根据指定天数来增加或减少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
  • 运行结果：

2020-10-06 2020-09-30

# 9.42. IncHour

function IncHour(const AValue: TDateTime; const ANumberOfHours: Int64 = 1): TDateTime;
1
  • 该函数根据参数给定的值来增加或减少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
  • 运行结果：

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;
1
  • 该函数根据参数给定的值来增加或减少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
  • 运行结果：

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;
1
  • 该函数根据参数给定的值来增加或减少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
  • 运行结果：

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

# 9.45. IncMonth

function IncMonth(const Date: TDateTime; NumberOfMonths: Integer=1): TDateTime;
1
  • 该函数根据参数给定的值来增加或减少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
  • 运行结果：

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

# 9.46. IncSecond

function IncSecond(const Date: TDateTime; NumberOfSeconds: Integer=1): TDateTime;
1
  • 该函数根据参数给定的值来增加或减少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
  • 运行结果：

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

# 9.47. IncWeek

function IncWeek(const AValue: TDateTime; NumberOfWeeks: Integer=1): TDateTime;
1
  • 该函数根据参数给定的值来增加或减少TDateTime值的周数。
部分 说明
AValue TDateTime类型日期时间的表达式
NumberOfWeeks 待增加或减少周的数量

  • 返回值：返回改变后的TDateTime类型值。

  • 示例：

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
  • 运行结果：

2020-10-15 2020-09-17

# 9.48. IncYear

function IncYear(const AValue: TDateTime; const ANumberOfYears: Integer = 1):TDateTime;
1
  • 该函数根据参数给定的值来增加或减少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
  • 运行结果：

2022-10-01 2018-10-01

# 9.49. IsInLepYear

function IsInLeapYear(const AValue: TDateTime): Boolean;
1
  • 判断参数给定的日期所在的年份是不是闰年。
部分 说明
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
  • 运行结果：显示今年是否为闰年，例如本示例制作年份为2020年，该年份内执行该代码显示今年为闰年。

# 9.50. IsLeapYear

function IsLeapYear(Year: Word): Boolean
1
  • 该函数用于检验所给的年份是否为闰年。
部分 说明
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
  • 运行结果：

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

# 9.51. IsPM

function IsPM(const AValue: TDateTime): Boolean;
1
  • 检验参数的时间是否为下午。
部分 说明
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
  • 运行结果：

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

# 9.52. IsSameDay

function IsSameDay(const AValue, ABasis: TDateTime): Boolean;
1
部分 说明
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
  • 运行结果：

Not Same Day

# 9.53. IsToday

function IsToday(const AValue: TDateTime): Boolean;
1
  • 该函数检测发生的日期与系统日期是否相同。
部分 说明
AValue TDateTime类型日期时间的表达式

  • 返回值：如果参数给定的日期与系统当前日期相同返回True，否则返回False。

  • 示例：

//JScript
  if (IsToday(StrToDateTime("2020-2-24"))){
    ShowMessage("Today");
  }
  else{
    ShowMessage("Not Today");
  }
1
2
3
4
5
6
7
  • 运行结果：

Not Today

# 9.54. IsValidDate

function IsValidDate(const AYear, AMonth, ADay: Word): Boolean;
1
  • 该函数用于检验给定的年、月、日是否合乎规范。
部分 说明
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
  • 运行结果：

-1 0 0

# 9.55. IsValidDateDay

function IsValidDateDay(const AYear, ADayOfYear: Word): Boolean;
1
  • 检查参数给定的天数是不是再指定年份的总天数范围之内。
部分 说明
AYear 年
ADayOfYear 待检验的天数

  • 返回值：若参数给定的天数在指定年份的总天数范围之内返回True，否则返回False。

  • 示例：

//JScript
  ShowMessage(BoolToStr(IsValidDateDay(2020,367)));
  ShowMessage(BoolToStr(IsValidDateDay(2020,0)));
  ShowMessage(BoolToStr(IsValidDateDay(2020,4)));
1
2
3
4
  • 运行结果：

0 0 -1

# 9.56. IsValidDateMonthWeek

function IsValidDateMonthWeek(const AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word): Boolean;
1
  • 该函数是检验参数给定的年份、月份、该月份第几周和周值的合法性。
部分 说明
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
  • 运行结果：

-1 0 0

# 9.57. IsValidDateTime

function IsValidDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word): Boolean;
1
  • 检验参数给定的年、月、日、小时、分钟、秒和毫秒的合法性。
部分 说明
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
  • 运行结果：

-1 0 0

# 9.58. IsValidDateWeek

function IsValidDateWeek(const AYear, AWeekOfYear, ADayOfWeek: Word): Boolean;
1
  • 检验参数给定的年份、周数，合法性。
部分 说明
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
  • 运行结果：

-1 0 -1

# 9.59. IsValidTime

function IsValidTime(const AHour, AMinute, ASecond, AMilliSecond: Word): Boolean;
1
  • 检验参数给定的小时、分钟、秒、和毫秒的合法性。
部分 说明
AHour 待检验的小时
AMinute 待检验的分钟
ASecond 待检验的秒
AMilliSecond 待检验的毫秒

  • 返回值：如果被检验值合法，函数返回True，否则返回False。

  • 示例：

//JScript
  ShowMessage(BoolToStr(IsValidTime(20,35,25,0)));
1
2
  • 运行结果：

-1

# 9.60. MilliSecondOf

function MilliSecondOf(const AValue: TDateTime): Word;
1
  • 该函数获得参数给定日期时间类型表达式的毫秒。
部分 说明
AValue 日期时间类型表达式

  • 返回值：返回能代表参数给定的日期时间类型表达式毫秒的Word类型值。

  • 示例：

//JScript
  var MiliSecond;
  MilliSecond = MilliSecondOf(Now);
  ShowMessage(IntToStr(MilliSecond));
1
2
3
4

  执行上述代码，得到当前系统时间的毫秒值。

# 9.61. MilliSecondOfTheDay

function MilliSecondOfTheDay(const AValue: TDateTime): Cardinal;
1
  • 该函数获得TDateTime参数所在天已流逝的毫秒数。
部分 说明
AValue 日期时间类型表达式

  • 返回值：返回已流逝的毫秒数。

  • 示例：

//JScript
  var MilCount;
  MilCount = MilliSecondOfTheDay(Now);
  ShowMessage(IntToStr(Milcount));
1
2
3
4
  • 运行结果：显示当天已流逝的毫秒数。

# 9.62. MilliSecondOfTheHour

function MilliSecondOfTheHour(const AValue: TDateTime): Cardinal;
1
  • 该函数用于获得所在小时已流逝的毫秒数。
部分 说明
AValue 日期时间类型表达式

  • 返回值：返回已流逝的毫秒数。

  • 示例：

//JScript
  var MilCount;
  MilCount = MilliSecondOfTheHour(Now);
  ShowMessage(IntToStr(Milcount));
1
2
3
4
  • 运行结果：显示当前所在小时已流逝的毫秒数。

# 9.63. MilliSecondOfTheMinute

function MilliSecondOfTheMinute(const AValue: TDateTime): Cardinal;
1
  • 该函数用于获得参数指定的TDateTime值，与它同一分钟的起点之间已流逝的毫秒数。
部分 说明
AValue 日期时间类型表达式

  • 返回值：返回已流逝的毫秒数。

  • 示例：

//JScript
  var MilCount;
  MilCount = MilliSecondOfTheMinute(Now);
  ShowMessage(IntToStr(Milcount));
1
2
3
4
  • 运行结果：显示当前分钟已流逝的毫秒数。

# 9.64. MilliSecondOfTheMonth

function MilliSecondOfTheMonth(const AValue: TDateTime): Cardinal;
1
  • 该函数用于获取参数指定的TDateTime值与它同一月的起点之间已流逝的毫秒数。
部分 说明
AValue 日期时间类型表达式

  • 返回值：返回已流逝的毫秒数。

  • 示例：

//JScript
  var MilCount;
  MilCount = MilliSecondOfTheMonth(Now);
  ShowMessage(IntToStr(Milcount));
1
2
3
4
  • 运行结果：显示当前时刻所在月份已流逝的毫秒数。

# 9.65. MilliSecondOfTheSecond

function MilliSecondOfTheSecond(const AValue: TDateTime): Word;
1
  • 该函数用于获得参数指定的TDateTime值与它同一秒的起点之间已流逝的毫秒数。
部分 说明
AValue 日期时间类型表达式

  • 返回值：返回已流逝的毫秒数。

  • 示例：

//JScript
  var MilCount;
  MilCount = MilliSecondOfTheSecond(Now);
  ShowMessage(IntToStr(Milcount));
1
2
3
4
  • 运行结果：显示当前秒数中已流逝的毫秒数。

# 9.66. MilliSecondsBetween

function MilliSecondsBetween(const ANow, AThen: TDateTime): Int64;
1
  • 该函数获取参数指定的两个日期时间类型表达式之间相差的毫秒数。
部分 说明
ANow 待比较的日期时间类型表达式
AThen 带比较的日期时间类型表达式

  • 返回值：返回两日期时间类型表达式相差的毫秒数（64位整型值）。

  • 示例：

//JScript
  ShowMessage(IntToStr(MilliSecondsBetween(Now,Now + 1)));
1
2
  • 运行结果：该段代码用于计算一天有多少毫秒数。

86400000

# 9.67. MinuteOf

function MinuteOf(const AValue: TDateTime):Word;
1
  • 该函数获取指定的日期时间表达式时钟的分钟数。
部分 说明
AValue 日期时间类型表达式

  • 返回值：返回指定的日期时间表达式时钟的分钟数(Word类型值)。

  • 示例：

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

  该段代码执行后，消息对话框显示系统当前分钟。

# 9.68. MinuteOfTheHour

function MinuteOfTheHour(const AValue: TDateTime): Word;
1
  • 该函数用于指定TDateTime值与它同一小时的起点之间已流逝的分钟数。
部分 说明
AValue 日期时间类型表达式

  • 返回值：返回已流逝的分钟数。

  • 示例：

//JScript
  ShowMessage(IntToStr(MinuteOfTheHour(StrToDateTime("2020-11-01 13:24:00"))));
1
2
  • 运行结果：

24

# 9.69. MinuteOfTheMonth

function MinuteOfTheMonth(const AValue: TDateTime): Word;
1
  • 该函数用于获得参数指定的TDateTime值与它同一月的起点之间已经流逝的分钟数。
部分 说明
AValue 日期时间类型表达式

  • 返回值：返回已流逝的分钟数。

  • 示例：

//JScript
  ShowMessage(IntToStr(MinuteOfTheMonth(StrToDateTime("2020-11-02 13:24:00"))));
1
2
  • 运行结果：

2244

# 9.70. MinuteOfTheWeek

function MinuteOfTheWeek(const AValue: TDateTime): Word;
1
  • 该函数用于获得参数指定的TDateTime值与它同一周的起点之间已经流逝的分钟数。
部分 说明
AValue 日期时间类型表达式

  • 返回值：返回已流逝的分钟数。

  • 示例：

//JScript
  ShowMessage(IntToStr(MinuteOfTheWeek(StrToDateTime("2020-11-04 13:24:00"))));
1
2
  • 运行结果：

3684

# 9.71. MinuteOfTheYear

function MinuteOfTheYear(const AValue: TDateTime): Cardinal;
1
  • 该函数用于获得参数指定的TDateTime值与它同一年的起点之间已经流逝的分钟数。
部分 说明
AValue 日期时间类型表达式

  • 返回值：返回已流逝的分钟数。

  • 示例：

//JScript
  ShowMessage(IntToStr(MinuteOfTheYear(StrToDateTime("2020-11-04 13:24:00"))));
1
2
  • 运行结果：

444324

# 9.72. MinutesBetween

function MinutesBetween(const ANow, AThen: TDateTime): Int64;
1
  • 该函数获得指定TDateTime值之间相差的分钟数。
部分 说明
ANow 日期时间表达式
AThen 日期时间表达式

  • 返回值：返回参数给定的两个TDateTime值之间相差的分钟数的64位整型。

  • 示例：

//JScript
  ShowMessage(IntToStr(MinutesBetween(Now,StrToDateTime("2020-11-1 3:51"))));
1
2
  • 运行结果：返回当前时间与给定时间相差的分钟数。

# 9.73. MinuteSpan

function MinuteSpan(const ANow, AThen: TDateTime): Double;
1
  • 该函数获得参数给定的两个TDateTime类型值相差的分钟数。返回的数据类型为double。
部分 说明
ANow 日期时间表达式
AThen 日期时间表达式

  • 返回值：返回参数给定的两个TDateTime值之间相差的分钟数的Double类型。

  • 示例：

//JScript
  ShowMessage(FloatToStr(MinuteSpan(Now,StrToDateTime("2020-11-1 3:51"))));
1
2
  • 运行结果：返回当前时间与给定时间相差的分钟数。

# 9.74. MonthOf

function MonthOf(const AValue: TDateTime):Word;
1
  • 该函数获得参数给定日期时间类型表达式的月份。
部分 说明
AValue 日期时间类型表达式

  • 返回值：返回能代表参数给定的日期时间类型表达式月份的Word类型值。

  • 示例：

//JScript
  var Mon;
  Mon = MonthOf(Now);
  ShowMessage(IntToStr(Mon));
1
2
3
4

  执行上述代码，显示系统当前月份。

# 9.75. MonthOfTheYear

function MonthOfTheYear(const AValue: TDateTime): Word;
1
  • 该函数获得参数给定日期时间类型表达式的月份。
部分 说明
AValue 日期时间类型表达式

  • 返回值：返回能代表参数给定的日期时间类型表达式月份的word类型值。

  • 示例：

//JScript
  var Mon;
  Mon = MonthOfTheYear(Now);
  ShowMessage(IntToStr(Mon));
1
2
3
4
  • 运行结果：显示系统当前月份。

# 9.76. MonthsBetween

function MonthsBetween(const ANow, AThen: TDateTime): Integer;
1
部分 说明
ANow 待比较的日期时间类型表达式
AThen 待比较的日期时间类型表达式

  • 返回值：返回参数给定的两日期时间类型表达式之间相差的整月数的Word类型值。

  • 示例：

//JScript
  ShowMessage(IntToStr(MonthsBetween(Date,EndOfTheYear(now))));
1
2
  • 运行结果：显示当前月份与年末月份的差值。

# 9.77. MonthSpan

function MonthSpan(const ANow, AThen: TDateTime): Double;
1
  • 该函数获取给定的两日期时间类型表达式之间相差的月数。
部分 说明
ANow 待比较的日期时间类型表达式
AThen 待比较的日期时间类型表达式

  • 返回值：返回参数给定的两日期时间类型表达式之间相差月数的Double类型值。

  • 示例：

//JScript
  ShowMessage(FloatToStr(MonthSpan(Date,EndOfTheYear(now))));
1
2
  • 运行结果：显示当前日期与年末日期的月份相差浮点数值。

# 9.78. Now

function Now: TDateTime;
1

  • 该函数用于获取系统当前的日期和时间。

  • 返回值：返回系统当前的日期和时间。

  • 示例：

//JScript
  ShowMessage(DateTimeToStr(now));
  ShowMessage(DateTimeToStr(Now()));
1
2
3
  • 运行结果：

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;
1
  • 函数把参数指定的日期替换为参数Year、Month、Day所对应的日期。
部分 说明
AValue 被替换的日期时间类型表达式
AYear 替换后的年份
AMonth 替换后的月份
ADay 替换后的日

  • 返回值：返回变换后的日期。

  • 示例：

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

# 9.80. RecodeDateTime

function RecodeDateTime(const AValue: TDateTime; const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word): TDateTime;
1
  • 该函数把参数指定的日期时间类型表达式替换为参数给定的年、月、日、小时、分钟、秒和毫秒所对应的日期时间值。
部分 说明
AValue 被替换后的日期时间类型表达式
AYear 替换后的年份
AMonth 替换后的月份
ADay 替换后的日
AHour 替换后的小时
AMinute 替换后的分钟
ASecond 替换后的秒钟
AMilliSecond 替换后的毫秒

  • 返回值：返回变换后的日期时间类型值。

  • 示例：

//JScript
  ShowMessage(DateTimeToStr(RecodeDateTime(Now,2020,07,07,12,25,25,0)));
1
2
  • 运行结果：

2020-07-07 12:25:25

# 9.81. RecodeDay

function RecodeDay(const AValue: TDateTime; const ADay: Word): TDateTime;
1
  • 把参数指定的日期时间类型表达式替换为参数给定日所对应的日期时间值。
部分 说明
AValue 被替换的日期时间类型表达式
ADay 替换后的日

  • 返回值：返回变换后的日期时间类型值。

  • 示例：

//JScript
  ShowMessage(DateToStr(RecodeDay(Now,1)));
1
2
  • 运行结果：将当前日期的日改为1日。

# 9.82. RecodeHour

function RecodeHour(const AValue: TDateTime; const AHour: Word): TDateTime;
1
  • 该函数将指定时间中的小时替换为另一个指定的小时。
部分 说明
AValue 被替换的日期时间类型表达式
AHour 替换的小时

  • 返回值：返回修改小时后的时间。

  • 示例：

//JScript
  ShowMessage(DateTimeToStr(RecodeHour(StrToDateTime("2020-11-1 12:00:00"),6)));
1
2
  • 运行结果：

2020-11-1 06:00:00

# 9.83. RecodeMilliSecond

function RecodeMilliSecond(const AValue: TDateTime; const AMilliSecond: Word): TDateTime;
1
  • 该函数将指定时间中的毫秒替换成指定的数值。
部分 说明
AValue 被替换的日期时间类型表达式
AMilliSeconds 替换的毫秒值

  • 返回值：返回替换毫秒后的时间。

  • 示例：

//JScript
  var AValue;
  AValue = RecodeMilliSecond(now,100);
  ShowMessage(FormatDateTime("yyyy-mm-dd hh:mm:ss:zzz",AValue));
1
2
3
4
  • 运行结果：运行后返回参数指定的值(0-999)。

# 9.84. RecodeMinute

function RecodeMinute(const AValue: TDateTime; const AMinute: Word): TDateTime;
1
  • 该函数将指定时间中的分替换称为特定数值。
部分 说明
AValue 被替换的日期时间类型表达式
AMinute 返回被替换分钟的时间

  • 返回值：返回替换后的时间。

  • 示例：

//JScript
  var AValue;
  AValue = RecodeMinute(now,10);
  ShowMessage(FormatDateTime("yyyy-mm-dd hh:mm:ss",AValue));
1
2
3
4
  • 运行结果：运行后返回参数特定的值（0-59）。

# 9.85. RecodeSecond

function RecodeSecond(const AValue: TDateTime; const ASecond: Word): TDateTime;
1
  • 该函数将指定时间的秒替换为指定的数值。
部分 说明
AValue 被替换的日期时间类型表达式
ASecond 替换秒指定的数值

  • 返回值：返回替换秒后的时间。

  • 示例：

//JScript
  var AValue;
  AValue = RecodeSecond(now,10);
  ShowMessage(FormatDateTime("yyyy-mm-dd hh:mm:ss",AValue));
1
2
3
4
  • 运行结果：运行后返回参数的特定的值(0-59)。

# 9.86. RecodeTime

function RecodeTime(const AValue: TDateTime; const AHour, AMinute, ASecond, AMilliSecond: Word): TDateTime;
1
  • 该函数将指定时间的时、分、秒和毫秒替换为指定的数值。
部分 说明
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
  • 运行结果：函数运行后，返回一个更改当前时间的时钟为11、分钟为12、秒钟为13、毫秒为14的值。

# 9.87. RecodeYear

function RecodeYear(const AValue: TDateTime; const AYear: Word): TDateTime;
1
  • 该函数用于将指定时间的年份替换为指定的数值。
部分 说明
AValue 被替换的日期时间类型表达式
AYear 替换年份的指定值

  • 返回值：返回替换后的时间。

  • 示例：

//JScript
  var AValue;
  AValue = RecodeYear(now,2021);
  ShowMessage(FormatDateTime("yyyy-mm-dd hh:mm:ss:zzz",AValue));
1
2
3
4
  • 运行结果：函数运行后，返回一个更改当前时间的年份为2021年的值。

# 9.88. SameDate

function SameDate(const A, B: TDateTime): Boolean;
1
  • 该函数比较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
  • 运行结果：

not Same

# 9.89. SameDateTime

function SameDateTime(const A, B: TDateTime): Boolean;
1
  • 该函数比较两个时间是否相同。
部分 说明
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
  • 运行结果：

not Same

# 9.90. SameTime

function SameTime(const A, B: TDateTime): Boolean;
1
  • 该函数比较两个时间是否相等，不包括日期部分。
部分 说明
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
  • 运行结果：

Same

# 9.91. SecondOf

function SecondOf(const AValue: TDateTime;): Word;
1
  • 该函数返回指定时间中表示的秒数。
部分 说明
AValue 待操作的TDateTime类型的时间值

  • 返回值：返回取得的秒数。

  • 示例：

//JScript
  ShowMessage(IntToStr(SecondOf(Now)));
1
2

  执行上述代码后，显示当前系统的秒数。

# 9.92. SecondOfTheDay

function SecondOfTheDay(const AValue: TDateTime): Cardinal;
1
  • 该函数用于返回指定时间与同一天00:00:00之间已流逝的秒数。
部分 说明
AValue 指定计算的时间

  • 返回值：返回流逝的秒数。

  • 示例：

//JScript
  var ADate,SecOf;
  ADate = Now();
  SecOf = SecondOftheDay(ADate);
  ShowMessage(IntToStr(SecOf));
1
2
3
4
5
  • 运行结果：运行后返回流逝的秒数。

# 9.93. SecondOfTheHour

function SecondOfTheHour(const AValue: TDateTime): Word;
1
  • 该函数用于返回指定时间与同一天同一时的起始时间之间流逝的秒数。
部分 说明
AValue 指定计算的时间

  • 返回值：返回流逝的小时数。

  • 示例：

//JScript
  var ADate,HourOf;
  ADate = Now();
  HourOf = SecondOfTheHour(ADate);
  ShowMessage(IntToStr(HourOf));
1
2
3
4
5
  • 运行结果：显示当前小时已流逝的秒数。

# 9.94. SecondOfTheMinute

function SecondOfTheMinute(const AValue: TDateTime): Word;
1
  • 该函数返回指定时间与同一天同一分钟的起始时间之间流逝的秒数。
部分 说明
AValue 指定计算的时间

  • 返回值：返回流逝的秒数。

  • 示例：

//JScript
  var ADate, HourOf;
  ADate = Now();
  HOurOf = SecondOftheMinute(ADate);
  ShowMessage(IntToStr(HOurOf));
1
2
3
4
5
  • 返回值：返回流逝的秒数。

# 9.95. SecondOfTheMonth

function SecondOfTheMonth(const AValue: TDateTime): Cardinal;
1
  • 该函数返回指定时间与同一天同一分钟的起始时间之间流逝的秒数。
部分 说明
AValue 指定计算的时间

  • 返回值：返回流逝的秒数。

  • 示例：

//JScript
  var ADate, HourOf;
  ADate = Now();
  HOurOf = SecondOftheMonth(ADate);
  ShowMessage(IntToStr(HOurOf));
1
2
3
4
5
  • 返回值：返回流逝的秒数。

# 9.96. SecondOfTheWeek

function SecondOfTheWeek(const AValue: TDateTime): Cardinal;
1
  • 该函数返回指定的时间与其所在周首天00:00:00之间流逝的秒数。
部分 说明
AValue 指定计算的时间

  • 返回值：返回流逝的秒数。

  • 示例：

//JScript
  var ADate, HourOf;
  ADate = Now();
  HOurOf = SecondOfTheWeek(ADate);
  ShowMessage(IntToStr(HOurOf));
1
2
3
4
5
  • 返回值：返回流逝的秒数。

# 9.97. SecondsBetween

function SecondsBetween(const ANow, AThen: TDateTime): Int64;
1
  • 该函数返回两个间隔时间相差的秒数。
部分 说明
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
  • 运行结果：该函数返回ADt与TADt之间相差的秒数。

# 9.98. SecondsSpan

function SecondSpan(const ANow, AThen: TDateTime): Double;
1
  • 该函数返回两个指定时间相差的秒数，包括分数秒。
部分 说明
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
  • 运行结果：该函数返回ADt与TADt之间相差的秒数。

# 9.99. StartOfAWeek

function StartOfAWeek(const AYear, AWeekOfYear, ADayOfWeek: Word): TDateTime;
1
  • 该函数返回指定日期中指定星期的第一个可表示时刻。
部分 说明
AYear 指定的年
AWeekOfYear 指定周
ADayOfWeek 指定周的第一天是哪天

  • 返回值：返回一个时间值。

  • 示例：

//JScript
  var DT;
  DT = StartOfAWeek(2020,45,1);
  ShowMessage(DateToStr(DT));
1
2
3
4
  • 运行结果：

2020-11-02

# 9.100. StartOfAYear

function StartOfAYear(const AYear: Word): TDateTime;
1
  • 该函数返回指定年份的第一个可表示的时刻。
部分 说明
AYear 指定年份

  • 返回值：返回获得的时间。

  • 示例：

//JScript
  var DT;
  DT = StartOfAYear(2020);
  ShowMessage(DateToStr(DT));
1
2
3
4
  • 运行结果：

2020-01-01

# 9.101. StartOfTheDay

function StartOfTheDay(const AValue: TDateTime): TDateTime;
1
  • 该函数根据指定的日期返回当天的零时时间。
部分 说明
AValue 日期表达式

  • 返回值：函数返回AValue所表示的某一天的开始时间。

  • 示例：

//JScript
  ShowMessage(FormatDateTime("yyyy-mm-dd hh:mm:ss",StartOfTheDay(Now)));
1
2
  • 运行结果：该函数显示当天的零时时间。

# 9.102. StartOfTheMonth

function StartOfTheMonth(const AValue: TDateTime): TDateTime;
1
  • 该函数根据指定的日期返回当月第一天的零时时间。
部分 说明
AValue 日期表达式

  • 返回值：函数返回AValue所表示的某一天的开始时间。

  • 示例：

//JScript
  ShowMessage(FormatDateTime("yyyy-mm-dd hh:nn:ss",StartOfTheMonth(Now)));
1
2

  执行上述代码，单击按钮，显示本月的零时时间。

# 9.103. StartOfTheWeek

function StartOfTheWeek(const AValue: TDateTime): TDateTime;
1
  • 该函数根据指定的日期返回本周第一天的零时时间。
部分 说明
AValue 日期表达式

  • 返回值：函数返回AValue所表示的某一天的开始时间。

  • 示例：

//JScript
  ShowMessage(FormatDateTime("yyyy-mm-dd hh:nn:ss",StartOfTheWeek(Now)));
1
2

  显示本周周一的零时时间。

# 9.104. StartOfTheYear

function StartOfTheYear(const AValue: TDateTime): TDateTime;
1
  • 该函数根据指定的日期返回当年的第一天的零时时间。
部分 说明
AValue 日期表达式

  • 返回值：函数返回AValue所表示的某一天的开始时间。

  • 示例：

//JScript
  ShowMessage(FormatDateTime("yyyy-mm-dd hh:nn:ss",StartOfTheYear(Now)));
1
2

  显示本年第一天的零时时间。

# 9.105. StrToDate

function StrToDate(const S: String): TDateTime;
1
  • 该函数将字符串转换为日期值。
参数 说明
S 字符串表达式，表示待转换的字符串

  • 返回值：函数返回转换后的日期数据。

  • 示例：

//JScript
  ShowMessage(DateTimeToStr(StrToDate("2020-01-01")));
1
2
  • 运行结果：

2020-01-01

# 9.106. StrToDateDef

function StrToDateDef(const S: String; const Default: TDateTime): TDateTime;
1
  • 该函数将字符串转换为日期值，如果字符串不符合日期格式，返回默认值。
参数 说明
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

# 9.107. StrToDateTime

function StrToDate(const S: String): TDateTime;
1
  • 该函数将字符串转换为日期值。
参数 说明
S 字符串表达式，表示待转换的字符串

  • 返回值：函数返回转换后的日期时间数据。

  • 示例：

//JScript
  var ADate;
  ADate = StrToDateTime("2020-11-01 13:25:28");
  ShowMessage(DateTimeToStr(ADate));
1
2
3
4
  • 运行结果：

2020-11-01 13:25:28

# 9.108. StrToDateTimeDef

function StrToDateTimeDef(const S: String; const Default: TDateTime): TDateTime;
1
  • 该函数将字符串转换为日期时间类型，如果字符串不符合格式，则使用默认值。
参数 说明
S 字符串表达式，表示待转换的字符串
Default 日期数据，表示为函数提供的默认值

  • 返回值：函数返回转换后的日期时间数据，如果S不符合日期时间格式，函数返回默认值。

  • 示例：

//JScript
  var ADate;
  ADate = StrToDateTimeDef("2008-01-0D 12:59:59",Now);
  ShowMessage(DateTimeToStr(ADate));
1
2
3
4

  上述函数运行后，字符串表达式中的日期时间数据不符合格式要求，函数返回默认值。

# 9.109. StrToTime

function StrToTime(const S: String): TDateTime;
1
  • 该函数将字符串转换为时间。
部分 说明
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
  • 运行结果：

Good Afternoon!

# 9.110. StrToTimeDef

function StrToDateDef(Const S: string; const Default: TDateTime): TDateTime;
1
  • 该函数将字符串转换为时间，如果字符串不符合要求，则返回默认值。
参数 说明
S 字符串表达式，表示待转换的字符串
Default 日期数据，表示为函数提供的默认值

  • 返回值：函数返回转换后的时间数据，如果S不符合时间格式，函数返回默认值。

  • 示例：

//JScript
  var ATime;
  ATime = StrToTimeDef("12:00:0s",Now);
  ShowMessage(TimeToStr(ATime));
1
2
3
4

  该函数运行后，由于时间格式不符合要求，函数返回当前时间。

# 9.111. Time

function Time: TDateTime;
1

  函数用于返回当前系统时间。

  • 返回值：函数返回系统当前的时间数据。

  • 示例：

//JScript
  ShowMessage(TimeToStr(time));
1
2

  该示例运行后，返回当前系统的时间。

# 9.112. TimeOf

function TimeOf(const AValue: TDateTime): TDateTime;
1
  • 该函数用于去掉日期时间数据的日期部分，使其只包含时间部分，将日期设置为0。
部分 说明
AValue 日期时间类型表达式

  • 返回值：函数返回转换后的时间数据。

  • 示例：

//JScript
  ShowMessage(FormatDateTime("hh:mm:ss",TimeOf(Now)));
  ShowMessage(FormatDateTime("yyyy-mm-dd",TimeOf(Now)));
1
2
3
  • 运行结果：显示当前时间信息，日期则显示为1899-12-30

# 9.113. TimeToStr

function TimeToStr(Time: TDateTime): String;
1
  • 该函数返回日期时间数据中时间部分的字符串。
参数 说明
Time 日期时间类型表达式

  • 返回值：函数返回时间部分的字符串。

  • 示例：

//JScript
  ShowMessage(TimeToStr(Now));
1
2

  该示例运行后，显示当前系统的时间。

# 9.114. Today

function Today: TDateTime;
1

  • 函数Today返回当前的日期数据，时间部分被设置为0。

  • 返回值：返回当前系统的日期。

  • 示例：

//JScript
  ShowMessage(DateToStr(Today));
1
2
  • 运行结果：显示当前的系统日期。

# 9.115. Tomorrow

function Tomorrow: TDateTime;
1

  • 该函数返回明天的日期数据，时间部分被设置为0。

  • 返回值：函数返回明天日期。

  • 示例：

//JScript
  ShowMessage(DateToStr(Tomorrow));
1
2
  • 运行结果：显示当前系统的明天的日期。

# 9.116. TryEncodeDateMonthWeek

function TryEncodeDateMonthWeek(const AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word; var AValue: TDateTime): Boolean;
1
  • 该函数根据指定的年、月、每月的第几周、每周的第几天等信息生成一个日期。
部分 说明
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
  • 运行结果：

2020-11-10

# 9.117. WeekOf

function WeekOf(const AValue: TDateTime): Word;
1
  • 该函数根据日期值返回日期值所在的周在一年中的周数。
部门 说明
AValue 日期表达式，用于指定日期数据

  • 返回值：函数返回参数指定的日期在一年中的周数。

  • 示例：

//JScript
  ShowMessage(IntToStr(WeekOf(Now)));
1
2

  运行后显示当天的本年周数。

# 9.118. WeekOfTheMonth

function WeekOfTheMonth(const AValue: TDateTime): Word;
1
  • 该函数根据指定的日期判断本周是本月中的第几周。
部分 说明
AValue 日期表达式，用于表示指定日期数据
AYear 整型表达式，用于返回日期中的年份
AMonth 整型表达式，用于返回日期中的月份

  • 返回值：函数返回参数指定的日期在本月中的周数。

  • 示例：

//JScript
  ShowMessage(IntToStr(WeekOfTheMonth(Now)));
1
2
  • 运行结果：显示当天在本月中的周数。

# 9.119. WeekOfTheYear

function WeekOfTheYear(const AValue: TDateTime): Word;
1
  • 该函数根据日期值返回日期值所在的周在一年中的周数。
部分 说明
AValue 日期表达式，用于指定日期数据
AYear 整型表达式，用于返回日期中的年份

  • 返回值：函数返回参数指定的日期在所标识的年中的周数。

  • 示例：

//JScript
  ShowMessage(IntToStr(WeekOfTheYear(Now)));
1
2
  • 运行结果：显示本周在一年中的周数。

# 9.120. WeeksBetween

function WeeksBetween(const ANow, AThen: TDateTime): Integer;
1
  • 该函数用于计算两个日期之间的周数。
部分 说明
ANow 待比较的日期
AThen 待比较的日期

  • 返回值：函数返回参数指定的时间段的周数。

  • 示例：

//JScript
  ShowMessage(IntToStr(WeeksBetween(Now , Now + 14)));
1
2
  • 运行结果：

2

# 9.121. WithinPastHours

function WithinPastHours(const ANow, AThen: TDateTime; const AHours: Int64): Boolean;
1
  • 该函数判断两个时间段之间的差距是否在指定的小时之内。
部分 说明
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
  • 运行结果：

Time pass less than 3

# 9.122. WithinPastMilliSeconds

function WithinPastMilliSeconds(const ANow, AThen: TDateTime; const AMilliSeconds: Int64): Boolean;
1
  • 该函数判断两个时间段之间的差距是否在指定的毫秒之内。
部分 说明
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
  • 运行结果：

Less than 1000

# 9.123. WithPastMinutes

function WithinPastMinutes(const ANow, AThen: TDateTime; const AMinutes: Int64): Boolean;
1
  • 该函数判断两个时间段之间的差距是否在指定的分钟数之内。
部分 说明
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
  • 运行结果：

Large than 6

# 9.124. WithinPastMonths

function WithinPastMonths(const ANow, AThen: TDateTime; const AMonths: Integer): Boolean;
1
  • 该函数判断两个时间段之间的差距是否在指定的月数之内。
部分 说明
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
  • 运行结果：

Large than 28

# 9.125. WithinPastSeconds

function WithinPastSeconds(const ANow, AThen: TDateTime; const ASeconds: Int64): Boolean;
1
  • 该函数判断两个时间段之内的差距是否在指定的秒数之内。
部分 说明
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
  • 运行结果：

Less than 864000

# 9.126. WithinPastWeeks

function WithinPastWeeks(const ANow, AThen: TDateTime; const AWeeks: Integer): Boolean;
1
  • 该函数判断两个时间段之间的差距是否在指定的周数之内。
部分 说明
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
  • 运行结果：

Less than 2

# 9.127. WithinPastYears

function WithinPastYears(const ANow, AThen: TDateTime; const AYears: Integer): Boolean;
1
  • 该函数用于判断两个时间段之间的差距是否在指定的年数之内。
部分 说明
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
  • 运行结果：

Less than 1

# 9.128. YearOf

function YearOf(const AValue: TDate): Word;
1
  • 该函数返回指定日期的年份。
部门 说明
AValue 日期表达式，用于指定日期数据

  • 返回值：函数返回AValue所标识的年份。

  • 示例：

//JScript
  ShowMessage(IntToStr(YearOf(Now)));
1
2

  运行后显示当天显示的年份数。

# 9.129. YearsBetween

function YearsBetween(const ANow, AThen: TDateTime): Integer;
1
  • 函数返回两个日期数据之间大约的年数。
部分 说明
ANow 日期表达式
AThen 日期表达式

  • 返回值：函数返回两个日期数据之间大约的年数。

  • 示例：

//JScript
  ShowMessage(FloatToStr(YearsBetween(Now,StrToDate("2077-10-11"))));
1
2
  • 运行结果：运行后显示当天与2077年相差的年数。

# 9.130. YearsSpan

function YearSpan(const ANow, AThen: TDateTime): Double;
1
  • 该函数返回两个日期数据之间大约的年数，包含小数部分。
部分 说明
ANow 日期表达式
AThen 日期表达式

  • 返回值：函数返回两个日期之间大约的年数，包含小数部分。

  • 示例：

//JScript
  ShowMessage(FloatToStr(YearSpan(Now,StrToDate("2077-10-11"))));
1
2
  • 运行结果：运行后显示当天与2077年相差的年数，包含小数部分。

# 9.131. YesterDay

function Yesterday: TDateTime;
1

  • 该函数返回昨天的日期。

  • 返回值：函数返回昨天的系统日期。

  • 示例：

//JScript
  ShowMessage(DateToStr(Yesterday));
1
2
  • 运行结果：该函数返回昨天的系统日期。

# 10. 类型转换函数

# 10.1. Bounds

function Bounds(ALeft, ATop, AWidth, AHeight: Integer): TRect;
1
  • 该函数获得某个矩形。
部分 说明
ALeft,ARight,AWidth,AHeight 转换区域的规格大小

  • 返回值：返回一个TRect类型的矩阵。

  • 示例：

//JScript
  var MyRect;
  MyRect = Bounds(10,10,50,50);
1
2
3
  • 运行结果：设置一个指定规格的矩形。

# 10.2. IntToHex

function IntToHex(Vlue:Integer;Digits:Integer):String;
1
  • 该函数将一个数字转换成一个字符串，字符串中包含该数字的十六进制表现形式。
部分 说明
Value 将要转换的整形值
Digits 转换位数
  • 返回值：返回转换后的字符串。
//JScript
  var S = 2147483647;
  ShowMessage(IntToHex(S,0));
  ShowMessage(IntToHex(S,8));
  ShowMessage(IntToHex(S,10));
1
2
3
4
5
  • 运行结果：

7FFFFFFF 7FFFFFFF 007FFFFFFF

# 10.3. IntToStr

function IntToStr(Value: Integer): String;
1
  • 该函数将一个指定整型值转换成一个字符串。
参数 说明
Value 将要转换的整型值

  • 返回值：返回转换后的字符串。

  • 示例：

//JScript
   ShowMessage(IntToStr(1982));
   ShowMessage(IntToStr(-1982));
1
2
3
  • 运行结果：

1982 -1982

# 10.4. Point

function Point(AX,AY: Integer): TPoint;
1
  • 该函数创建一个TPoint结构表示AX,AY指定的坐标。
参数 说明
AX,AY 转换坐标

  • 返回值：返回一个TPoint类型的值。

  • 示例：

//JScript
  var TP;
  TP = Point(10,10);
1
2
3

  该端代码在坐标(10,10)的位置建立一个TPoint类型的点。

# 10.5. Rect

function Rect(ALeft,ATop,ARight,ABottom: Integer): TRect;
1
  • 该函数用一组坐标创建一个TRect结构，此结构用指定的坐标表示矩形。
参数 说明
ALeft 左边界坐标
ARight 右边界坐标
ATop 上边界坐标
ABottom 下边界坐标
ATopLeft 左上角的点
ABottomRight 右下角的点

  • 返回值：返回一个TRect类型的矩阵。

  • 示例：

//JScript
  var MyRect;
  MyRect = Rect(10,10,170,70);
1
2
3

# 10.6. StrToBoolDef

function StrToBoolDef(const S: String; const Default: Boolean): Boolean;
1
  • 该函数将参数指定的字符串转化为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
  • 运行结果：

False True True

# 10.7. StrToInt

function StrToInt(const S: String): Integer;
1
  • 函数将参数指定用的二进制或十六进制符号表示的一个整形字符串转换为一个整数值。
参数 说明
S 将要转换的字符串

  • 返回值：返回转换后的整形值。

  • 示例：

//JScript
  var si,i;
  si = "19091103";
  i = StrToInt(si);
1
2
3
4

  该端代码将字符串si转换为整型值，并存储到变量i中，i的值为19091103。

# 10.8. StrToIntDef

function StrToIntDef(const S: String; const Default: Integer): Integer;
1
  • 该函数将指定的一个表示整型数字的字符串转换为一个数值。
参数 说明
S 将要转换的字符串
Default 默认返回值

  • 返回值：返回转换后的整型值，如果S不能够转换为整型值，则返回默认值Default。

  • 示例：

//JScript
  var si,i;
  s = "First";
  i = StrToIntDef(s,18);
  ShowMessage(IntToStr(i));
1
2
3
4
5
  • 运行结果：

18

# 10.9. StrToInt64

function StrToInt64(const S: String): Int64;
1
  • 该函数将指定的一个整型数字字符串转换为一个数值。
参数 说明
S 将要转换的字符串

  • 返回值：返回Int64的整型值。

  • 示例：

//JScript
  var s,i;
  s = "2147483648";
  i = StrToInt64(s)
1
2
3
4

# 10.10. StreamToStr

Function StreamToStr(AStream:TStream):String;
1
  • 该函数将指定的内存流信息转换为字符串。
参数 说明
AStream 将要转换的流
  • 返回值：返回字符串数值。

# 11. 文件处理函数

# 11.1. ExcludeTrailingBackslash

function ExcludeTrailingBackslash(const S: string): string;
1
  • 改函数使用多字节字符集，它删除参数中结束路径界定符\，并向后兼容。
部分 说明
S 待转换的字符串

  • 返回值：返回删除界定符的字符串。

  • 示例：

//JScript
  var s;
  s = ExcludeTrailingBackslash("D:\\test\\");
  ShowMessage(s);
1
2
3
4
  • 运行结果：

D:\test

# 11.2. ExcludeTrailingPathDelimiter

function ExcludeTrailingPathDelimiter(const S: string): string;
1
部分 说明
S 待转换的字符串

  • 该函数使用多字节字符集，它删除参数中结束路径界定符\，若参数中最后一个字符为界定符，则删除该字符，否则参数无改变返回。

  • 返回值：返回删除界定符的字符串。

  • 示例：

//JScript
  var s;
  s = ExcludeTrailingPathDelimiter("D:\\test\\");
  ShowMessage(s);
1
2
3
4
  • 运行结果：

D:\test

# 11.3. ExpandFileName

function ExpandFileName(const FileName: string): string;
1
  • 该函数将相对文件名转换为完全标准化路径。它不验证生成的完全标准化路径是否引用一个现有的文件。
部分 说明
FileName 待查找的文件名称(相对文件名称)

  • 返回值：返回一个标准化文件路径。

  • 示例：

//JScript
  var s;
  s = ExpandFileName("test.txt");
  ShowMessage(s);
1
2
3
4
  • 运行结果：显示当前相对路径的完全标准化路径。

# 11.4. ExpandUNCFileName

function ExpandUNCFileName(const FileName: string): string;
1
  • 该函数利用网络文件的通用命名协议(NUC)返回一个完全标准化的路径名。本地的文件名使用方式同ExpandFileName。
部分 说明
FileName 待查找的文件名称(相对文件名称)

  • 返回值：返回一个标准化文件路径。

  • 示例：

//JScript
  var s;
  s = ExpandUNCFileName("test.txt");
  ShowMessage(s);
1
2
3
4
  • 运行结果：显示当前相对路径的完全标准化路径。

# 11.5. ExtractFileDir

function ExtractFileDir(const FileName: string): string;
1
  • 该函数从文件名中提取驱动器和目录部分。
部分 说明
FileName 待查找的文件名称

  • 返回值：返回一个目录路径。

  • 示例：

//JScript
  var s;
  s = ExtractFileDir("D:\\test.txt");
  ShowMessage(s);
1
2
3
4
  • 运行结果：显示当前相对路径的目录路径。例如D:\

# 11.6. ExtractFileDrive

function ExtractFileDrive(const FileName: string): string;
1
  • 该函数返回完全标准化路径名的驱动器部分。
部分 说明
FileName 待查找的文件名称

  • 返回值：返回一个目录路径。

  • 示例：

//JScript
  var s;
  s =  ExtractFileDrive("D:\\test.txt");
  ShowMessage(s);
1
2
3
4
  • 运行结果：显示当前路径的驱动器名称。例如D:

# 11.7. ExtractFileName

function ExtractFileName(const FileName: string): string;
1
  • 该函数用于从指定的字符串中提取文件名。
部分 说明
FileName 待查找的文件名称

  • 返回值：返回一个目录路径。

  • 示例：

//JScript
  var s;
  s =  ExtractFileName("D:\\test.txt");
  ShowMessage(s);
1
2
3
4
  • 运行结果：显示路径。例如test.txt

# 11.8. ExtractFileExt

function ExtractFileExt(const FileName: string): string;
1
  • 该函数返回FileName参数指定文件名的扩展名，生成的字符串包含分隔文件名的扩展名和扩展名的句点符。
部分 说明
FileName 待查找的文件名称

  • 返回值：返回一个文件的扩展名。

  • 示例：

//JScript
  var s;
  s =  ExtractFileExt("D:\\test.txt");
  ShowMessage(s);
1
2
3
4
  • 运行结果：

.txt

# 11.9. ExtarctFilePath

function ExtractFilePath(const FileName: string): string;
1
  • 该函数用于返回指定文件的工作路径。
部分 说明
FileName 指定的文件名

  • 返回值：返回文件的工作路径。

  • 示例:

//JScript
  var s;
  s =  ExtractFilePath("D:\\test.txt");
  ShowMessage(s);
1
2
3
4
  • 运行结果：

D:\

# 11.10. ExtractRelativePath

function ExtractRelativePath(const BaseName, DestName: string): string;
1
  • 该函数用于将完全标准化的路径转换为相对路径名。
部分 说明
BaseName 基本目录的完全标准化路径，不一定包含文件名
DestName 指定被转换的文件名(包含路径)

  • 返回值：返回指定的路径。

  • 示例：

//JScript
  var s;
  s =  ExtractRelativePath("D:\\test\\","D:\\test.txt");
  ShowMessage(s);
1
2
3
4
  • 运行结果：

..\test.txt

# 11.11. FileAge

function FileAge(const FileName: string): LongInt; overload;
1
  • 该函数返回指定文件的操作系统时间。
部分 说明
FileName 指定的文件名

  • 返回值：返回指定文件的操作系统时间，如果返回-1则表示文件没有找到。

  • 示例：

//JScript
  ShowMessage(IntToStr(FileAge("D:\\test.txt")));
1
2
  • 运行结果：执行该语句后，返回文件的日期时间。

# 11.12. FileExists

  function FileExists(const FileName: String): Boolean;
1
  • 该函数用于测试指定的文件是否存在。
部分 说明
FileName 指定文件的名称

  • 返回值：如果指定的文件存在返回True，否则返回False。

  • 示例：

//JScript
  if (FileExists("sample.pdf")){
    ShowMessage("File Exist");
  }
  else{
    ShowMessage("File not Exist");
  }
1
2
3
4
5
6
7
  • 运行结果：

File not Exist

# 11.13. FileIsReadOnly

function FileIsReadOnly(const FileName: string): Boolean;
1
  • 该函数用于判断指定文件是否是只读的。
部分 说明
FileName 指定文件的名称

  • 返回值：如果文件为只读则返回True，否则返回False。

  • 示例：

//JScript
  ShowMessage(BoolToStr(FileIsReadOnly("E:\\test.txt")));
1
2
  • 运行结果：判断指定文件是否为只读文件，并弹窗显示。

# 11.14. FileSetReadOnly

function FileSetReadOnly(const FileName: string; ReadOnly: Boolean): Boolean;
1
  • 该函数设置文件是否未只读。
部分 说明
FileName 指定文件的文件名
ReadOnly 是否为只读，如果为True则设置文件为只读，否则设置文件为读写

  • 返回值：设置成功则返回True，否则返回False。

  • 示例：

//JScript
  if (FileSetReadOnly("D:\\test.txt",True)){
    ShowMessage("File Set Read Only");
  }
1
2
3
4
  • 运行结果：将对应的文件设置为只读属性。

# 11.15. ForceDirectoris

function ForceDirectories(Dir: string): Boolean;
1
  • 该函数在指定的目录中创建一个目录。
部分 说明
Dir 创建目录的全名，必须包括上级目录

  • 返回值：如果创建成功则返回True，否则会返回False。

  • 示例：

//JScript
  var Dir;
  Dir = "D:\\test\\sample";
  if (ForceDirectories(Dir)){
    ShowMessage(Dir + "create successfully" );
  }
1
2
3
4
5
6
  • 运行结果：成功创建指定的目录。

# 11.16. GetCurrentDir

function GetCurrentDir: string;
1

  • 该函数返回当前目录。

  • 返回值：返回当前目录名称。

  • 示例：

//JScript
  ShowMessage(GetCurrentDir);
1
2
  • 运行结果：显示当前的目录名称。

# 11.17. InCludeTrailingBackslash

function IncludeTrailingBackslash(const S: string): string;
1
  • 该函数确保路径名以路径定界符\结束。
部分 说明
S 待检查的字符串路径

  • 返回值：返回检查后的路径。

  • 示例：

//JScript
  var s;
  s =  IncludeTrailingBackslash("D:\\test");
  ShowMessage(s);
1
2
3
4
  • 运行结果：

D:\test\

# 11.18. InCludeTrailingPathDelimiter

function IncludeTrailingPathDelimiter(const S: string): string;
1
  • 该函数确保路径名以路径定界符\结束，若参数S表示的路径名已经以路径定界符\结束，则返回的字符串无变化；否则将S字符串加上定界符返回。
部分 说明
S 待检查的字符串路径

  • 返回值：返回检查后的路径。

  • 示例：

//JScript
  var s;
  s =  IncludeTrailingPathDelimiter("D:\\test");
  ShowMessage(s);
1
2
3
4
  • 运行结果：

D:\test\

# 11.19. IOResult

function IOResult: Integer;
1

  • 该函数返回最后一次I/O操作的状态信息。

  • 返回值：如果最后一次I/O操作执行成功则返回0，否则返回错误代码。

  • 示例：

//JScript
  if (IOResult == 0){
    ShowMessage("Last I/O Success");
  }
1
2
3
4
  • 运行结果：如果I/O运行操作无错误发生则显示Last I/O Success。

# 11.20. SetCurrentDir

function SetCurrentDir(const Dir: string): Boolean;
1
  • 该函数能够改变当前目录。
部分 说明
Dir 改变后的目标目录名称

  • 返回值：如果执行成功返回True，否则返回False。

  • 示例：

//JScript
  var Dir;
  Dir = "D:\\test";
  if (SetCurrentDir(Dir)){
    ShowMessage(GetCurrentDir());
  }
1
2
3
4
5
6
  • 运行结果：

D:\test

# 12. 格式化函数

# 12.1. FormatCurr

function FormatCurr(const Format: string; Value: Currency): string;
1
  • 该函数将货币类型以指定的格式转换成字符串。
部分 说明
Format 用于指定格式化的字符串
Value 将要格式化的内容

  • 返回值：返回将货币类型以指定格式转换成的字符串。

  • 示例：

//JScript
  var s;
  S = FormatCurr("#,##0.00;;Zero",0.5);
  ShowMessage(S);
1
2
3
4
  • 运行结果：

0.50

# 12.2. FormatDateTime

function FormatDateTime(const Format: String; DateTime: TDateTime): String;
1
  • 该函数用于格式化显示日期时间。
部分 说明
Format 用于指定格式化的字符串
DateTime 格式化显示的内容

  • 返回值：返回用指定的格式来格式化日期时间的字符串。

  • 示例：

//JScript
ShowMessage(FormatDateTime("\"The Metting is on\" dddd,mm mm d, yyyy,\" at \" hh:mm AM/PM",Now +0.125));
1
2
  • 运行结果：

The Metting is on 星期日，11 11 9 2020，at 01:44 AM。

# 12.3. FormatFloat

function FormatFloat(const Format: String; value: Extended): string;
1
部分 说明
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;
1

  • 该函数返回安装的ComCtl32.DLL版本号。

  • 返回值：整数类型，返回安装的版本号。

  • 示例：

//JScript
  ShowMessage(IntToStr(GetComCtlVersion));
1
2
  • 运行结果：运行结果根据各机器安装软件版本的不同而有所差异。

# 14. 指针相关函数

# 14.1. FreeAndNil

function FreeAndNil(var Obj);
1
  • 该函数用于释放指定对象，并设置其为空。
部分 说明
Obj 任何类的实例
  • 示例：
//JScript
FreeAndNil(UgButton01);
FreeAndNil(s);
1
2
3

  执行该语句后Obj对象将被释放，并且设置其值为Nil。

# 15. 进程管理函数

# 15.1. DoOpenBrowser

function DoOpenBrowser(ABrowser, AURL: String; ACmdShow: integer): integer;
1
  • 该函数用于设置打开浏览器。
部分 说明
ABrowser 浏览器程序文件的名称，比如chrome.exe、msedge.exe
AURL 浏览器要访问的网页地址，如果要设置全屏模式，可以在url前加上--kiosk,注意要与url地址空格分开来。
ACmdShow 是否显示命令行窗口，设置为0表示不显示
  • 示例：
{
  var url,kiosk;
  url = "https://www.isoface.cn";          //自定URL
  kiosk = "--kiosk ";                      //設定全屏模式
  UGCM.KillTask("chrome.exe");             //結束Chrome程序
  DoOpenBrowser("chrome.exe",kiosk + url,0); //打開瀏覽器 
}
1
2
3
4
5
6
7

# 15.2. ShellExectue

function ShellExectue(AFileName: String; AParameters:string; ACmdShow: integer): integer;
1
  • 该函数用于设置运行程序。
部分 说明
AFileName 文件的名称，需包含文件地址
AParameters 文件运行的参数，根据文件运行的说明选择性添加
ACmdShow 是否显示命令行窗口，设置为0表示不显示
  • 示例：
{
  var id;
  id = "media\\S-EQ-DEM-2053_Chatroom.sdb -r";
  //結束Smart程序
  UGCM.KillTask("Smart.exe");
  //執行指定模板檔案，請指定id ,id為模板檔名帶副檔名，檔案需在 Samples 目錄下的位置，需指定相對位置
  if (id!="")
    ShellExecute("C:\\Program Files (x86)\\IsoFace\\Smart\\Smart.exe",id,0);
  else
    ShellExecute("C:\\Program Files (x86)\\IsoFace\\Smart\\Smart.exe","media\\S-EQ-DEM-2053_Chatroom.sdb -r",0);
}
1
2
3
4
5
6
7
8
9
10
11

# 15.3. WinExec

function WinExec(lpCmdLine: String; uCmdShow: integer): integer;
1
  • 该函数用于设置运行批处理命令行。
部分 说明
lpCmdLine 命令的信息，可包含主程序名称以及关联参数
uCmdShow 是否显示命令行窗口，设置为0表示不显示

# 15.4. GetPID

Function GetPID(Exe_File: String): String;
1
  • 获取正在运行的进程名称的进程ID。可用这个方法来判断程序是否处于运行状态，返回的值为进程ID，如果返回值为0，则表示程序没有处于运行状态。
部分 说明
Exe_File 进程的名称
  • 示例：
{
    if(GetPID("chrome.exe")!="0"){
        ShowMessage("Chrome浏览器处于运行状态");
    }
}
1
2
3
4
5

# 15.5. KillTask

function KillTask(ExeFileName: string): integer;
1
  • 结束指定的进程运行。如果返回的值为0，则表示没有进程在运行；如果返回的值不为0，则表示已找到进程并结束运行。
部分 说明
ExeFileName 进程的名称
{
    if(KillTask("chrome.exe") = 0){
        ShowMessage("Chrome浏览器已结束运行");
    }
}
1
2
3
4
5
控件使用
系统程序

← 系统程序→

Copyright © 2021-2025 爱招飞IsoFace | ALL Rights Reserved