Советы по Delphi
Функция DateSer
Привет, я хочу в качестве совета поделиться функцией DateSer, которую я написал перед этим на VB. Данная функция весьма полезна но, к сожалению, ее нет в Delphi. Применяется она так:
| DecodeDate(Date,y,m,d);NewDate:=DateSer(y-4,m+254,d+1234); |
или приблизительно так....
| function DateSer(y,m,d: Integer): TDateTime;const mj: array[1..12] of Integer=(31,28,31,30,31,30,31,31,30,31,30,31);var add: Integer;begin while(true) do beginy:=y+(m-1) div 12;m:= (m-1) mod 12 +1;if m<=0 then beginInc(m,12);Dec(y);end;if ((y mod 4 = 0) and((y mod 100<>0) or (y mod 400=0)))and (m=2) thenadd:=1 //дополнительный день в февралеelseadd:=0;if (d>0) and (d<=(mj[m]+add)) then break;if d>0 then begin Dec(d,mj[m]+add); Inc(m); endelse begin Inc(d,mj[m]+add); Dec(m); end;end;Result:=EncodeDate(y,m,d);end; |
