Re: Anzahl der Tage in einem Jahr

From: Hans-Peter Grözinger (hanspetergr_at_gmx.de)
Date: 01/24/05 

Date: Mon, 24 Jan 2005 12:02:33 +0100

Hallo Simon !

> weiß jemand, wie ich es schaffe, das ich eine Jahreszahl eingebe,
> und VFP (version 7) mir dann die Tage zurückgibt, die dieses Jahr
> hat, z.b. 2005 würde dann 365 Tage zurückgeben.

? IIF( IsLeapYear( 2005 ), 365, 366 )

FUNCTION IsLeapYear
*******************
    LPARAMETER tnYear
RETURN( EMPTY( CTOD( "29.02." + STR( tnYear, 4 ) ) ) ) 

-- 
Hans-Peter Grözinger
TOFU ist gedankenlose Resourcenverschwendung. Siehe http://got.to/quote
http://support.microsoft.com/default.aspx?scid=fh;DE;NGNetikette