This course will introduce you to C++ 11 and teach you about syntax fundamentals.
TDateTime
Hi,
I have a problem with "mixing" a Date (given from a TMonthCalendar) and a Time (given indirectly from a TEdit) to one TDateTime-Value.
The MonthCalendar returns a TDateTime-Value with the current or specified Date (which is good) and also with the current Time (which is no good)
eg. 25.04.00, 15:54:00
and the StrToTime(Edit1.Text) returns the Time only (which is enough for me)
31.12.1899 (or something), 16:00:00
but when i simply add those two DateTime-Values I get something completly weird. So how would i mix the Date from the MonthCalendar with the Time from the Editbox to
25.04.00, 16:00:00
I think it cant be that hard, but im not really familiar with TDateTime...
I have a problem with "mixing" a Date (given from a TMonthCalendar) and a Time (given indirectly from a TEdit) to one TDateTime-Value.
The MonthCalendar returns a TDateTime-Value with the current or specified Date (which is good) and also with the current Time (which is no good)
eg. 25.04.00, 15:54:00
and the StrToTime(Edit1.Text) returns the Time only (which is enough for me)
31.12.1899 (or something), 16:00:00
but when i simply add those two DateTime-Values I get something completly weird. So how would i mix the Date from the MonthCalendar with the Time from the Editbox to
25.04.00, 16:00:00
I think it cant be that hard, but im not really familiar with TDateTime...
Asked:
-
3
-
2
- +2
1 Solution
Try this:
dtTime := StrToTime(Edit1.Text);
dtDate := MonthCalendar.Date;
dtFinal := TRUNC(dtDate) + (dtTime - TRUNC(dtTime));
What it does is use the time from your edit box and the date from your calendar component. TDateTime is basically a real value, with the integer part specifying the date, and the fractional part specifying the time. The above code just adds them together
The Neil =:)
dtTime := StrToTime(Edit1.Text);
dtDate := MonthCalendar.Date;
dtFinal := TRUNC(dtDate) + (dtTime - TRUNC(dtTime));
What it does is use the time from your edit box and the date from your calendar component. TDateTime is basically a real value, with the integer part specifying the date, and the fractional part specifying the time. The above code just adds them together
The Neil =:)
the neil, you just said it
dtTime := StrToTime(Edit1.Text);
dtDate := MonthCalendar.Date;
dtFinal := TRUNC(dtDate) + (FRAC(dtTime));
meikl
dtTime := StrToTime(Edit1.Text);
dtDate := MonthCalendar.Date;
dtFinal := TRUNC(dtDate) + (FRAC(dtTime));
meikl
Either I got it right or there's someone else out there as confused and lost as I am
The Neil =;)
PS. Thanks for pointing out FRAC - I didn't know about that
The Neil =;)
PS. Thanks for pointing out FRAC - I didn't know about that
U can try this;
strTime:string;
strDate:string;
dtFinal : TDateTime;
strTime := Edit1.Text;
strDate := DateToStr(MonthCalendar.Da
dtFinal := StrToDateTime(strDate + ' ' + strTime);
strTime:string;
strDate:string;
dtFinal : TDateTime;
strTime := Edit1.Text;
strDate := DateToStr(MonthCalendar.Da
dtFinal := StrToDateTime(strDate + ' ' + strTime);
CoreEye: The solution using numeric data types only might be more efficient since the CPU proceeds operations faster on these types than it does on strings - TheNeil's code does the job fine and quickly and he posted his text first, i think he deserved the points, altought it's not much :)
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join & Write a Comment Already a member? Login.
Featured Post
Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Tackle projects and never again get stuck behind a technical roadblock.
Join Now
Try that...