mStrMonth:=copy(lstarttime, 6, 1);
if copy(lstarttime, 6, 1)='0' then
begin
if copy(lstarttime, 7, 1)='1' then
begin
mStrMonth:=IntToStr( StrToInt(copy(lstarttime, 1, 4))- 1 )+'-12'
end
else
begin
mStrMonth:=copy(lstarttime, 1, 6)+inttostr(strtoint(copy(lstarttime, 7, 1))-1)