[Lazarus] date function db_date();

Larry Dalton larrydalton71 at gmail.com
Wed Jul 6 19:34:44 CEST 2016


Apparently that is the problem. 

Sent from my iPhone

> On Jul 6, 2016, at 10:43, John Landmesser <jmlandmesser at gmx.de> wrote:
> 
>> On 05.07.2016 19:20, Larry Dalton wrote:
>> I use the following function to read a date from a Libre Office dbase file. The field is stored as
>> a string, ie '04/08/2016'.
>> 
>> function db_date(const dog_base:tdbf;const t_field:string):tdatetime;
>> var test_date:tdatetime;
>> test_bool:boolean;
>> test_string:string;
>> begin {starts function db_date(const dog_base:tdbf;const t_field:string):tdatetime;}
>> test_bool:=dog_base.FieldByName(t_field).Value<>null;
>> if test_bool then test_date:=dog_base.FieldByName(t_field).AsDateTime
>> else test_date:=now;
>> result:=test_date;
>> end; {ends function db_date(const dog_base:tdbf;const t_field:string):tdatetime;}
>> I am running lazarus 1.6, on both Windows 8 and Linux Mint 17. The above function works fine on the Windows 8 box, but on the Linux Mint box, I get the following error: “04/08/2016” is not a valid date format. Why does it work on Windows but not Linux? How can I rewrite it to work on both?
> 
> 
> I think thats due to "locales" defined the right way on Windows, but differs on Linux.
> 
> Have a look at:
> 
> http://www.freepascal.org/docs-html/rtl/sysutils/dateseparator.html
> 
> -- 
> _______________________________________________
> Lazarus mailing list
> Lazarus at lists.lazarus-ide.org
> http://lists.lazarus-ide.org/listinfo/lazarus
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20160706/24e9aeb6/attachment.html>


More information about the Lazarus mailing list