From: rwalpole@blueyonder.co.uk   
      
   "Terry"  wrote in message   
   news:1106222107.ead5bf9368f49d6833298cede41b531c@teranews...   
   >I have a text file with an unknown number of entries in it.  The data   
   > in the text file is in this format:   
   >   
   > 22.9,"June",2004   
   > 6.7,"July",2003   
   > 18.3,"June",2004   
   >   
   >   
   > dblIndex, strMonth, intYear   
   >   
   > How do I sort these by date (from newest to oldest) and if the records   
   > have the same date, from lowest dblIndex to highest?   
   >   
   > Any help with this problem would be greatly appreciated.   
      
      
   I had a similar problem   
   my approach was to calculate the days from a arbiatary date assuming yours   
   dates are in a List (List)   
      
   For a = 0 To List.ListCount - 1   
       dte = List.List(a)   
       numberofdays = DateDiff("d", 1 / 1 / 1900, dte)   
       temp = Str(numberof days)   
   'To be sure that each day length is the same eg. 45, 4400 become 000045,   
   004400 for correct sort   
          Do Until Len(temp) > 6   
           temp = temp & "0"   
       Loop   
   'Put into a sorted list (lList1)   
       List1.List(a) = temp & "|"&  List.List(a)   
    ' | to work in the split function to retrieve date part   
   'You can then retrieve them forwards or backwards using For a= (Start or   
   End) Step (1 or -1)   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)