by Sinead Cheevers (1 Submission)
Category: Files/File Controls/Input/Output
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 14th February 2001
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Correct results time vale by-1hr for specific days
API Declarations
13,7,2000,107,2356,.00838,-.02515,-.04107,-.05491,20.27,8.8,99,99,0,991,14.07,11.53,11.84,0,5.366
13,7,2000,107,2358,.00838,-.02515,-.04191,-.06412,20.27,8.78,99,99,0,991,14.07,11.53,11.84,0,5.37
13,7,2000,107,2400,.00838,-.02515,-.03604,-.06161,20.27,8.74,99,99,0,991,14.05,11.53,11.84,0,5.382
13,7,2000,109,2,.00838,-.02515,-.0394,-.05868,20.27,7.21,99,99,0,995,12.56,10.34,9.82,0,6.232
13,7,2000,109,4,.00838,-.02515,-.04066,-.06078,20.27,7.21,99,99,0,995,12.56,10.34,9.8,0,6.224
13,7,2000,109,6,.00838,-.02515,-.03814,-.05994,20.28,7.21,99,99,0,995,12.54,10.34,9.8,0,6.236
13,7,2000,109,8,.00838,-.02515,-.0373,-.0591,20.27,7.21,99,99,0,995,12.54,10.34,9.78,0,6.232
13,7,2000,109,2354,.00838,-.02515,-.04149,-.06161,20.27,9.54,99,99,0,1001,14.78,11.88,12.58,0,5.226
13,7,2000,109,2356,.00838,-.02515,-.04149,-.05616,20.26,9.42,99,99,0,1001,14.75,11.88,12.56,0,5.25
13,7,2000,109,2358,.00838,-.02514,-.04191,-.05909,20.26,9.34,99,99,0,1001,14.72,11.88,12.54,0,5.278
13,7,2000,109,2400,.00838,-.02514,-.04107,-.06118,20.26,9.34,99,99,0,1001,14.67,11.88,12.49,0,5.298
13,7,2000,110,2,.00838,-.02514,-.04065,-.06076,20.27,9.31,99,99,0,1001,14.64,11.88,12.45,0,5.314
13,7,2000,110,4,.00838,-.02514,-.03939,-.05951,20.27,9.29,99,99,0,1001,14.62,11.88,12.43,0,5.334
13,7,2000,110,6,.00838,-.02514,-.04065,-.05406,20.27,9.29,99,99,0,1001,14.59,11.88,12.38,0,5.334
13,7,2000,110,8,.00838,-.02514,-.04023,-.05951,20.27,9.
VBcoders
Private Sub CmdButton_Click()
Dim a As String
Dim b As Integer
Dim c As Integer
str1 = a
b = Mid(a, 4, 1)
c = Mid(a, 5, 1)
Open "a:\resul lev1.txt" For Input As #1
Input #1, a
Input #1, b
Input #1, c
If Val(c >= 109) And Val(c <= 135) Then
b = b - 100
End If
Close #1
Open "a:\answer.txt" For Output As #2
Print #2, a
End Sub
Private Sub Cmdbutton2_Click()
Dim a As String
Dim b As Integer
Dim c As Integer
str1=a
b = Mid(a, 4, 1)
c = Mid(a, 5, 1)
Open "a:\resul lev1.txt" For Input As #3
Input #3, a
Input #3, b
Input #3, c
If Val(c >= 109) And Val(c <= 135) And (b < 100) Then
c = c -1
End If
Close #3
Open "a:\answer.txt" For Output As #4
Print #4, a
End Sub
