DelphiScript - Строка для DateTime/ до 18-значной отметки времени

Question

Я пытаюсь автоматизировать некоторые из моих повторяющихся задач. Помимо прочего, я хочу автоматизировать создание учетной записи LDAP. Поскольку у нас есть сотрудники с срочным трудовым договором, я хочу автоматически установить Дату деактивации этих учетных записей LDAP на последний рабочий день.

Наш инструмент, в котором я занимаюсь автоматизацией, поддерживает DelphiScript, VBScript и JavaScript. Кроме того, он будет поддерживать сценарии PowerShell.

У меня есть переменная Date, которую я могу объявить как или как. В виде 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;