VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2002/12/03(Tue) 13:34
投稿者： アンパンマン
Ｅメール：
ＵＲＬ：
タイトル： Re^2: 日付の比較

早速のお返事ありがとうございます。

２つのファイルを開いて、その中身を比較させています。

ファイルＡには、
2002/01/01,5,6,7,8
2002/01/02,9,10,11,12
　　・
　　・
　　・
ファイルＢには、
2002/1/1,6,9,7,5
200201/2,45,87,96,12
　　・
　　・
　　・
こんな具合に入っています。

このファイル二つを開いて比較させています。
Do Until EOF(2）

Line Input #1,ＡファイルＤＡＴＡ
ファイルＡ = Split(ＡファイルＤＡＴＡ , "," , -1)

Line Input #2,ＢファイルＤＡＴＡ
ファイルＢ = Split(ＢファイルＤＡＴＡ , "," , -1)

IF CDate(ファイルＡ(0)) = CDate(ファイルＢ(0)) Then
　　　・
　　　・
　　　・
　　Close #2
　　Exit Do
End IF

IF文の中に入ってくる時間が２秒ぐらいかかってしまいます。
一応こんな感じなんですが、わかってもらえたでしょうか？

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -