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)));