Oh Dear, comparing dates and times

Dev Shed Forums Sponsor:

January 5th, 2004, 12:49 PM

lloydie-t

Contributing User

Join Date: May 2002

Location: UK

Posts: 563

Time spent in forums: 1 Day 23 h 54 m 22 sec
Reputation Power: 12

Oh Dear, comparing dates and times

I have two date and time routines which are giving me absolute murders at the moment and I don't understand why.

The first one I am using to check wether the day is a weekend or not. Keeps giving me the wrong number for the day.Why?

Code:

Var
DayBand : Integer;
..............

CallDay := 12:27:03; //A saturday
DayBand := DayOfWeek(StrToDate(CallDay));

If (DayBand = 1) or (DayBand = 7) then
begin
CallBand := 'we_end';
end else
begin
	If (TimeBandStart <= TimeOfCall1) and (TimeBandEnd >= TimeOfCall1) then Begin
	CallBand := 'day';
        end
        else begin
	CallBand := 'night';
	end;

Just fixed the second problem.

WhaDaYATink?

January 5th, 2004, 03:13 PM

lloydie-t

Contributing User

Join Date: May 2002

Location: UK

Posts: 563

Time spent in forums: 1 Day 23 h 54 m 22 sec
Reputation Power: 12

The Borland Documentation mentioned providing the date in US date format. In Fact it should be what your local PC date fromat is. So that sorted that out, but also my If else statements were wrong, in that I put an end; in the wrong place, which meant that some of my other code would only run inside the if else statement instead of outside of it.

Code:

CallDay := 27/12/03; //A saturday
DayBand := DayOfWeek(StrToDate(CallDay));

If (DayBand = 1) or (DayBand = 7) then
begin
CallBand := 'we_end';
end else
begin
	If (TimeBandStart <= TimeOfCall1) and (TimeBandEnd >= TimeOfCall1) then Begin
	CallBand := 'day';
        end
        else begin
	CallBand := 'night';
	end;

January 15th, 2004, 12:09 AM

Scorpions4ever

Banned ;)

Dev Shed God 9th Plane (9000 - 9499 posts)

Join Date: Nov 2001

Location: Woodland Hills, Los Angeles County, California, USA

Posts: 9,381

Time spent in forums: 1 Month 4 Weeks 1 Day 20 h 24 m 14 sec
Reputation Power: 4080

It is probably better to use EncodeDate instead of using StrToDate to construct a DateTime object. That way, you can ensure that you get the correct Date/Time regardless of the locale settings.

__________________
Up the Irons
What Would Jimi Do? Smash amps. Burn guitar. Take the groupies home.
"Death Before Dishonour, my Friends!!" - Bruce D ickinson, Iron Maiden Aug 20, 2005 @ OzzFest
Down with Sharon Osbourne

Viewing: Dev Shed Forums > Programming Languages - More > Delphi Programming > Oh Dear, comparing dates and times

« Previous Thread | Next Thread »

Developer Shed Advertisers and Affiliates

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump