Re: ada calendar

[Wes Groleau <groleau@freeshell.org>]

>>> You can do it with Ada.Calendar:
>>>
>>>  Your_Function (Time_Of
>>>    (Year_Number'Value (S (7 .. 10)),
>>>     Month_Number'Value (S (4 .. 5)),
>>>     Day_Number'Value (S (1 .. 2))));
>>>
>>> where S is your string containing "27/06/2003" or similar.
>>
>> There is no guarantee that S start to 1. It should be using S'First as
>> offset to compute all slices.
> 
> True, but there's an alternative technique, and possibly a better one in 
> this kind of case, using implicit array conversion:
> 
>    subtype Date_String is String(1..10);
>    X: constant Date_String := S; -- checks length and slides if necessary
>    ...
>    if X(3) /= '/' or X(6) /= '/' then raise ...; end if;

Or one could use predefined string operations
to split the string on '/' marks/

Or Index to find the '/' marks.

These would add robustness--leading zeroes and
extra spaces would be neither required nor would
they mess it up.

-- 
Wes Groleau
   "To know what you prefer, instead of humbly saying
    Amen to what the world tells you you should prefer,
    is to have kept your soul alive."
                          -- Robert Louis Stevenson