CE,
Amen! I agree; start slowly and tell me what I am looking for and where
and then what I should see.
Howland Davis
-----Original Message-----
From: CE WOOD <[email protected]>
To: LegacyUserGroup <[email protected]>
Sent: Tue, Apr 30, 2013 2:51 pm
Subject: RE: [LegacyUG] Re: Sorting Events
Everything in your posting is Greek to me. What are you talking about? I am
not a programmer.
CE
From: [email protected]
Date: Tue, 30 Apr 2013 11:32:55 -0700
Subject: Re: [LegacyUG] Re: Sorting Events
To: [email protected]
CE,
Legacy has always had a 'sort date' field.
It is hidden from view but derived from the data in the date field you see and
can edit.
The following is an old copy (ver 6) of DATES, I doubt anything has changed;
--------------------------------------------------------------------------------------
'Format of StoreDate
'pbddmmyyyyddmmyyyy
'p = prefix
' If the Len(StoreDate) > 1
' :=bad date, 0=normal,1=abt, 2=cir, 3=bef, 4=aft, 5=bet, 6=bc,
7=ad, 8=WFT Est
' g=est, h=cal, F=from, T=to, M=to between dates, s=banns, t=lic
' b=british quarter dates (Mar Q yyyy, Jun Q yyyy, Sep Q yyyy,
Dec Q yyyy)
' <=date displayed with brackets around it...an estimated date
<12 Dec 1800>
' [=a private date used only for sorting purposes [[12 Dec 1800]]
' ?=a date with a question mark after it 12 Dec 1800 ?
' |=two dates with "or" between them "12 Dec 1888 or 13 Nov
1889" or "17 Feb 1718 or 1719"
'
' If the Len(StoreDate) = 1
' ?=unk, a=dead, b=deceased, c=child, d=infant, e=stillborn,
f=young,
' g=Submitted, h=Cleared, i=uncleared, j=completed, k=cancelled,
l=bic, m=dns,
' n=dns/can, o=see notes, p=pre-1970, q=done, r=private, s=banns,
t=lic,
' u=not married, v=never married, ?=unknown
'b = bc flag
'Also, if the date is partially recognizable so that we can get a sort date
out of it, we put the
' pieces we recognize into the ddmmyyyyddmmyyyy slots, put a colon at the
beginning prefix position
' and then put a backslash (\) in the 19th position, followed by the date
entered by the user.
' So, if a date starts with a colon but has \ in position 19 then display
the Mid$(TheDate, 20)
' "Close to 31 Jan 1961" becomes :03101196100000000\Close to 31 Jan 1961
' This way we can act like the date is OK and display it as the user
entered it.
********************************************
*************** Sort Dates *****************
********************************************
'Sort Date (long int) Used to display sorted list by date
if date is blank then -99999999 (sorts before any other date)
otherwise the number is made up of the yyyymmdd digits
(25 Dec 2000 would be 20001225)
BC are negative, AD are positive (1 Jan 400 BC would be -40000101)
If no date, the number is -99999999.
If there is a year but no month and no day then
If there is a "Before" modifier then
the mmdd is set to "0101"
(Bef 1834 would be 18340101)
ElseIf there is an "After" modifier then
the mmdd is set to "1231"
(Aft 1834 would be 18341231)
Else
mmdd is set to "0000" for no month and no day
(1834 would be 18340000)
End If
End If
If no day then
If there is a "Before" modifier then
the dd is set to "01"
(Bef Dec 1678 would be 16781201)
ElseIf there is an "After" modifier then
the dd is set to the last day of the month
(Aft Feb 1678 would be 16780228)
Else
dd is set to "00" no day
(Dec 1678 would be 16781200)
End If
--------------------------------------------------------------------
hope that helps
Jay
Legacy User Group guidelines:
http://www.LegacyFamilyTree.com/Etiquette.asp
Archived messages after Nov. 21 2009:
http://www.mail-archive.com/[email protected]/
Archived messages from old mail server - before Nov. 21 2009:
http://www.mail-archive.com/[email protected]/
Online technical support: http://www.LegacyFamilyTree.com/Help.asp
Follow Legacy on Facebook (http://www.facebook.com/LegacyFamilyTree) and on our
blog (http://news.LegacyFamilyTree.com).
To unsubscribe: http://www.LegacyFamilyTree.com/LegacyLists.asp
