form1.frm

将气象站观测的20-08,08-20时数据转换为08-08时气象气象数据

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   1680
      TabIndex        =   0
      Top             =   720
      Width           =   1335
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Open App.Path + "\r.csv" For Input As #1
Open App.Path + "\rain.csv" For Output As #2
Line Input #1, aa
a = 58443
b = 32766
n = "1969"
y = "12"
r = "31"
Do While Not EOF(1)
    rr = Split(aa, ",")

If Left(aa, 5) = a And CDate(CStr(rr(1)) + "-" + CStr(rr(2)) + "-" + CStr(rr(3))) - CDate(n + "-" + y + "-" + r) = 1 Then
Else
    b = 32766
End If
    r20_08 = rr(4)
    r08_20 = rr(5)
    If r08_20 >= 32700 And r08_20 < 32766 Then r08_20 = 0
    If r20_08 >= 32700 And r20_08 < 32766 Then r20_08 = 0
    If r08_20 >= 32000 And r08_20 < 32766 Then r08_20 = r08_20 - 32000
    If r20_08 >= 32000 And r20_08 < 32766 Then r20_08 = r20_08 - 32000
    If r08_20 >= 31000 And r08_20 < 32766 Then r08_20 = r08_20 - 31000
    If r20_08 >= 31000 And r20_08 < 32766 Then r20_08 = r20_08 - 31000
    If r08_20 >= 30000 And r08_20 < 32766 Then r08_20 = r08_20 - 30000
    If r20_08 >= 30000 And r20_08 < 32766 Then r20_08 = r20_08 - 30000
    r08_08 = b + r20_08
    If b = 32766 Or r20_08 = 32766 Then r08_08 = 32766
    b = r08_20
    Print #2, rr(0); ","; rr(1); ","; rr(2); ","; rr(3); ","; rr(4); ","; rr(5); ","; r08_08; ","; rr(6)
Loop
Close

End Sub