Einzelnen Beitrag anzeigen

Benutzerbild von Stevie
Stevie

Registriert seit: 12. Aug 2003
Ort: Soest
4.012 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#10

AW: Funktion "DateTimeToTimeStamp" in Delphicode übersetzen

  Alt 17. Nov 2011, 20:11
Immer diese Diskussionen um schon längst gelöste Fragen nur um Variablen zu sparen, die das ganze eigentlich für den Fragesteller nur lesbarer und nachvollziehbarer machen sollten...

Delphi-Quellcode:
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function HimisDateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp;
begin
  Result.Date := Trunc(DateTime) + DateDelta;
  Result.Time := Trunc(Frac(DateTime) * MSecsPerDay);
end;

var
  d: TDateTime;
  t: TTimeStamp;
begin
  d := EncodeDate(1899, 11, 11) + EncodeTime(11, 11, 11, 00);

  t := DateTimeToTimeStamp(d);
  Writeln(t.Date, ' ', t.Time);

  t := HimisDateTimeToTimeStamp(d);
  Writeln(t.Date, ' ' , t.Time);
  Readln;
end.
qef
Stefan
“Simplicity, carried to the extreme, becomes elegance.” Jon Franklin

Delphi Sorcery - DSharp - Spring4D - TestInsight
  Mit Zitat antworten Zitat