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

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

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

我有一个日期变量，可以声明为

DateTime

或

String

。 作为

DateTime

它看起来像

443663996712847

转换成

字符串

它看起来像

19.06.2021 09:36:35

。最后，我需要将其中一个值转换为18位时间戳，以便在LDAP中设置帐户过期日期

几年前，我在C#中做了很多工作，但在Delphi、JScript和VBScript中什么都没有。我现在也没钱了

我第一次尝试将字符串转换为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;         

---

您应该根据需要选择正确的语言标记。看起来你想要Delphi，所以删除其他的…并添加一个与日期相关的标记。你显示了代码，很好！这段代码有什么问题？“但Delphi没有什么问题”那么为什么选择晦涩难懂的DelphiScript语言（不是Delphi）而不是JScript呢？LDAP/Active directory时间戳是自1601年1月1日UTC以来经过的100纳秒间隔。见：