oroknaptar

[VFX]

Hali!

VF wrote:
> 
> Hi!
> 
> Mar volt tema tobbszor is, de most nekem is kene.
> A het napjat kene megallapitani a datumbol.
> Eleg mondjuk 2005..2015 intervallumban.
> Hogy a legegyszerubb?

Pascal:

DM : Array[1..13] of Word =
(0,31,59,90,120,151,181,212,243,273,304,334,365);


Procedure DATE2DAY(YR, MO, DA: LongWord; Var N: LongWord);
Begin
N := 365 * (YR - 1970) + (YR - 1969) shr 2 + DM[MO] + DA + Byte((MO > 2)
and (YR and 3 = 0)) - 1;
End;


Ez mondjuk 1970.01.01-tol szamol igy meg kell nezni, hogy az milyen
napra esett, a tobbi mint elozoleg irtam. En a DSPs cuccaimban ezt a
formulat hasznalom, csak 0.1s-re lebontva.

UDV. VFX.
http://www.vfx.hu