DelphiScript - 字符串到日期时间/到 18 位时间戳

Question

我正在尝试自动执行一些重复性任务。在其他工作中，我想自动化 LDAP 帐户创建。由于我们有固定期限雇佣合同的员工，我想自动将这些 LDAP 帐户的停用日期设置为最后一天工作。

我们的自动化工具支持 DelphiScript、VBScript 和 JavaScript。此外，它将支持 PowerShell 脚本。

我有一个日期变量，我可以将其声明为 DateTime 或 String。 作为 DateTime，它看起来像 44366,3996712847 转换为 String，它看起来像 19.06.2021 09:36:35。最后，我需要将这些值之一转换为 18 位时间戳，以便我可以在 LDAP 中设置帐户到期日期。

几年前，我在 C# 方面做了很多工作，但对 Delphi、JScript 和 VBScript 一无所知。我现在也不再使用 C#。

我第一次尝试将 String 转换为 DateTime 的方法如下所示：

uses
  Classes, SysUtils;

var
  befristet: datetime;
  timestamp: string;    
               
begin  

  befristet := GetVarContent('DATA.Befristet');        
          
  timestamp := DateTimeToTimeStamp(befristet);  
                
  // Writing to Log
  LogMessage('VarContent: ' + befristet);
  
  // Returns 0 as script result
  Result := 0;
end;