爱招飞帮助手册 爱招飞帮助手册
首页
  • 学习手册

    • 基本入门
    • 功能介绍
    • 控件说明
    • 功能用法
    • 专用模板
    • 开发流程
    • 函数程序
  • 学习手册

    • 基本入门
    • 功能介绍
    • 控件说明
    • 系统工具
    • 系统管理
    • 数据库工具
    • 专用模板
    • 外部功能
    • 开发流程
    • 函数代码
  • 开发手册
  • 学习手册

    • 基本入门
    • 功能介绍
    • 控件说明
    • 功能用法
    • 专用模板
    • 开发流程
    • 函数程序
  • 开发手册
  • 学习手册

    • 基本入门
    • 功能介绍
    • 控件说明
    • 功能用法
    • 专用模板
    • 开发流程
    • 函数程序
  • 开发手册
  • 学习手册

    • 安装配置
    • 快速上手
    • 界面介绍
    • 功能介绍
    • 报表设计
  • 学习手册

    • 安装配置
    • 快速上手
    • 界面介绍
    • 功能介绍
    • RestAPI
    • WebSocket
  • 学习手册

    • 安装配置
    • 快速上手
    • 程序架构
    • 界面介绍
    • 功能介绍
  • 学习手册

    • 安装配置
    • 快速上手
    • 界面介绍
    • 功能介绍
  • 学习手册

    • 安装配置
    • 快速上手
    • 界面介绍
    • 功能介绍
    • 预设资料
    • RestAPI说明
    • WebSocket说明
    • MQTT说明
    • Python说明
    • 自定程序
    • 运行卫士
    • 自动化作业
    • 函数程序
    • 控件使用
  • 开发手册
  • FastERP
  • FastWeb
  • Smart
  • PinToo
  • Flying
  • TARS
  • 通用功能

    • Report
    • Script
    • Echarts
    • Chart
    • DB Install
    • HiDesk
    • HiNAT
    • FastBPM
    • ReportBuilder
首页
  • 学习手册

    • 基本入门
    • 功能介绍
    • 控件说明
    • 功能用法
    • 专用模板
    • 开发流程
    • 函数程序
  • 学习手册

    • 基本入门
    • 功能介绍
    • 控件说明
    • 系统工具
    • 系统管理
    • 数据库工具
    • 专用模板
    • 外部功能
    • 开发流程
    • 函数代码
  • 开发手册
  • 学习手册

    • 基本入门
    • 功能介绍
    • 控件说明
    • 功能用法
    • 专用模板
    • 开发流程
    • 函数程序
  • 开发手册
  • 学习手册

    • 基本入门
    • 功能介绍
    • 控件说明
    • 功能用法
    • 专用模板
    • 开发流程
    • 函数程序
  • 开发手册
  • 学习手册

    • 安装配置
    • 快速上手
    • 界面介绍
    • 功能介绍
    • 报表设计
  • 学习手册

    • 安装配置
    • 快速上手
    • 界面介绍
    • 功能介绍
    • RestAPI
    • WebSocket
  • 学习手册

    • 安装配置
    • 快速上手
    • 程序架构
    • 界面介绍
    • 功能介绍
  • 学习手册

    • 安装配置
    • 快速上手
    • 界面介绍
    • 功能介绍
  • 学习手册

    • 安装配置
    • 快速上手
    • 界面介绍
    • 功能介绍
    • 预设资料
    • RestAPI说明
    • WebSocket说明
    • MQTT说明
    • Python说明
    • 自定程序
    • 运行卫士
    • 自动化作业
    • 函数程序
    • 控件使用
  • 开发手册
  • FastERP
  • FastWeb
  • Smart
  • PinToo
  • Flying
  • TARS
  • 通用功能

    • Report
    • Script
    • Echarts
    • Chart
    • DB Install
    • HiDesk
    • HiNAT
    • FastBPM
    • ReportBuilder
  • FastWeb帮助主页
  • 学习手册

    • 基本入门

    • 功能介绍

    • 控件说明

    • 系统工具

    • 系统管理

    • 云服务工具

    • 数据库工具

    • 专用模板

    • 外部功能

    • 开发流程

    • 函数程序

      • 系统函数
        • 1. 字符串处理函数
          • 1.1. CompareStr
          • 1.2. CompareText
          • 1.3. Copy
          • 1.4. LeftStr
          • 1.5. Length
          • 1.6. LowerCase
          • 1.7. Pos
          • 1.8. PosEx
          • 1.9. QuotedStr
          • 1.10. RightStr
          • 1.11. SameText
          • 1.12. StringOfChar
          • 1.13. Trim
          • 1.14. TrimLeft
          • 1.15. TrimRight
          • 1.16. UpperCase
        • 2. 科学计算函数
          • 2.1. Abs
          • 2.2. Exp
          • 2.3. Int
          • 2.4. IsZero
          • 2.5. Ln
          • 2.6. Pi
          • 2.7. Power
          • 2.8. Round
          • 2.9. SameValue
          • 2.10. Sqrt
          • 2.11. Trunc
        • 3. 序数函数
          • 3.1. Ord
        • 4. 三角函数
          • 4.1. ArcCos
          • 4.2. ArcSin
          • 4.3. ArcTan
          • 4.4. ArcTan2
          • 4.5. Cos
          • 4.6. Sin
        • 5. 统计函数
        • 6. 金融函数
          • 6.1. DoubleDecliningBalance
          • 6.2. SYDDepreciation
        • 7. 随机数函数
          • 7.1. RandomRange
        • 8. 单位换算函数
        • 9. 日期函数
          • 9.1. CurrentYear
          • 9.2. Date
          • 9.3. DateOf
          • 9.4. DateTimeToFileDate
          • 9.5. DateTimeToStr
          • 9.6. DateToStr
          • 9.7. DayOf
          • 9.8. DayOfTheMonth
          • 9.9. DayOfTheWeek
          • 9.10. DayOfTheYear
          • 9.11. DayOfWeek
          • 9.12. DaysBetween
          • 9.13. DaysInAMonth
          • 9.14. DaysInAYear
          • 9.15. DaysInMonth
          • 9.16. DaysInYear
          • 9.17. DaysSpan
          • 9.18. DecodeDateFully
          • 9.19. EncodeDate
          • 9.20. EncodeDateDay
          • 9.21. EncodeDateMonthWeek
          • 9.22. EncodeDateTime
          • 9.23. EncodeDateWeek
          • 9.24. EncodeDayOfWeekInMonth
          • 9.25. EncodeTime
          • 9.26. EndOfAMonth
          • 9.27. EndOfAWeek
          • 9.28. EndOfTheDay
          • 9.29. EndOfTheMonth
          • 9.30. EndOfTheWeek
          • 9.31. EndOfTheYear
          • 9.32. FormatDateTime
          • 9.33. GetTime
          • 9.34. HourOf
          • 9.35. HourOfTheDay
          • 9.36. HourOfTheMonth
          • 9.37. HourOfTheWeek
          • 9.38. HourOfTheYear
          • 9.39. HoursBetween
          • 9.40. HourSpan
          • 9.41. IncDay
          • 9.42. IncHour
          • 9.43. IncMilliSecond
          • 9.44. IncMinute
          • 9.45. IncMonth
          • 9.46. IncSecond
          • 9.47. IncWeek
          • 9.48. IncYear
          • 9.49. IsInLepYear
          • 9.50. IsLeapYear
          • 9.51. IsPM
          • 9.52. IsSameDay
          • 9.53. IsToday
          • 9.54. IsValidDate
          • 9.55. IsValidDateDay
          • 9.56. IsValidDateMonthWeek
          • 9.57. IsValidDateTime
          • 9.58. IsValidDateWeek
          • 9.59. IsValidTime
          • 9.60. MilliSecondOf
          • 9.61. MilliSecondOfTheDay
          • 9.62. MilliSecondOfTheHour
          • 9.63. MilliSecondOfTheMinute
          • 9.64. MilliSecondOfTheMonth
          • 9.65. MilliSecondOfTheSecond
          • 9.66. MilliSecondsBetween
          • 9.67. MinuteOf
          • 9.68. MinuteOfTheHour
          • 9.69. MinuteOfTheMonth
          • 9.70. MinuteOfTheWeek
          • 9.71. MinuteOfTheYear
          • 9.72. MinutesBetween
          • 9.73. MinuteSpan
          • 9.74. MonthOf
          • 9.75. MonthOfTheYear
          • 9.76. MonthsBetween
          • 9.77. MonthSpan
          • 9.78. Now
          • 9.79. RecodeDate
          • 9.80. RecodeDateTime
          • 9.81. RecodeDay
          • 9.82. RecodeHour
          • 9.83. RecodeMilliSecond
          • 9.84. RecodeMinute
          • 9.85. RecodeSecond
          • 9.86. RecodeTime
          • 9.87. RecodeYear
          • 9.88. SameDate
          • 9.89. SameDateTime
          • 9.90. SameTime
          • 9.91. SecondOf
          • 9.92. SecondOfTheDay
          • 9.93. SecondOfTheHour
          • 9.94. SecondOfTheMinute
          • 9.95. SecondOfTheMonth
          • 9.96. SecondOfTheWeek
          • 9.97. SecondsBetween
          • 9.98. SecondsSpan
          • 9.99. StartOfAWeek
          • 9.100. StartOfAYear
          • 9.101. StartOfTheDay
          • 9.102. StartOfTheMonth
          • 9.103. StartOfTheWeek
          • 9.104. StartOfTheYear
          • 9.105. StrToDate
          • 9.106. StrToDateDef
          • 9.107. StrToDateTime
          • 9.108. StrToDateTimeDef
          • 9.109. StrToTime
          • 9.110. StrToTimeDef
          • 9.111. Time
          • 9.112. TimeOf
          • 9.113. TimeToStr
          • 9.114. Today
          • 9.115. Tomorrow
          • 9.116. TryEncodeDateMonthWeek
          • 9.117. WeekOf
          • 9.118. WeekOfTheMonth
          • 9.119. WeekOfTheYear
          • 9.120. WeeksBetween
          • 9.121. WithinPastHours
          • 9.122. WithinPastMilliSeconds
          • 9.123. WithPastMinutes
          • 9.124. WithinPastMonths
          • 9.125. WithinPastSeconds
          • 9.126. WithinPastWeeks
          • 9.127. WithinPastYears
          • 9.128. YearOf
          • 9.129. YearsBetween
          • 9.130. YearsSpan
          • 9.131. YesterDay
        • 10. 类型转换函数
          • 10.1. Bounds
          • 10.2. IntToHex
          • 10.3. IntToStr
          • 10.4. Point
          • 10.5. Rect
          • 10.6. SmallPoint
          • 10.7. StrToBoolDef
          • 10.8. StrToInt
          • 10.9. StrToIntDef
          • 10.10. StrToInt64
          • 10.11. StreamToStr
        • 11. 文件处理函数
          • 11.1. CheckDirectory
          • 11.2. DirectoryExists
          • 11.3. ExcludeTrailingBackslash
          • 11.4. ExcludeTrailingPathDelimiter
          • 11.5. ExpandFileName
          • 11.6. ExpandUNCFileName
          • 11.7. ExtractFileDir
          • 11.8. ExtractFileDrive
          • 11.9. ExtractFileName
          • 11.10. ExtractFileExt
          • 11.11. ExtarctFilePath
          • 11.12. ExtractRelativePath
          • 11.13. FileAge
          • 11.14. FileExists
          • 11.15. FileIsReadOnly
          • 11.16. FileSetReadOnly
          • 11.17. ForceDirectoris
          • 11.18. GetCurrentDir
          • 11.19. InCludeTrailingBackslash
          • 11.20. InCludeTrailingPathDelimiter
          • 11.21. IOResult
          • 11.22. SetCurrentDir
        • 12. 格式化函数
          • 12.1. FormatCurr
          • 12.2. FormatDateTime
          • 12.3. FormatFloat
        • 13. 窗口控制实用程序
          • 13.1. GetComCtlVersion
        • 14. 指针相关函数
          • 14.1. FreeAndNil
      • 系统程序
      • 自定函数
      • 自定程序
  • 开发手册

目录

系统函数

# FastWeb 系统函数

  • 适用平台:WEB(桌面),APP(移动)

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

# 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
    //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;
    
    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
      //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;
      
      1
      • 该函数用于返回一个字符串的字串或者动态数组中的一个元素。
      参数 说明
      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;
        
        1
        • 该函数在字符串的开始处返回指定长度的字符串。
        参数 说明
        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;
          
          1
          • 该函数返回字符串的字符数。
          参数 说明
          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;
            
            1
            • 该函数将字符串转换为小写格式。
            参数 说明
            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;
              
              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
                //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;
                
                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
                  //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;
                  
                  1
                  • 该函数返回字符串的引证串,引证串是在字符串的开始和结尾添加”'“。
                  参数 说明
                  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;
                    
                    1
                    • 该函数返回字符串尾端开始指定长度的字符串。
                    参数 说明
                    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;
                      
                      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
                        //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;
                        
                        1
                        • 该函数返回一个循环指定次数字符的字符串。
                        部分 说明
                        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;
                          
                          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
                            //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;
                            
                            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
                              //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;
                              
                              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
                                //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;
                                
                                1
                                • 该函数将字符串转换为大写格式。
                                部分 说明
                                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);
                                  
                                  1
                                  • 该函数用于返回指定数值的绝对值。
                                  部分 说明
                                  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;
                                    
                                    1
                                    • 该函数用于返回指定数的指数。
                                    部分 说明
                                    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;
                                      
                                      1
                                      • 该函数返回实数的整数部分。
                                      部分 说明
                                      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;
                                        
                                        1
                                        • 该函数测试实型表达式是否等于或者接近零。
                                        部分 说明
                                        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;
                                          
                                          1
                                          • 该函数用来计算一个数的自然对数。
                                          部分 说明
                                          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;
                                            
                                            1
                                            • 函数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;
                                              
                                              1
                                              • 该函数返回底数的任何次幂。
                                              部分 说明
                                              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;
                                                
                                                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
                                                  //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;
                                                  
                                                  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
                                                    //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;
                                                    
                                                    1
                                                    • 该函数用于计算一个数的平方根。
                                                    部分 说明
                                                    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;
                                                      
                                                      1
                                                      • 该函数返回一个实数的整数部分。
                                                      部分 说明
                                                      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);
                                                        
                                                        1
                                                        • 该函数用于获取顺序类型表达式的顺序值。
                                                        部分 说明
                                                        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;
                                                          
                                                          1
                                                          • 该函数用于计算参数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;
                                                            
                                                            1
                                                            • 该函数用于计算参数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;
                                                              
                                                              1
                                                              • 该函数计算参数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;
                                                                
                                                                1
                                                                • 该函数获取正确象限中的角度。
                                                                部分 说明
                                                                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;
                                                                  
                                                                  1
                                                                  • 该函数计算参数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;
                                                                    
                                                                    1
                                                                    • 该函数计算参数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;
                                                                      
                                                                      1
                                                                      • 该函数使用双倍余额递减法或其他方法指定的方法计算一笔资产在给定期间内的折旧值。
                                                                      部分 说明
                                                                      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;
                                                                        
                                                                        1
                                                                        • 该函数返回某项资产按年限总和折旧法计算的指定期间的折旧值。
                                                                        部分 说明
                                                                        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)];
                                                                          
                                                                          1
                                                                          • 该函数用于产生一个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;
                                                                            
                                                                            1
                                                                            • 返回系统当前的年份。

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

                                                                            • 示例:

                                                                              //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;
                                                                              
                                                                              1
                                                                              • 获得系统当前日期。

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

                                                                              • 示例:

                                                                                //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;
                                                                                
                                                                                1
                                                                                • 该函数用于将给定的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;
                                                                                  
                                                                                  1
                                                                                  • 该函数将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;
                                                                                    
                                                                                    1
                                                                                    • 该函数将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;
                                                                                      
                                                                                      1
                                                                                      • 该函数将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;
                                                                                        
                                                                                        1
                                                                                        • 该函数返回指定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;
                                                                                          
                                                                                          1
                                                                                          • 该函数用于计返回指定月份的日期数值。
                                                                                          部分 说明
                                                                                          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;
                                                                                            
                                                                                            1
                                                                                            • 该函数用于计算指定的日期为星期几。此处以星期一开始计数。
                                                                                            部分 说明
                                                                                            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;
                                                                                              
                                                                                              1
                                                                                              • 该函数用于计算指定的日期为一年中的第几天。
                                                                                              部分 说明
                                                                                              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;
                                                                                                
                                                                                                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
                                                                                                  //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;
                                                                                                  
                                                                                                  1
                                                                                                  • 该函数用于计算指定的两个日期之间相差的天数。
                                                                                                  部分 说明
                                                                                                  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;
                                                                                                    
                                                                                                    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
                                                                                                      //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;
                                                                                                      
                                                                                                      1
                                                                                                      • 该函数获得指定年份的总天数。
                                                                                                      部分 说明
                                                                                                      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;
                                                                                                        
                                                                                                        1
                                                                                                        • 该函数用于获得一个月的总天数。
                                                                                                        部分 说明
                                                                                                        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;
                                                                                                          
                                                                                                          1
                                                                                                          • 该函数用于获得指定日期时间类型的表达式所在的年份的总天数,如果是闰年,总天数为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;
                                                                                                            
                                                                                                            1
                                                                                                            • 该函数用于计算两个日期时间类型表达式所描述的日期相差的天数。
                                                                                                            部分 说明
                                                                                                            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;
                                                                                                              
                                                                                                              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
                                                                                                                //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;
                                                                                                                
                                                                                                                1
                                                                                                                • 该函数把指定的年、月、日转换成对应的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;
                                                                                                                  
                                                                                                                  1
                                                                                                                  • 该函数把指定年份的多少天转换为对应的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;
                                                                                                                    
                                                                                                                    1
                                                                                                                    • 该函数把指定年份、月份、该月的第几周和周值转换成的日期时间类型。
                                                                                                                    部分 说明
                                                                                                                    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;
                                                                                                                      
                                                                                                                      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
                                                                                                                        //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;
                                                                                                                        
                                                                                                                        1
                                                                                                                        • 该函数用于把指定年份的第几周的周值转换成对应的日期时间类型。
                                                                                                                        部分 说明
                                                                                                                        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;
                                                                                                                          
                                                                                                                          1
                                                                                                                          • 该函数把指定年份、月份和该月的第几周的某个周值转换成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;
                                                                                                                            
                                                                                                                            1
                                                                                                                            • 该函数把指定的小时、分、秒、毫秒转换成对应的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;
                                                                                                                              
                                                                                                                              1
                                                                                                                              • 该函数用于获得指定月份最后一天的最后可表示时刻。
                                                                                                                              部分 说明
                                                                                                                              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;
                                                                                                                                
                                                                                                                                1
                                                                                                                                • 该函数获得指定年、周、周值的最后可表示时刻。
                                                                                                                                部分 说明
                                                                                                                                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;
                                                                                                                                  
                                                                                                                                  1
                                                                                                                                  • 该函数获取与指定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;
                                                                                                                                    
                                                                                                                                    1
                                                                                                                                    • 该函数用于获取参数指定的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;
                                                                                                                                      
                                                                                                                                      1
                                                                                                                                      • 该函数用于获取参数指定的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;
                                                                                                                                        
                                                                                                                                        1
                                                                                                                                        • 该函数用于获取参数指定的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;
                                                                                                                                          
                                                                                                                                          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
                                                                                                                                            //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;
                                                                                                                                            
                                                                                                                                            1
                                                                                                                                            • 该函数用于返回当前系统时间。

                                                                                                                                            • 返回值: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;
                                                                                                                                              
                                                                                                                                              1
                                                                                                                                              部分 说明
                                                                                                                                              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;
                                                                                                                                                
                                                                                                                                                1
                                                                                                                                                • 该函数获得参数给定的日期时间类型表达式的小数部分。
                                                                                                                                                部分 说明
                                                                                                                                                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;
                                                                                                                                                  
                                                                                                                                                  1
                                                                                                                                                  • 该函数用于获得参数给定日期时间类型表达式与对应月份第一天零时之间已流逝的小时数。
                                                                                                                                                  部分 说明
                                                                                                                                                  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;
                                                                                                                                                    
                                                                                                                                                    1
                                                                                                                                                    • 该函数获得参数给定日期时间类型表达式与对应周期的星期一零时之间已流逝的小时数。
                                                                                                                                                    部分 说明
                                                                                                                                                    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月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;
                                                                                                                                                        
                                                                                                                                                        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
                                                                                                                                                          //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;
                                                                                                                                                          
                                                                                                                                                          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
                                                                                                                                                            //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;
                                                                                                                                                            
                                                                                                                                                            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
                                                                                                                                                              //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;
                                                                                                                                                              
                                                                                                                                                              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
                                                                                                                                                                //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;
                                                                                                                                                                
                                                                                                                                                                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
                                                                                                                                                                  //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;
                                                                                                                                                                  
                                                                                                                                                                  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
                                                                                                                                                                    //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;
                                                                                                                                                                    
                                                                                                                                                                    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
                                                                                                                                                                      //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;
                                                                                                                                                                      
                                                                                                                                                                      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
                                                                                                                                                                        //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;
                                                                                                                                                                        
                                                                                                                                                                        1
                                                                                                                                                                        • 该函数根据参数给定的值来增加或减少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;
                                                                                                                                                                          
                                                                                                                                                                          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
                                                                                                                                                                            //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;
                                                                                                                                                                            
                                                                                                                                                                            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
                                                                                                                                                                              //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
                                                                                                                                                                              
                                                                                                                                                                              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
                                                                                                                                                                                //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;
                                                                                                                                                                                
                                                                                                                                                                                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
                                                                                                                                                                                  //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;
                                                                                                                                                                                  
                                                                                                                                                                                  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
                                                                                                                                                                                    //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;
                                                                                                                                                                                    
                                                                                                                                                                                    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
                                                                                                                                                                                      //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;
                                                                                                                                                                                      
                                                                                                                                                                                      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
                                                                                                                                                                                        //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;
                                                                                                                                                                                        
                                                                                                                                                                                        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
                                                                                                                                                                                          //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;
                                                                                                                                                                                          
                                                                                                                                                                                          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
                                                                                                                                                                                            //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;
                                                                                                                                                                                            
                                                                                                                                                                                            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
                                                                                                                                                                                              //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;
                                                                                                                                                                                              
                                                                                                                                                                                              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
                                                                                                                                                                                                //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;
                                                                                                                                                                                                
                                                                                                                                                                                                1
                                                                                                                                                                                                • 检验参数给定的小时、分钟、秒、和毫秒的合法性。
                                                                                                                                                                                                部分 说明
                                                                                                                                                                                                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;
                                                                                                                                                                                                  
                                                                                                                                                                                                  1
                                                                                                                                                                                                  • 该函数获得参数给定日期时间类型表达式的毫秒。
                                                                                                                                                                                                  部分 说明
                                                                                                                                                                                                  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;
                                                                                                                                                                                                    
                                                                                                                                                                                                    1
                                                                                                                                                                                                    • 该函数获得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;
                                                                                                                                                                                                      
                                                                                                                                                                                                      1
                                                                                                                                                                                                      • 该函数用于获得所在小时已流逝的毫秒数。
                                                                                                                                                                                                      部分 说明
                                                                                                                                                                                                      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;
                                                                                                                                                                                                        
                                                                                                                                                                                                        1
                                                                                                                                                                                                        • 该函数用于获得参数指定的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;
                                                                                                                                                                                                          
                                                                                                                                                                                                          1
                                                                                                                                                                                                          • 该函数用于获取参数指定的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;
                                                                                                                                                                                                            
                                                                                                                                                                                                            1
                                                                                                                                                                                                            • 该函数用于获得参数指定的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;
                                                                                                                                                                                                              
                                                                                                                                                                                                              1
                                                                                                                                                                                                              • 该函数获取参数指定的两个日期时间类型表达式之间相差的毫秒数。
                                                                                                                                                                                                              部分 说明
                                                                                                                                                                                                              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;
                                                                                                                                                                                                                
                                                                                                                                                                                                                1
                                                                                                                                                                                                                • 该函数获取指定的日期时间表达式时钟的分钟数。
                                                                                                                                                                                                                部分 说明
                                                                                                                                                                                                                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;
                                                                                                                                                                                                                  
                                                                                                                                                                                                                  1
                                                                                                                                                                                                                  • 该函数用于指定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;
                                                                                                                                                                                                                    
                                                                                                                                                                                                                    1
                                                                                                                                                                                                                    • 该函数用于获得参数指定的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;
                                                                                                                                                                                                                      
                                                                                                                                                                                                                      1
                                                                                                                                                                                                                      • 该函数用于获得参数指定的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;
                                                                                                                                                                                                                        
                                                                                                                                                                                                                        1
                                                                                                                                                                                                                        • 该函数用于获得参数指定的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;
                                                                                                                                                                                                                          
                                                                                                                                                                                                                          1
                                                                                                                                                                                                                          • 该函数获得指定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;
                                                                                                                                                                                                                            
                                                                                                                                                                                                                            1
                                                                                                                                                                                                                            • 该函数获得参数给定的两个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;
                                                                                                                                                                                                                              
                                                                                                                                                                                                                              1
                                                                                                                                                                                                                              • 该函数获得参数给定日期时间类型表达式的月份。
                                                                                                                                                                                                                              部分 说明
                                                                                                                                                                                                                              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;
                                                                                                                                                                                                                                
                                                                                                                                                                                                                                1
                                                                                                                                                                                                                                • 该函数获得参数给定日期时间类型表达式的月份。
                                                                                                                                                                                                                                部分 说明
                                                                                                                                                                                                                                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;
                                                                                                                                                                                                                                  
                                                                                                                                                                                                                                  1
                                                                                                                                                                                                                                  部分 说明
                                                                                                                                                                                                                                  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;
                                                                                                                                                                                                                                    
                                                                                                                                                                                                                                    1
                                                                                                                                                                                                                                    • 该函数获取给定的两日期时间类型表达式之间相差的月数。
                                                                                                                                                                                                                                    部分 说明
                                                                                                                                                                                                                                    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;
                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                      1
                                                                                                                                                                                                                                      • 该函数用于获取系统当前的日期和时间。

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

                                                                                                                                                                                                                                      • 示例:

                                                                                                                                                                                                                                        //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;
                                                                                                                                                                                                                                        
                                                                                                                                                                                                                                        1
                                                                                                                                                                                                                                        • 函数把参数指定的日期替换为参数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;
                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                          1
                                                                                                                                                                                                                                          • 该函数把参数指定的日期时间类型表达式替换为参数给定的年、月、日、小时、分钟、秒和毫秒所对应的日期时间值。
                                                                                                                                                                                                                                          部分 说明
                                                                                                                                                                                                                                          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;
                                                                                                                                                                                                                                            
                                                                                                                                                                                                                                            1
                                                                                                                                                                                                                                            • 把参数指定的日期时间类型表达式替换为参数给定日所对应的日期时间值。
                                                                                                                                                                                                                                            部分 说明
                                                                                                                                                                                                                                            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;
                                                                                                                                                                                                                                              
                                                                                                                                                                                                                                              1
                                                                                                                                                                                                                                              • 该函数将指定时间中的小时替换为另一个指定的小时。
                                                                                                                                                                                                                                              部分 说明
                                                                                                                                                                                                                                              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;
                                                                                                                                                                                                                                                
                                                                                                                                                                                                                                                1
                                                                                                                                                                                                                                                • 该函数将指定时间中的毫秒替换成指定的数值。
                                                                                                                                                                                                                                                部分 说明
                                                                                                                                                                                                                                                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;
                                                                                                                                                                                                                                                  
                                                                                                                                                                                                                                                  1
                                                                                                                                                                                                                                                  • 该函数将指定时间中的分替换称为特定数值。
                                                                                                                                                                                                                                                  部分 说明
                                                                                                                                                                                                                                                  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;
                                                                                                                                                                                                                                                    
                                                                                                                                                                                                                                                    1
                                                                                                                                                                                                                                                    • 该函数将指定时间的秒替换为指定的数值。
                                                                                                                                                                                                                                                    部分 说明
                                                                                                                                                                                                                                                    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;
                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                      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
                                                                                                                                                                                                                                                        //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;
                                                                                                                                                                                                                                                        
                                                                                                                                                                                                                                                        1
                                                                                                                                                                                                                                                        • 该函数用于将指定时间的年份替换为指定的数值。
                                                                                                                                                                                                                                                        部分 说明
                                                                                                                                                                                                                                                        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;
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          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
                                                                                                                                                                                                                                                            //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;
                                                                                                                                                                                                                                                            
                                                                                                                                                                                                                                                            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
                                                                                                                                                                                                                                                              //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;
                                                                                                                                                                                                                                                              
                                                                                                                                                                                                                                                              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
                                                                                                                                                                                                                                                                //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;
                                                                                                                                                                                                                                                                
                                                                                                                                                                                                                                                                1
                                                                                                                                                                                                                                                                • 该函数返回指定时间中表示的秒数。
                                                                                                                                                                                                                                                                部分 说明
                                                                                                                                                                                                                                                                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;
                                                                                                                                                                                                                                                                  
                                                                                                                                                                                                                                                                  1
                                                                                                                                                                                                                                                                  • 该函数用于返回指定时间与同一天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;
                                                                                                                                                                                                                                                                    
                                                                                                                                                                                                                                                                    1
                                                                                                                                                                                                                                                                    • 该函数用于返回指定时间与同一天同一时的起始时间之间流逝的秒数。
                                                                                                                                                                                                                                                                    部分 说明
                                                                                                                                                                                                                                                                    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;
                                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                                      1
                                                                                                                                                                                                                                                                      • 该函数返回指定时间与同一天同一分钟的起始时间之间流逝的秒数。
                                                                                                                                                                                                                                                                      部分 说明
                                                                                                                                                                                                                                                                      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;
                                                                                                                                                                                                                                                                        
                                                                                                                                                                                                                                                                        1
                                                                                                                                                                                                                                                                        • 该函数返回指定时间与同一天同一分钟的起始时间之间流逝的秒数。
                                                                                                                                                                                                                                                                        部分 说明
                                                                                                                                                                                                                                                                        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;
                                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                                          1
                                                                                                                                                                                                                                                                          • 该函数返回指定的时间与其所在周首天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;
                                                                                                                                                                                                                                                                            
                                                                                                                                                                                                                                                                            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
                                                                                                                                                                                                                                                                              //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;
                                                                                                                                                                                                                                                                              
                                                                                                                                                                                                                                                                              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
                                                                                                                                                                                                                                                                                //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;
                                                                                                                                                                                                                                                                                
                                                                                                                                                                                                                                                                                1
                                                                                                                                                                                                                                                                                • 该函数返回指定日期中指定星期的第一个可表示时刻。
                                                                                                                                                                                                                                                                                部分 说明
                                                                                                                                                                                                                                                                                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;
                                                                                                                                                                                                                                                                                  
                                                                                                                                                                                                                                                                                  1
                                                                                                                                                                                                                                                                                  • 该函数返回指定年份的第一个可表示的时刻。
                                                                                                                                                                                                                                                                                  部分 说明
                                                                                                                                                                                                                                                                                  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;
                                                                                                                                                                                                                                                                                    
                                                                                                                                                                                                                                                                                    1
                                                                                                                                                                                                                                                                                    • 该函数根据指定的日期返回当天的零时时间。
                                                                                                                                                                                                                                                                                    部分 说明
                                                                                                                                                                                                                                                                                    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;
                                                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                                                      1
                                                                                                                                                                                                                                                                                      • 该函数根据指定的日期返回当月第一天的零时时间。
                                                                                                                                                                                                                                                                                      部分 说明
                                                                                                                                                                                                                                                                                      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;
                                                                                                                                                                                                                                                                                        
                                                                                                                                                                                                                                                                                        1
                                                                                                                                                                                                                                                                                        • 该函数根据指定的日期返回本周第一天的零时时间。
                                                                                                                                                                                                                                                                                        部分 说明
                                                                                                                                                                                                                                                                                        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;
                                                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                                                          1
                                                                                                                                                                                                                                                                                          • 该函数根据指定的日期返回当年的第一天的零时时间。
                                                                                                                                                                                                                                                                                          部分 说明
                                                                                                                                                                                                                                                                                          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;
                                                                                                                                                                                                                                                                                            
                                                                                                                                                                                                                                                                                            1
                                                                                                                                                                                                                                                                                            • 该函数将字符串转换为日期值。
                                                                                                                                                                                                                                                                                            参数 说明
                                                                                                                                                                                                                                                                                            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;
                                                                                                                                                                                                                                                                                              
                                                                                                                                                                                                                                                                                              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
                                                                                                                                                                                                                                                                                                //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;
                                                                                                                                                                                                                                                                                                
                                                                                                                                                                                                                                                                                                1
                                                                                                                                                                                                                                                                                                • 该函数将字符串转换为日期值。
                                                                                                                                                                                                                                                                                                参数 说明
                                                                                                                                                                                                                                                                                                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;
                                                                                                                                                                                                                                                                                                  
                                                                                                                                                                                                                                                                                                  1
                                                                                                                                                                                                                                                                                                  • 该函数将字符串转换为日期时间类型,如果字符串不符合格式,则使用默认值。
                                                                                                                                                                                                                                                                                                  参数 说明
                                                                                                                                                                                                                                                                                                  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;
                                                                                                                                                                                                                                                                                                    
                                                                                                                                                                                                                                                                                                    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
                                                                                                                                                                                                                                                                                                      //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;
                                                                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                                                                      1
                                                                                                                                                                                                                                                                                                      • 该函数将字符串转换为时间,如果字符串不符合要求,则返回默认值。
                                                                                                                                                                                                                                                                                                      参数 说明
                                                                                                                                                                                                                                                                                                      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;
                                                                                                                                                                                                                                                                                                        
                                                                                                                                                                                                                                                                                                        1

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

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

                                                                                                                                                                                                                                                                                                        • 示例:

                                                                                                                                                                                                                                                                                                          //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;
                                                                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                                                                          1
                                                                                                                                                                                                                                                                                                          • 该函数用于去掉日期时间数据的日期部分,使其只包含时间部分,将日期设置为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;
                                                                                                                                                                                                                                                                                                            
                                                                                                                                                                                                                                                                                                            1
                                                                                                                                                                                                                                                                                                            • 该函数返回日期时间数据中时间部分的字符串。
                                                                                                                                                                                                                                                                                                            参数 说明
                                                                                                                                                                                                                                                                                                            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;
                                                                                                                                                                                                                                                                                                              
                                                                                                                                                                                                                                                                                                              1
                                                                                                                                                                                                                                                                                                              • 函数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;
                                                                                                                                                                                                                                                                                                                
                                                                                                                                                                                                                                                                                                                1
                                                                                                                                                                                                                                                                                                                • 该函数返回明天的日期数据,时间部分被设置为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;
                                                                                                                                                                                                                                                                                                                  
                                                                                                                                                                                                                                                                                                                  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
                                                                                                                                                                                                                                                                                                                    //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;
                                                                                                                                                                                                                                                                                                                    
                                                                                                                                                                                                                                                                                                                    1
                                                                                                                                                                                                                                                                                                                    • 该函数根据日期值返回日期值所在的周在一年中的周数。
                                                                                                                                                                                                                                                                                                                    部门 说明
                                                                                                                                                                                                                                                                                                                    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;
                                                                                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                                                                                      1
                                                                                                                                                                                                                                                                                                                      • 该函数根据指定的日期判断本周是本月中的第几周。
                                                                                                                                                                                                                                                                                                                      部分 说明
                                                                                                                                                                                                                                                                                                                      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;
                                                                                                                                                                                                                                                                                                                        
                                                                                                                                                                                                                                                                                                                        1
                                                                                                                                                                                                                                                                                                                        • 该函数根据日期值返回日期值所在的周在一年中的周数。
                                                                                                                                                                                                                                                                                                                        部分 说明
                                                                                                                                                                                                                                                                                                                        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;
                                                                                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                                                                                          1
                                                                                                                                                                                                                                                                                                                          • 该函数用于计算两个日期之间的周数。
                                                                                                                                                                                                                                                                                                                          部分 说明
                                                                                                                                                                                                                                                                                                                          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;
                                                                                                                                                                                                                                                                                                                            
                                                                                                                                                                                                                                                                                                                            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
                                                                                                                                                                                                                                                                                                                              //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;
                                                                                                                                                                                                                                                                                                                              
                                                                                                                                                                                                                                                                                                                              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
                                                                                                                                                                                                                                                                                                                                //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;
                                                                                                                                                                                                                                                                                                                                
                                                                                                                                                                                                                                                                                                                                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
                                                                                                                                                                                                                                                                                                                                  //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;
                                                                                                                                                                                                                                                                                                                                  
                                                                                                                                                                                                                                                                                                                                  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
                                                                                                                                                                                                                                                                                                                                    //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;
                                                                                                                                                                                                                                                                                                                                    
                                                                                                                                                                                                                                                                                                                                    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
                                                                                                                                                                                                                                                                                                                                      //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;
                                                                                                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                                                                                                      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
                                                                                                                                                                                                                                                                                                                                        //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;
                                                                                                                                                                                                                                                                                                                                        
                                                                                                                                                                                                                                                                                                                                        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
                                                                                                                                                                                                                                                                                                                                          //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;
                                                                                                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                                                                                                          1
                                                                                                                                                                                                                                                                                                                                          • 该函数返回指定日期的年份。
                                                                                                                                                                                                                                                                                                                                          部门 说明
                                                                                                                                                                                                                                                                                                                                          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;
                                                                                                                                                                                                                                                                                                                                            
                                                                                                                                                                                                                                                                                                                                            1
                                                                                                                                                                                                                                                                                                                                            • 函数返回两个日期数据之间大约的年数。
                                                                                                                                                                                                                                                                                                                                            部分 说明
                                                                                                                                                                                                                                                                                                                                            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;
                                                                                                                                                                                                                                                                                                                                              
                                                                                                                                                                                                                                                                                                                                              1
                                                                                                                                                                                                                                                                                                                                              • 该函数返回两个日期数据之间大约的年数,包含小数部分。
                                                                                                                                                                                                                                                                                                                                              部分 说明
                                                                                                                                                                                                                                                                                                                                              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;
                                                                                                                                                                                                                                                                                                                                                
                                                                                                                                                                                                                                                                                                                                                1
                                                                                                                                                                                                                                                                                                                                                • 该函数返回昨天的日期。

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

                                                                                                                                                                                                                                                                                                                                                • 示例:

                                                                                                                                                                                                                                                                                                                                                  //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;
                                                                                                                                                                                                                                                                                                                                                  
                                                                                                                                                                                                                                                                                                                                                  1
                                                                                                                                                                                                                                                                                                                                                  • 该函数获得某个矩形。
                                                                                                                                                                                                                                                                                                                                                  部分 说明
                                                                                                                                                                                                                                                                                                                                                  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;
                                                                                                                                                                                                                                                                                                                                                    
                                                                                                                                                                                                                                                                                                                                                    1
                                                                                                                                                                                                                                                                                                                                                    • 该函数将一个数字转换成一个字符串,字符串中包含该数字的十六进制表现形式。
                                                                                                                                                                                                                                                                                                                                                    部分 说明
                                                                                                                                                                                                                                                                                                                                                    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;
                                                                                                                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                                                                                                                      1
                                                                                                                                                                                                                                                                                                                                                      • 该函数将一个指定整型值转换成一个字符串。
                                                                                                                                                                                                                                                                                                                                                      参数 说明
                                                                                                                                                                                                                                                                                                                                                      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;
                                                                                                                                                                                                                                                                                                                                                        
                                                                                                                                                                                                                                                                                                                                                        1
                                                                                                                                                                                                                                                                                                                                                        • 该函数创建一个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;
                                                                                                                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                                                                                                                          1
                                                                                                                                                                                                                                                                                                                                                          • 该函数用一组坐标创建一个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;
                                                                                                                                                                                                                                                                                                                                                            
                                                                                                                                                                                                                                                                                                                                                            1
                                                                                                                                                                                                                                                                                                                                                            • 该函数用一对坐标创建一个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;
                                                                                                                                                                                                                                                                                                                                                              
                                                                                                                                                                                                                                                                                                                                                              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
                                                                                                                                                                                                                                                                                                                                                                //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;
                                                                                                                                                                                                                                                                                                                                                                
                                                                                                                                                                                                                                                                                                                                                                1
                                                                                                                                                                                                                                                                                                                                                                • 函数将参数指定用的二进制或十六进制符号表示的一个整形字符串转换为一个整数值。
                                                                                                                                                                                                                                                                                                                                                                参数 说明
                                                                                                                                                                                                                                                                                                                                                                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;
                                                                                                                                                                                                                                                                                                                                                                  
                                                                                                                                                                                                                                                                                                                                                                  1
                                                                                                                                                                                                                                                                                                                                                                  • 该函数将指定的一个表示整型数字的字符串转换为一个数值。
                                                                                                                                                                                                                                                                                                                                                                  参数 说明
                                                                                                                                                                                                                                                                                                                                                                  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;
                                                                                                                                                                                                                                                                                                                                                                    
                                                                                                                                                                                                                                                                                                                                                                    1
                                                                                                                                                                                                                                                                                                                                                                    • 该函数将指定的一个整型数字字符串转换为一个数值。
                                                                                                                                                                                                                                                                                                                                                                    参数 说明
                                                                                                                                                                                                                                                                                                                                                                    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;
                                                                                                                                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                                                                                                                                      1
                                                                                                                                                                                                                                                                                                                                                                      • 该函数将指定的内存流信息转换为字符串。
                                                                                                                                                                                                                                                                                                                                                                      参数 说明
                                                                                                                                                                                                                                                                                                                                                                      AStream 将要转换的流
                                                                                                                                                                                                                                                                                                                                                                      • 返回值:返回字符串数值。

                                                                                                                                                                                                                                                                                                                                                                      # 11. 文件处理函数

                                                                                                                                                                                                                                                                                                                                                                      # 11.1. CheckDirectory

                                                                                                                                                                                                                                                                                                                                                                      function CheckDirectory(sDir: string; notExistCreate: Boolean = true): Boolean;
                                                                                                                                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                                                                                                                                      1
                                                                                                                                                                                                                                                                                                                                                                      • 检查目录是否存在,如果不存在可创建。
                                                                                                                                                                                                                                                                                                                                                                      部分 说明
                                                                                                                                                                                                                                                                                                                                                                      sDir 待检查的目录
                                                                                                                                                                                                                                                                                                                                                                      notExistCreate 目录不存在,是否创建目录
                                                                                                                                                                                                                                                                                                                                                                      • 返回值:返回Boolean值。如果检查的目录存在,返回True;如果检查的目录不存在,且notExistCreate为True,则会自动创建目录,返回True。其他情况会返回False。

                                                                                                                                                                                                                                                                                                                                                                      # 11.2. DirectoryExists

                                                                                                                                                                                                                                                                                                                                                                      function DirectoryExists(const Directory: string; FollowLink: Boolean = True): Boolean;
                                                                                                                                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                                                                                                                                      1
                                                                                                                                                                                                                                                                                                                                                                      • 检测指定目录是否存在。
                                                                                                                                                                                                                                                                                                                                                                      部分 说明
                                                                                                                                                                                                                                                                                                                                                                      Directory 待检查的目录
                                                                                                                                                                                                                                                                                                                                                                      FollowLink 目录是否为符号链接
                                                                                                                                                                                                                                                                                                                                                                      • 返回值:返回Boolean值。

                                                                                                                                                                                                                                                                                                                                                                      # 11.3. ExcludeTrailingBackslash

                                                                                                                                                                                                                                                                                                                                                                      function ExcludeTrailingBackslash(const S: string): string;
                                                                                                                                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                                                                                                                                      1
                                                                                                                                                                                                                                                                                                                                                                      • 该函数使用多字节字符集,它删除参数中结束路径界定符\,并向后兼容。
                                                                                                                                                                                                                                                                                                                                                                      部分 说明
                                                                                                                                                                                                                                                                                                                                                                      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.4. ExcludeTrailingPathDelimiter

                                                                                                                                                                                                                                                                                                                                                                        function ExcludeTrailingPathDelimiter(const S: string): string;
                                                                                                                                                                                                                                                                                                                                                                        
                                                                                                                                                                                                                                                                                                                                                                        1
                                                                                                                                                                                                                                                                                                                                                                        部分 说明
                                                                                                                                                                                                                                                                                                                                                                        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.5. ExpandFileName

                                                                                                                                                                                                                                                                                                                                                                          function ExpandFileName(const FileName: string): string;
                                                                                                                                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                                                                                                                                          1
                                                                                                                                                                                                                                                                                                                                                                          • 该函数将相对文件名转换为完全标准化路径。它不验证生成的完全标准化路径是否引用一个现有的文件。
                                                                                                                                                                                                                                                                                                                                                                          部分 说明
                                                                                                                                                                                                                                                                                                                                                                          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.6. ExpandUNCFileName

                                                                                                                                                                                                                                                                                                                                                                            function ExpandUNCFileName(const FileName: string): string;
                                                                                                                                                                                                                                                                                                                                                                            
                                                                                                                                                                                                                                                                                                                                                                            1
                                                                                                                                                                                                                                                                                                                                                                            • 该函数利用网络文件的通用命名协议(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.7. ExtractFileDir

                                                                                                                                                                                                                                                                                                                                                                              function ExtractFileDir(const FileName: string): string;
                                                                                                                                                                                                                                                                                                                                                                              
                                                                                                                                                                                                                                                                                                                                                                              1
                                                                                                                                                                                                                                                                                                                                                                              • 该函数从文件名中提取驱动器和目录部分。
                                                                                                                                                                                                                                                                                                                                                                              部分 说明
                                                                                                                                                                                                                                                                                                                                                                              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.8. ExtractFileDrive

                                                                                                                                                                                                                                                                                                                                                                                function ExtractFileDrive(const FileName: string): string;
                                                                                                                                                                                                                                                                                                                                                                                
                                                                                                                                                                                                                                                                                                                                                                                1
                                                                                                                                                                                                                                                                                                                                                                                • 该函数返回完全标准化路径名的驱动器部分。
                                                                                                                                                                                                                                                                                                                                                                                部分 说明
                                                                                                                                                                                                                                                                                                                                                                                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.9. ExtractFileName

                                                                                                                                                                                                                                                                                                                                                                                  function ExtractFileName(const FileName: string): string;
                                                                                                                                                                                                                                                                                                                                                                                  
                                                                                                                                                                                                                                                                                                                                                                                  1
                                                                                                                                                                                                                                                                                                                                                                                  • 该函数用于从指定的字符串中提取文件名。
                                                                                                                                                                                                                                                                                                                                                                                  部分 说明
                                                                                                                                                                                                                                                                                                                                                                                  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.10. ExtractFileExt

                                                                                                                                                                                                                                                                                                                                                                                    function ExtractFileExt(const FileName: string): string;
                                                                                                                                                                                                                                                                                                                                                                                    
                                                                                                                                                                                                                                                                                                                                                                                    1
                                                                                                                                                                                                                                                                                                                                                                                    • 该函数返回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.11. ExtarctFilePath

                                                                                                                                                                                                                                                                                                                                                                                      function ExtractFilePath(const FileName: string): string;
                                                                                                                                                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                                                                                                                                                      1
                                                                                                                                                                                                                                                                                                                                                                                      • 该函数用于返回指定文件的工作路径。
                                                                                                                                                                                                                                                                                                                                                                                      部分 说明
                                                                                                                                                                                                                                                                                                                                                                                      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.12. 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
                                                                                                                                                                                                                                                                                                                                                                                          //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.13. FileAge

                                                                                                                                                                                                                                                                                                                                                                                          function FileAge(const FileName: string): LongInt; overload;
                                                                                                                                                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                                                                                                                                                          1
                                                                                                                                                                                                                                                                                                                                                                                          • 该函数返回指定文件的操作系统时间。
                                                                                                                                                                                                                                                                                                                                                                                          部分 说明
                                                                                                                                                                                                                                                                                                                                                                                          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.14. 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
                                                                                                                                                                                                                                                                                                                                                                                              //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.15. FileIsReadOnly

                                                                                                                                                                                                                                                                                                                                                                                              function FileIsReadOnly(const FileName: string): Boolean;
                                                                                                                                                                                                                                                                                                                                                                                              
                                                                                                                                                                                                                                                                                                                                                                                              1
                                                                                                                                                                                                                                                                                                                                                                                              • 该函数用于判断指定文件是否是只读的。
                                                                                                                                                                                                                                                                                                                                                                                              部分 说明
                                                                                                                                                                                                                                                                                                                                                                                              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.16. 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
                                                                                                                                                                                                                                                                                                                                                                                                  //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.17. 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
                                                                                                                                                                                                                                                                                                                                                                                                    //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.18. GetCurrentDir

                                                                                                                                                                                                                                                                                                                                                                                                    function GetCurrentDir: string;
                                                                                                                                                                                                                                                                                                                                                                                                    
                                                                                                                                                                                                                                                                                                                                                                                                    1
                                                                                                                                                                                                                                                                                                                                                                                                    • 该函数返回当前目录。

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

                                                                                                                                                                                                                                                                                                                                                                                                    • 示例:

                                                                                                                                                                                                                                                                                                                                                                                                      //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.19. InCludeTrailingBackslash

                                                                                                                                                                                                                                                                                                                                                                                                      function IncludeTrailingBackslash(const S: string): string;
                                                                                                                                                                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                                                                                                                                                                      1
                                                                                                                                                                                                                                                                                                                                                                                                      • 该函数确保路径名以路径定界符\结束。
                                                                                                                                                                                                                                                                                                                                                                                                      部分 说明
                                                                                                                                                                                                                                                                                                                                                                                                      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.20. InCludeTrailingPathDelimiter

                                                                                                                                                                                                                                                                                                                                                                                                        function IncludeTrailingPathDelimiter(const S: string): string;
                                                                                                                                                                                                                                                                                                                                                                                                        
                                                                                                                                                                                                                                                                                                                                                                                                        1
                                                                                                                                                                                                                                                                                                                                                                                                        • 该函数确保路径名以路径定界符\结束,若参数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.21. IOResult

                                                                                                                                                                                                                                                                                                                                                                                                          function IOResult: Integer;
                                                                                                                                                                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                                                                                                                                                                          1
                                                                                                                                                                                                                                                                                                                                                                                                          • 该函数返回最后一次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.22. 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
                                                                                                                                                                                                                                                                                                                                                                                                              //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;
                                                                                                                                                                                                                                                                                                                                                                                                              
                                                                                                                                                                                                                                                                                                                                                                                                              1
                                                                                                                                                                                                                                                                                                                                                                                                              • 该函数将货币类型以指定的格式转换成字符串。
                                                                                                                                                                                                                                                                                                                                                                                                              部分 说明
                                                                                                                                                                                                                                                                                                                                                                                                              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;
                                                                                                                                                                                                                                                                                                                                                                                                                
                                                                                                                                                                                                                                                                                                                                                                                                                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
                                                                                                                                                                                                                                                                                                                                                                                                                  //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;
                                                                                                                                                                                                                                                                                                                                                                                                                  
                                                                                                                                                                                                                                                                                                                                                                                                                  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
                                                                                                                                                                                                                                                                                                                                                                                                                    //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);
                                                                                                                                                                                                                                                                                                                                                                                                                    
                                                                                                                                                                                                                                                                                                                                                                                                                    1
                                                                                                                                                                                                                                                                                                                                                                                                                    • 该函数用于释放指定对象,并设置其为空。
                                                                                                                                                                                                                                                                                                                                                                                                                    部分 说明
                                                                                                                                                                                                                                                                                                                                                                                                                    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。

                                                                                                                                                                                                                                                                                                                                                                                                                      示例使用方式
                                                                                                                                                                                                                                                                                                                                                                                                                      系统程序

                                                                                                                                                                                                                                                                                                                                                                                                                      ← 示例使用方式 系统程序→

                                                                                                                                                                                                                                                                                                                                                                                                                      Copyright © 2021-2025 爱招飞IsoFace | ALL Rights Reserved
                                                                                                                                                                                                                                                                                                                                                                                                                      • 跟随系统
                                                                                                                                                                                                                                                                                                                                                                                                                      • 浅色模式
                                                                                                                                                                                                                                                                                                                                                                                                                      • 深色模式
                                                                                                                                                                                                                                                                                                                                                                                                                      • 阅读模式