DIM contra LOCAL

[HWSW Famulus]

>> From: "Tauri" <elektrolista at pdg.hu>
>>> vb-ben es assemblyben nem igy van.
>>> ami global az global.
>>> 
>> VB-ben biztosan ugy van ahogy Famulus irta! Belul lokalis, kivul
>> globalis... 
> 
> 
> kiprobaltam...
> valoban vb-ben.
> bocsesz

..de letezik a Public kulcsszo is, ha minden kotel szakad.

Most nezd, meg milyen ronda lett a kod minden nev ele egy L betut  irva.
Merugye... VB-ben szoktam osszedobni a kodot a konnyu debug miatt
aztan copy-paste a BASCOM-ba es hagy szoljon...

Function Datumtonap(byval Datum As String) As Long
'datum forma eeee/hh/nn eeee.hh.nn
'futasido ~6900 AVR orajel
'2006.02.01. >> 2453768
'2007.02.01. >> 2454133

'A Julian nap a  -4712.01.01 -tol a Datum-ig eltelt napok szama.

'jd = ( 1461 * ( y + 4800 + ( m - 14 ) / 12 ) ) / 4 +
'      ( 367 * ( m - 2 - 12 * ( ( m - 14 ) / 12 ) ) ) / 12 -
'      ( 3 * ( ( y + 4900 + ( m - 14 ) / 12 ) / 100 ) ) / 4 +
'      d - 32075

   Local Lev As Integer
   Local Lho As Integer
   Local Lnap As Integer
   Local Lq As Integer
   Local Lp As Long
   Local Lj As Long
   Local Lmystr As String * 4

   Lmystr = Left(datum , 4) : Lev = Val(lmystr)
   Lmystr = Mid(datum , 6 , 2) : Lho = Val(lmystr)
   Lmystr = Right(datum , 2) : Lnap = Val(lmystr)

   Lq = Lho -14 : Lq = Lq \ 12
   Lp = Lev + Lq : Lp = Lp + 4800
   Lq = Lq * 12
   Lho = Lho - 2 : Lho = Lho - Lq
   Lnap = Lnap - 32075

   Lj = 1461 * Lp : Lj = Lj \ 4
   Datumtonap = Lj

   Lj = 367 * Lho : Lj = Lj \ 12
   Datumtonap = Datumtonap + Lj

   Lj = Lp + 100 : Lj = Lj \ 100 : Lj = 3 * Lj : Lj = Lj \ 4
   Datumtonap = Datumtonap - Lj

   Datumtonap = Datumtonap + Lnap


End Function