Yes but there is an error on converting date before 12/30/1899: it add 1 day.
For example 27.09.1389 converts to
28.09.1389. For date after
12/30/1899 there is no problem. I am using following code:
var s, S1: string; dt: TDateTime;
S1 := ListItem.SubItems[1]; S1 := trim(S1);
dt := StrtoDate(s) + StrToTime(S1);
s := FormatDateTime('dd.mm.yyyy hh.nn.ss', dt);
with Form1 do Begin
year.Text := copy(s, 7, 4);
month.Text := copy(s, 4, 2);
day.Text := copy(s, 1, 2);
Or something wrong in my code?
Regards,
Kamen
-------- Оригинално писмо --------
От: Michael Van Canneyt
Относно: Re: [Lazarus] Date value 0
До: Lazarus mailing list
Изпратено на: Сряда, 2015, Май 27 10:55:23 EEST
On Wed, 27 May 2015, Kamen Ketev wrote:
>
> How can I use
TDateTime for date before
"12/30/1899 12:00 am". I need it for astronomical calculations. Is it possible
to be add flag or something else to ignore this border?
You can use TDateTime for this, there is no problem with values < 0.
Michael.
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
