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

Question

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

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

我有一个 Date 变量，我可以将其声明为DateTime或 as 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;         

标签： delphidelphiscript