教えてください。

質問

これらは何を意味しているのでしょうか？
-----------------------------------------------
Dim icon_cnt:icon_cnt=0
Dim set_date
Dim start_date1
Dim end_date1
Do Until rs.EOF
sch2_seq = rs("sch2_seq")&""　　'()のデータＤＢのビューです。
start_date = rs("start_date") &""
end_date = rs("end_date") &""
start_time = rs("start_time") &""
end_time = rs("end_time") &""

category = rs("category") &""
category_nm = rs("category_nm") &""
subject = rs("subject") &""
client_cd = rs("client_cd") &""
icon_sec1 = rs("icon_sec1")&""
company_nm = rs("company_nm") &""

If CLng(start_date) <= CLng(min_date) Then
set_date = min_date
Else
set_date = start_date
End If
If CLng(end_date) >= CLng(max_date) Then
end_date1 =max_date
Else
end_date1 = end_date
End If
※宜しければ詳しく教えてください。

回答No.1

Hayashi_Trek

各命令の文法は判るが処理の意味が判らないものとして説明します。
※文法については参考書を１冊買えば済むことですから。

(1) データベースのレコード群に対して、最後のレコードになるまで以下の処理を繰り返し行う。
※ただし、参照したソースにはDoに対するLoop命令や、次ぎのレコードに移動する命令部分が含まれていない。
(2) レコードから“sch2_seq”“start_date”“end_date”“start_time”“end_time”フィールドを読みこみ、各変数に代入する。
(3) レコードから“category”“category_nm”“subject”“client_cd”“icon_sec1”“company_nm”フィールドを読みこみ、各変数に代入する。
※ただし、参照したソースには宣言部分が見当たらない変数も使用されている。
(4) “set_date”に“start_date”（名前から開始日付と推測される）を代入する。ただし“start_date”が“min_date”より小さい場合は“set_date”に“min_date”を代入する。（これは必要以上に古い日付を除外している）
(5) “end_date1”に“end_date”（名前から終了日付と推測される）を代入する。ただし“end_date”が“max_date”以上の場合は“end_date1”に“max_date”を代入する。（これは必要以上に新しい日付を除外している）