TDateTime Werte in JavaScript Zeitwerte konvertieren

[SubData]

Mit dieser einfachen Funktion können Delphi TDateTime Werte in JavaScript Zeitwerte konvertiert werden.
Ganz praktisch für Server-Entwicklung oder HTML Seiten Generierung.

Der Aufruf erfolgt mit einem Zeitwert und einer Format Angabe (Integer 1 - 6) und liefert folgende Ergebnisse.
(Jetzt = 07.10.2005 / 08:39:33)

Eine genaue Beschreibung der einzelnen Varianten ist auf de.selfhtml.org zu finden

Code:

1: 07.10.2005
2: October  7, 2005  8:39:22
3: 2005, 9, 7
4: 2005, 9, 7, 8,39,22
5: 1128667162000
6: 08:39

Deklaration:

Delphi-Quellcode:

  function  TimeToJavaScript(const Zeit: TDateTime; const Format: Integer = 4): String;

const
  MNamesEng : Array[1..12] of String = ('January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December');

Funktion:

Delphi-Quellcode:

function TimeToJavaScript(const Zeit: TDateTime; const Format: Integer = 4): String;
var
  Y, M, D     : Word;
  H, N, S, MS : Word;
begin
  DecodeDate(Zeit, Y, M, D);
  DecodeTime(Zeit, H, N, S, MS);
  case Format of
    1: Result := FormatDateTime('dd"."mm"."yyyy', Zeit);
    2: Result := SysUtils.Format('%s %2d, %4d %2d:%2d:%2d', [MNamesEng[M], D, Y, H, N, S]);
    3: Result := SysUtils.Format('%4d,%2d,%2d', [Y, M-1, D]);
    4: Result := SysUtils.Format('%4d,%2d,%2d,%2d,%2d,%2d', [Y, M-1, D, H, N, S]);
    5: Result := IntToStr(Round(((Zeit - 25569) * 24 * 60 * 60) - 7200.5) * 1000);
    6: Result := FormatDateTime('hh":"mm', Zeit)
  end;
end;

Viel Spaß damit :)