| DayName2DOW Function |
Unit
QESBPCSDateTime
Declaration
Function DayName2DOW(const DayName: string): Byte;
Description
So for English Names, 'T' would return 3 for 'Tuesday'.
| Parameters |
| DayName | Name of the Day of Week to search for. |
Returns
the DOW Number, 1 through 7 - 0 implies not found. 1 is Sunday.
Category
Date/Time Conversion RoutinesImplementation
function DayName2DOW (const DayName: string): Byte;
var
I: Integer;
Len: Integer;
DN: string;
begin
Result := 0;
if DayName = '' then
Exit;
Len := Length (DayName);
DN := AnsiUpperCase (DayName);
for I := 1 to 7 do
begin
if AnsiUpperCase (LeftStr (ShortDayNames [I], Len)) = DN then
begin
Result := I;
Exit;
end;
end;
for I := 1 to 7 do
begin
if AnsiUpperCase (LeftStr (LongDayNames [I], Len)) = DN then
begin
Result := I;
Exit;
end;
end;
End; |
|
|