LCStream の DatetimeListInsertRange メソッド

このメソッドは、日時の範囲を日時リストのストリームオブジェクトに挿入します。

ストリームは LCSTREAMFMT_DATETIME_LIST 形式でなければなりません。

定義位置

LCStream

構文

Call datetimeNew. DatetimeListInsertRange (index, startDatetime, endDatetime)

パラメータ

パラメータ	説明
index	Long、1 ～ lcStream.Rangecount + 1 の範囲。値を挿入する位置です。
startDatetime	LCDatetime。範囲の最初の日時の値です。
endDatetime	LCDatetime。範囲の 2 番目の日時の値です。

使用法

日時リストのストリームには、単一の日時値と日時範囲が混在していることもあります (例を参照)。このメソッドは、最初の要素からリストをスキャンし、範囲値を検索してその数をカウントします。カウントが index に到達すると、その位置の範囲値が返されます。リストに単一値と範囲値が混在している場合は、リストの index 番目の値が返されるとは限りません。

例

Option Public
Uselsx "*lsxlc" 
Sub Initialize
  Dim datelist As New LCStream (0, 0, LCSTREAMFMT_DATETIME_LIST)
  Dim start As New LCDatetime
  Dim finish As New LCDatetime
  start.Text = "8/6/1941"
  finish.Text = "7/1/1997"
  datelist.Text = "12/25/50, 7:00AM, 12/31/99 12:59PM,
  1/1/2000 12:00AM,
  5:00PM - 6:00PM, 6:30AM, 5/1/96 - 5/31/96"
  Call datelist.DatetimeListInsertRange (2, start, finish)
  Print "The new stream is " & datelist.Text
End Sub

出力例

The new stream is 12/25/1950, 07:00:00 AM, 12/31/1999 12:59:00 PM, 01/01/2000 12:00:00 AM, 06:30:00 AM, 05:00:00 PM - 06:00:00 PM, 08/06/1941 - 07/01/1997, 05/01/1996 - 05/31/1996