diff options
| author | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-10-17 14:01:00 +0000 |
|---|---|---|
| committer | michael <michael@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-10-17 14:01:00 +0000 |
| commit | c5f559290a8827eab138ec33d7efd6e65ea32fbc (patch) | |
| tree | 9e8c94c72bfa0be4f50ab9c8dfb7b4949e33237f /packages/pxlib/examples | |
| parent | db82b3dad54e6a9602dcaeb03eaad6ec6a67f889 (diff) | |
| download | fpc-c5f559290a8827eab138ec33d7efd6e65ea32fbc.tar.gz | |
* Removed px_sdntogregorian for windows
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@13896 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/pxlib/examples')
| -rw-r--r-- | packages/pxlib/examples/ppxview.pp | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/packages/pxlib/examples/ppxview.pp b/packages/pxlib/examples/ppxview.pp index 944a7e13e0..f7d577f32d 100644 --- a/packages/pxlib/examples/ppxview.pp +++ b/packages/pxlib/examples/ppxview.pp @@ -81,8 +81,12 @@ begin pxfDate: if PX_get_data_long(Doc,fbuf,flen,@longv)>0 then begin + {$ifdef windows} + S:=DateToStr(Longv+1721425-2415019); + {$else} PX_SdnToGregorian(longv+1721425,@Y,@M,@D); S:=DateToStr(EncodeDate(Y,M,D)); + {$endif} end; pxfShort: if PX_get_data_short(Doc,fbuf, flen, @D)>0 then |