Sidst logget in??? :/

prøv at kig på daysbetween(); findes i datetime unit'en

Har fundet dette.

procedure TForm1.Timer1Timer(Sender: TObject);
var
  fromdate, toDate : TDateTime;

begin
  // Set up our date variables
  fromDate := EncodeDateTime(2000, 02, 26, 10, 0, 0, 0);
  toDate  := EncodeDateTime(2000, 02, 29,  9, 0, 0, 0);

  // Display these dates and the days between them
  ShowMessage('From date = '+DateTimeToStr(fromDate));
  ShowMessage('To  date = '+DateTimeToStr(toDate));
  ShowMessage('Whole days difference = '+
              IntToStr(DaysBetween(toDate, fromDate))+' days');
end;

Men den kommer med en fejl i "EncodeDateTime", så har prøvet at indsæt:
function DaysBetween ( const ToDate, FromDate  : TDateTime ) : Integer;

under "type", men det gider den ikke. :/

Så fik jeg det næsten til at virker mangler kun at få min label1 ind i EncodeDateTime("Label1.Caption"); hvordan får jeg det? :)

Det er vel bare:

EncodeDateTime(StrToInt(LabelYear.Caption),
                                  StrToInt(LabelMonth.Caption),
                                  StrToInt(LabelDay.Caption),
                                  StrToInt(LabelHours.Caption),
                                  StrToInt(LabelMins.Caption),
                                  StrToInt(LabelSecs.Caption),
                                  0);

Hvor LabelYear er den label hvor årstallet står osv.
Der er dog ingen fejlhåndtering, så står der bare et enkelt "ikke-tal" i en af de 6 labels, så får du en exception.

Det vil side den ser sådan ud?:
fromDate := EncodeDateTime(StrToInt(Label1.Caption);

men det virker heller ik :/

Så fandt jeg ud af det, men hvordan omregner man det hele til sekunder+ :( Den kan kun skrive dage jo...

Hint: Der er 24 timer i et døgn, 60 minutter i en time og 60 sekunder i et minut.

#7 Og hvis man ikke gider tænke for meget over det, kan antal sekunder mellem 2 TDateTime findes med SecondsBetween :-)

Har du en kode til det? :)

Har fundet ud af det. :)

"SecondSpan" skulle codes ind :)

Skriv en kommentar med "Svar (til løsninger og pointgivning)" så jeg kan give jer point :)

Jeg er glad for, at du fik det til at virke :-)
Hvis du kunne bruge mine kommentarer til noget, er her et svar.