Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
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;
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.
Jeg er glad for, at du fik det til at virke :-) Hvis du kunne bruge mine kommentarer til noget, er her et svar.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.