Gunter, I usually store dates in yyyymmdd format, and I have
functions to convert back and forth from system date.
I'm assuming that the german system date is the same as the uk : dd/
mm/yy
You can sort a list by the result of a function.
My function for converting a dd/mm/yy date to yyyymmdd is :
function SSDateToDD aDate
if "/" is not in aDate then return aDate
set the itemDelimiter to "/"
put item 1 of aDate into dd
put item 2 of aDate into mm
put item 3 of aDate into yy
if length(dd) < 2 then put "0" before dd
if length(mm) < 2 then put "0" before mm
if length(yy) < 4 then
put char -2 to -1 of yy into yy
if yy > 50 then
put "19" before yy
else
put "20" before yy
end if
end if
return yy & mm & dd
end SSDateToDD
so you can sort a list like so:
sort lines of myList numeric by SSDateToDD(item 1 of each) --
assuming the date is the first item, of course
Hope this helps,
Mark
ps. your English is much better than my German, so apologies...
On 29 Nov 2005, at 14:34, gaich software service wrote:
Hello all of this very helpful list,
I am a consultant and supporter of a well known ERP-Software in
germany.
Since 6 months I am programming tools for that ERP-System and I do
it with revolution.
I think this was the best idea I've ever had.
My customers are very happy to get the tools they need in a very
short time and for a low price.
Until now I wasn't an active user of this list, because my english
isn't very good, as you see.
I have a question about date sort in a list. Because my customers
are german, they want to see the german date format (system date).
Is there a way to sort a list by an item that contains a system date?
I wrote a little function for this problem:
function sortContainerBySystemDate pContainer, pItemToSort, pSortOrder
local nOL
local nOI
local x
if (pContainer is empty) or (pItemToSort is not a number)
or (pItemToSort < 1) then
put empty into sortedContainer
return sortedContainer
exit sortContainerBySystemDate
end if
set the itemDel to tab
put the number of lines of pContainer into nOL
put the number of items of line 1 of pContainer into nOI
if nOL < 2 or nOI < pItemToSort then
put pContainer into sortedContainer
return sortedContainer
exit sortContainerBySystemDate
end if
repeat for each line x in pContainer
convert item pItemToSort of x from system date to seconds
end repeat
if pSortOrder = 1 then
sort lines of pContainer descending numeric by item
pItemToSort of each
else
sort lines of pContainer ascending numeric by item
pItemToSort of each
end if
repeat for each line x in pContainer
convert item pItemToSort of x from seconds to system date
end repeat
put pContainer into sortedContainer
return sortedContainer
end sortContainerBySystemDate
It works for me. But may be there is a better and shorter way to do
that!?
Another Problem:
Because my costumers are working on windows machines, they have
very different Versions (98,2000,XP).
I'm programming on a windows XP with Classic Style for Windows and
gadgets.
I did a tool that contains sliders and it works fine.
I installed it on a customers machine with XP and XP Style. I was
scared -- the knop of the slider was not there and there was no way
to do anything with the slider.
When I turned the Style to Classic on that machine, the knob was
there again. But the employee wants to have the XP Style, hmmm.
Is this a well known effect and is there a possible solution?
Puuhhh, it takes longer time to write this little english text then
to programm a little tool with Revolution :-)
Best,
Günter
----------------------------------------------------------------------
--
*gaich software service Günter Gaich
*
*fon: +49 (0) 6452-91101-55
fax: +49 (0) 6452-91101-57
mobil: +49 (0) 172 970 26 51
[EMAIL PROTECTED]
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your
subscription preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
