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

投稿日： 2002/12/04(Wed) 12:15
投稿者： アンパンマン
Ｅメール：
ＵＲＬ：
タイトル： 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"になって、
文字列同士の比較になったので、多分速くなったんだと思います。

もしこの他に、何かいい方法があれば、是非教えて下さい。
よろしくお願いします。

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

- Web Forum -