Lines Matching refs:MonthNum
153 Function MonthNum(St: String):Word; in MonthNum() function
709 Function MonthNum(St: String):Word; in MonthNum() function
712 MonthNum := 0;
713 If St = 'JAN' Then MonthNum := 01;
714 If St = 'FEB' Then MonthNum := 02;
715 If St = 'MAR' Then MonthNum := 03;
716 If St = 'APR' Then MonthNum := 04;
717 If St = 'MAY' Then MonthNum := 05;
718 If St = 'JUN' Then MonthNum := 06;
719 If St = 'JUL' Then MonthNum := 07;
720 If St = 'AUG' Then MonthNum := 08;
721 If St = 'SEP' Then MonthNum := 09;
722 If St = 'OCT' Then MonthNum := 10;
723 If St = 'NOV' Then MonthNum := 11;
724 If St = 'DEC' Then MonthNum := 12;
744 TmpStr := Long2Str(MonthNum(Copy(MsgDt,4,3)));
752 TmpStr := Long2Str(MonthNum(Copy(MsgDt,4,3)));
763 TmpStr := Long2Str(MonthNum(Copy(MsgDT,8,3)));