Re: TDateTime i pojęcie dziś

Article View: pl.comp.lang.delphi

Article #268051

Back to pl.comp.lang.delphi Previous Next

#268051

From: Miroo
Date: Thu, 14 Jul 2005 07:13

26 lines
1910 bytes

Użytkownik "JerzyM" <jerzym@no-spam.tenbit.pl> napisał w wiadomości 
news:sv716at60t0l$.1i8oph0urfia6.dlg@40tude.net...
> Mam zmienną typu TDateTime pobieraną z bazy - tj. "termin wykonania
> zlecenia". Chciałbym określić czy zlecenie jest "na dziś", "na wczoraj",
> "czeka".

Po pierwsze: Date() lub DateOf(Now()) a nie Now(),
bo Now() zwraca również czas, co komplikuje porównanie.

dzis := Date();
termin_wykonania := DateOf(...pobieram z bazy)
if termin_wykonania < dzis then wynik := 'na wczoraj'
else if termin_wykonania > dzis then wynik := 'czeka'
else wynik := 'na dziś'

O to chodziło?
Pojęcie "na wczoraj" potraktowałem niedosłownie, czyli tak,
jak jest to zwykle w zleceniach :)
Jeśli interesuje cię dosłowne wczoraj to:
    wczoraj := dzis - 1;
lub bardziej poprawnie (bo teoretycznie sposób implementacji daty
może ulec zmianie):
    wczoraj := IncDay( dzis, -1);

Pozdrawiam
Miroo

Technical Details

Message-ID: <db53eb$kt2$1@atlantis.news.tpi.pl>

Path:

mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!newsfeed.tpinternet.pl!nemesis.news.tpi.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail

References: <sv716at60t0l$.1i8oph0urfia6.dlg@40tude.net>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!newsfeed.tpinternet.pl!nemesis.news.tpi.pl!atlantis.news.tpi.pl!news.tpi.pl!not-for-mail
From: "Miroo" <miroo75@REMOVEIT.o2.pl>
Newsgroups: pl.comp.lang.delphi
Subject: Re: TDateTime i pojęcie dziś
Date: Thu, 14 Jul 2005 09:13:16 +0200
Organization: tp.internet - http://www.tpi.pl/
Lines: 27
Message-ID: <db53eb$kt2$1@atlantis.news.tpi.pl>
References: <sv716at60t0l$.1i8oph0urfia6.dlg@40tude.net>
NNTP-Posting-Host: pv131.kolporter.com.pl
Mime-Version: 1.0
X-Trace: atlantis.news.tpi.pl 1121325323 21410 212.244.76.131 (14 Jul 2005 07:15:23 GMT)
X-Complaints-To: usenet@tpi.pl
NNTP-Posting-Date: Thu, 14 Jul 2005 07:15:23 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2180
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message