Traduction en VB6

**Clo72** · 11/11/2009, 15h05

Bonjour à tous,

Quelqu'un saurait-il traduire ceci :

Conversion jour grégorien en jour julien

Code python :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#!/usr/bin/python
import os
import sys
import math
 
def julday(mm,id,iyyy,tm=0.0):
    mm=mm+1
    if mm>2:
	jy=iyyy
	jm=mm+1
    else:
	jy=iyyy-1
	jm=mm+13
 
    jul=int(math.floor(365.25*jy)+
    	math.floor(30.6001*jm)+(id+1720995.0+tm))
    ja=int(0.01*jy)
    jul=int(jul+(2-ja+(int(0.25*ja))))
    tww=(jul)%7
    return (jul,tww)

Et ceci :

Conversion jour julien en jour grégorien

Code python :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
def calday(jday): # Julian period day.
    """Arguments:  jday is a float as returned from julday()
    Return value:  month, day, year and day of week as integers, in the Gregorian
    proleptic calendar only."""
    jn=jday
 
    jalpha=int(((jn-1867216)-0.25)/36524.25)
    ja=int(jn+1+jalpha-(int((0.25*jalpha))))
    jb=int(ja+1524)
    jc=int(6680.0+((jb-2439870.0)-122.1)/365.25)
    jd=int(365.0*jc+(0.25*jc))
    je=int((jb-jd)/30.6001)
 
    mymday=(jb-jd-(int(30.6001*je)))
    while mymday<0:
        mymday=mymday+7
    mymon=je-1
    if(mymon>12):
        mymon=mymon-12
    while mymon<0:
        mymon=mymon+12
    myyear=jc-4715
    if(mymon>2):
        myyear=myyear-1
    mywday=(jn)%7
    mymon=mymon-1
    return mymon,mymday,myyear,mywday