0

エクセル VBA 時間抽出についての質問 例として、以下の様な変数を用意しました。

Type Dat
'日時データ｢YYYYMMDDHHMM｣
DayTime As String
'連番｢1～60000程度｣
Id As Long
End Type

OrgDat(1 to 60000) As Dat '基データ格納
PickupId(1 to 60000) As Long'抽出Id格納
StrTime as String'抽出開始日時格納
EndTime as String'抽出終了日時格納
Interval as String'抽出間隔（分単位）

OrgDat(n).DayTimeには日付時刻データが2010/01/01 00：00の場合、｢201001010000｣というような固定長の文字列のデータとして格納されているとします。
OrgDat(n).Idには1～60000程度までの連番データが格納されているとします。
OrgDat(n).DayTime及びOrgDat(n).Idは昇順で格納されています。
OrgDat(n)のIdは連番ですが、nとは一致しないものとしてください。

OrgDat(n).DayTimeには2009/01/01 00:00 ～ 2009/12/31 23：59までのデータがランダムな時間間隔（最小1分間隔～最大数週間の間隔）で入力されていたとします。

任意の開始時刻(StrTime)、終了時刻(EndTime)、時間間隔(Interval)を与えて、OrgDat(n).DayTimeに一致するOrgDat(n).IdをPickupId(n)に抽出したいと考えています。

例）
基データ
OrgDat(n),DayTime,Id
OrgDat(1),200901010000,100
OrgDat(2),200901010100,101
OrgDat(3),200901010150,102
OrgDat(4),200901010300,103
OrgDat(5),200901010401,104
OrgDat(6),200901010500,105
OrgDat(7),200901010530,106
OrgDat(8),200901010600,107
・・・・・・・・・・・・・・

抽出条件
StrTime="200901010000"
EndTime="200912310000"
Interval="60"'分単位で設定できるようにしたい

抽出結果
PickupId(1),100
PickupId(2),101
PickupId(3),103
PickupId(4),105
・・・・・・・・・・・・・・

確実に存在する日時を探す場合は問題ないのですが、日時が存在しない場合の判定条件をどう設定してよいのかがわかりません。
参考となる考え方、サンプルコード、URL等と回答願えないでしょうか。
よろしくお願いします。

質問者が選んだベストソリューション

Yahoo!知恵袋 5442日前