Dim Ys, Ms, Ds
 
 Sub PutDates
    
	CalcDate 1  
    document.mainForm.inday.options(Ds-1).selected=true 
	document.mainForm.inmonth.options(Ms-1).selected=true 
	document.mainForm.inyear.options(Ys).selected=true
	
	CalcDate 2
	document.mainForm.outday.options(Ds-1).selected=true 
	document.mainForm.outmonth.options(Ms-1).selected=true 
	document.mainForm.outyear.options(Ys).selected=true
	
 End Sub
	
  Sub CalcDate ( DAdd )
  	
	D = Array (20, 19, 20, 20, 21, 21, 22, 22, 22, 22, 21, 21)
    P = Array (11, 12, 10, 12, 11, 11, 10, 10, 10, 9, 10, 10)
    U = 0 
    Rp = 0
   
	Days = Array (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,28,29,30,31)
   
    
	myDay = Day(DateAdd("d",DAdd,Date))
    myMonth = Month(DateAdd("d",1,Date))
    myYear = Year(DateAdd("d",1,Date))
    If (myYear Mod 4) = 0 Then U = 1
    If ((myYear Mod 100) = 0 AND (myYear Mod 400) <> 0) Then U = 0
    Ys = myYear - 622
    X = Ys - 22
    X = X Mod 33
    If ((X Mod 4) = 0 AND X <> 32) Then Rp = 1
    I = Not(Rp-2) + NOT(U - 2) * 2
    X = 0
    If (I = 0 AND myMonth = 3) Then X = 1
    If I = 0 Then I = 3
    Ms = (9 + myMonth) Mod 13
    If Ms < 10 Then Ms = Ms + 1
    D1 = D(myMonth - 1)
    If (I = 1 AND myMonth > 2) Then D1 = D1 - 1
    If (I = 2 AND myMonth < 3) then D1 = D1 - 1
    P1 = P(myMonth - 1)
    If (I = 1 AND myMonth > 2) Then P1 = P1 + 1
    If (I = 2 AND myMonth < 4) Then P1 = P1 + 1
    If (myDay > 0 AND myDay <= D1) Then
    Ds = P1 + myDay + X - 1
    X = 1
    Else
    Ds = myDay - D1
    Ms = Ms + 1
    If Ms = 13 Then Ms = 1
    X = 2
    End If
    If ((myMonth = 3 AND X = 2) OR myMonth > 3) Then Ys = Ys + 1
	
	Ys = Ys mod 1382
		
    
	' session(baseDay) = Ms
	' session(baseMonth) = Ds	
 End Sub
 
  
 
 Sub ResetPForm
     document.mainform.reset
	 PutDates
 End Sub