投稿日 | : 2002/12/04(Wed) 12:15 |
投稿者 | : アンパンマン |
Eメール | : |
URL | : |
タイトル | : Re^6: 日付の比較 |
> #本筋からは外れています。
>
> いったいどのようなコードであったのか、非常に興味深く、出来れば、
> どのようにして改善したか、フィードバックの意味もこめて開示して欲しい
> と望みます。
返信が遅れて、スミマセン。
前よりは、速くなったので、とりあえずこれで行っています。
"2002/01/01"は何もせず、"2002/1/1"をSplit関数を使い
比較しました。
Dim 比較日付 as String
Dim 日付() as String
Dim j as Integer
日付 = Split("2002/1/1", "/", -1)
For j = 1 To 2
Select Case 日付(j)
Case 1
日付(j) = "01"
Case 2
日付(j) = "02"
Case 3
日付(j) = "03"
Case 4
日付(j) = "04"
Case 5
日付(j) = "05"
Case 6
日付(j) = "06"
Case 7
日付(j) = "07"
Case 8
日付(j) = "08"
Case 9
日付(j) = "09"
End Select
Next j
比較日付 = 日付(0) & "/" & 日付(1) & "/" & 日付(2)
これで、"2002/01/01"="2002/01/01"になって、
文字列同士の比較になったので、多分速くなったんだと思います。
もしこの他に、何かいい方法があれば、是非教えて下さい。
よろしくお願いします。