Hvordan konveteres en "date" til int eller word?

DecodeDate();

Trunc(StrToDate('28-10-2008'));

eller Trunc(Date); hvis du har din dato i en TDate
Abs() kan vist også bruges.

Nå, glem min kommentar, jeg læste kun overskriften.

Ved
DecodeDate(myDate, myYear, myMonth, myDay);

får jeg afvide at det er d. 25/8-1915

Hvorfor gør den det og hvordan får jeg den korrekte dato i stedet?

Såfremt formatet du nævner er uændret vil dette her virke. Flyttes der rundt på yyyy,mm og dd skal du bruge copy

function StrDateToInteger(aSt: string): cardinal;
var
  p: integer;
begin
  repeat
    p := pos('-',aSt);
    if p > 0 then
      System.Delete(aSt,p,1);
  until p = 0;
  result := StrToInt(aSt);
end;

Denne funktion fjerner alle tegn der ikke er cifre - og er nok den sikreste at bruge.

function StrDateToInteger(aSt: string): cardinal;
var
  i: integer;
begin
  for i := length(aSt) downto 1 do
    if not (aSt[i] in ['0'..'9']) then
      System.Delete(aSt,i,1);
  result := StrToInt(aSt);
end;

Formatet den kommer med er
1915 8 25

Problemet løst:

Present: TDateTime;

Present:= Now;

Også anvende Present i DecodeDate funktionen


Mange tak for hjælpen,

MartinLind kom med hintet der løste mit problem.

eller sådan

Date kan bruges til dagsdato og time til tiden og now til begge

DecodeDate(Date, myYear, myMonth, myDay);