AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Zeitliche Differenz berechnen

Ein Thema von athomas · begonnen am 1. Apr 2008 · letzter Beitrag vom 1. Apr 2008
Antwort Antwort
Seite 1 von 2  1 2   
athomas

Registriert seit: 4. Okt 2007
21 Beiträge
 
#1

Zeitliche Differenz berechnen

  Alt 1. Apr 2008, 17:52
Hallo,

hab' mal ne Frage, weil irgendwie auf keine Lösung komme.

Ich habe vor aus einem Datum (bestehend aus day, month, year: integer) die Zeit bis "jetzt" zu berechnen (in Tagen).
Beispiel:
Datum: 20.04.2008
Jetzt: 01.04.2008
Ausgabe: noch 19 Tage

Ich hoffe ihr findet 'ne Lösung

Mfg. athomas
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.534 Beiträge
 
Delphi 11 Alexandria
 
#2

Re: Zeitliche Differenz berechnen

  Alt 1. Apr 2008, 17:54
Wo ist denn Dein konkretes Problem?

P.S.: Willkommen in der DP
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#3

Re: Zeitliche Differenz berechnen

  Alt 1. Apr 2008, 17:56
Delphi-Referenz durchsuchenDaysBetween

[edit] Wie sagtest Du gestern? Steht da, nur nicht eindeutig formuliert [/edit]
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.534 Beiträge
 
Delphi 11 Alexandria
 
#4

Re: Zeitliche Differenz berechnen

  Alt 1. Apr 2008, 17:57
Aber vorher EncodeDate
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
athomas

Registriert seit: 4. Okt 2007
21 Beiträge
 
#5

Re: Zeitliche Differenz berechnen

  Alt 1. Apr 2008, 18:18
Danke für die schnellen Antworten, aber:
ist die Fuction DaysBetween schon bei delphi 5 dabei?
wenn ich nämlich die fucntion aufrufen will, heißt es Undefinierter Bezeichner: 'DaysBetween'
  Mit Zitat antworten Zitat
athomas

Registriert seit: 4. Okt 2007
21 Beiträge
 
#6

Re: Zeitliche Differenz berechnen

  Alt 1. Apr 2008, 18:32
hab's!
Delphi-Quellcode:
function DaysBetween(date1, date2: TDateTime): string;
var days, hours, minutes, secs: integer;
  difference: real;
begin
  difference:=date2-date1;
  days:=round(difference-Frac(difference));
  difference:=Frac(difference)*24;
  hours:=round(difference-Frac(difference));
  difference:=Frac(difference)*60;
  minutes:=round(difference-Frac(difference));
  difference:=Frac(difference)*60;
  secs:=round(difference-Frac(difference));
  result:=Format('%2d Tage, (%2dh:%2dmin:%2dsec)',[days,hours,minutes,secs]);
end;
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.534 Beiträge
 
Delphi 11 Alexandria
 
#7

Re: Zeitliche Differenz berechnen

  Alt 1. Apr 2008, 18:33
uses DateUtils hätte es auch getan
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#8

Re: Zeitliche Differenz berechnen

  Alt 1. Apr 2008, 18:39
Zitat von athomas:
wenn ich nämlich die fucntion aufrufen will, heißt es Undefinierter Bezeichner: 'DaysBetween'
Oder F1 drücken und in die Hilfe schauen
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.534 Beiträge
 
Delphi 11 Alexandria
 
#9

Re: Zeitliche Differenz berechnen

  Alt 1. Apr 2008, 18:41
Zitat von Die Muhkuh:
Oder F1 drücken und in die Hilfe schauen
Macht doch kein Mensch.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#10

Re: Zeitliche Differenz berechnen

  Alt 1. Apr 2008, 18:41
Wir sind auch Rüsselmopse
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:01 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz