Le Friday 27 June 2008 12:33:15 Stefan Miefert, vous avez écrit :
> Hellor,
>
> thanks. I need the last day of a month:) My post is a little bit
> inaccurately:)
jrs = 01/04/08 ( french date format )
lastday = finmois(jrs)
PUBLIC FUNCTION finmois(Jrs AS Date) AS Integer
DIM Jrs1 AS Integer
IF Month(Jrs) < 12 THEN
Jrs1 = Day(Date(Year(Jrs), Month(Jrs) + 1, 1) - 1)
ELSE
Jrs1 = Day(Date(Year(Jrs) + 1, 1, 1) - 1)
ENDIF
RETURN Jrs1
END
Jacky
-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://sourceforge.net/services/buy/index.php_______________________________________________
Gambas-user mailing list
Gambas-user@...
https://lists.sourceforge.net/lists/listinfo/gambas-user