Difference of dates in years

Path	csiph.com!newsfeed.hal-mli.net!feeder3.hal-mli.net!newsfeed.hal-mli.net!feeder1.hal-mli.net!news.albasani.net!.POSTED!not-for-mail
From	"Helge Haensel" <dj1wm@nurfuerspam.de>
Newsgroups	comp.lang.basic.misc
Subject	Difference of dates in years
Date	Fri, 18 May 2012 17:23:34 +0200
Organization	albasani.net
Lines	14
Message-ID	<op.weifpkbrsjedh2@w7-pc> (permalink)
Mime-Version	1.0
Content-Type	text/plain; charset=iso-8859-15; format=flowed; delsp=yes
Content-Transfer-Encoding	7bit
X-Trace	news.albasani.net fStPEkwLCWkiDRQiVjuJAOorR1E6pqHjDO7Dgopvps/Fyhm9wjrAjYae4n69nMsHSeq8SrNk/XxkDAZeWHmkzll+4SCtwwgsjUzkr2aLmSCOI1yFrRu+Mec30lZlPLGc
NNTP-Posting-Date	Fri, 18 May 2012 15:23:39 +0000 (UTC)
Injection-Info	news.albasani.net; logging-data="z1uOuTfk31rE6xu+2UoxJ2G52lGvcqfkr96EV2W54XG8Q7GGG/R2r9o9hIQeMSRKvy8AzTeQxSZ3f7S6OdGUQB9KMB32ODTkdY7eoxBcVoYd/Z2oRHPpNwuBMIScDTuq"; mail-complaints-to="abuse@albasani.net"
User-Agent	Opera Mail/11.64 (Win32)
Cancel-Lock	sha1:Voly0STM44WwPdkGNY+MEKfpSSc=
Xref	csiph.com comp.lang.basic.misc:274

Show key headers only | View raw

Hallo NG!
I am still using VB5E under W7/64. It works within limits.
I calculate a difference in years by:

Dim j as Long, Dim OtherDate as String
j = CLng(Date - (CDate(OtherDate))) / 365

This works so far but surely isn't correct in all cases due to Feb 29.
Do you know a correct calculation?
Thanks!

Vy 73! Helge
-- 
Helge, DJ1WM

Back to comp.lang.basic.misc | Previous | Next — Next in thread | Find similar

Thread

Difference of dates in years "Helge Haensel" <dj1wm@nurfuerspam.de> - 2012-05-18 17:23 +0200
  Re: Difference of dates in years ralph <nt_consulting64@yahoo.com> - 2012-05-18 11:30 -0500
    Re: Difference of dates in years Todd Vargo <tlvargo@sbcglobal.netz> - 2012-05-18 18:38 -0400
    Re: Difference of dates in years "Helge Haensel" <dj1wm@nurfuerspam.de> - 2012-05-19 10:17 +0200

csiph-web