□投稿者/ Ｔｏｓｈｉ (3回)-(2010/06/03(Thu) 14:08:15)
|
分類:[VB.NET/VB2005 以降]
2010/06/03(Thu) 16:56:36 編集(投稿者)
2010/06/03(Thu) 15:48:46 編集(投稿者)
<pre><pre>こんにちは、お世話になっております、Ｔｏｓｈｉと申します。
時間の計算について、ご質問させていただきます。
Listviewに下記のような時間があり、これらの時間を下記のように計算したい。
日付／開始時間１／終了時間１／経過時間１／17:00以降の時間１／開始時間２／終了時間２／経過時間２／17:00以降の時間２／経過時間合計
2010/06/01／09:00／18:00／***／***／14:00／19:00／***／***／***
上記の（***）は計算したい列として、以下のような結果を出力させたい。
2010/06/01／09:00／18:00／(08:00)／(01:00)／18:00／19:00／(01:00)／(01:00)／(09:00)
条件１
開始と終了時間 06：00 〜 05：59
>条件２
>経過時間１と２は ８時間毎 （−１）時間とする。
>
>式１→（終了時間-開始時間）
条件２(修正)休憩時間を考えない。
式１→（終了時間-開始時間）
※終了時間が（00：01〜05：59）の場合は（終了時間+24：00）とする？
条件３
17:00以降の時間１と２は １７：００以降の時間を計算する、
式１→開始時間が17：00以前の場合は、（終了時間-17：00）
式２→開始時間が17：00以降の場合は、（終了時間-開始時間）
条件４
経過時間合計は、経過時間１と２の経過時間の合計、
※ただし、開始時間２／終了時間２の時間は、開始時間１／終了時間１と重なる時間は計算しない。
※経過時間１と２の実質の重ならない時間合計を求めたい。
Dim lst_time As DateTime
Dim max_Items As Integer
Dim liv As Object = ListView1
max_Items = liv.Items.Count
If max_Items = 0 Then Exit Sub
lst_time = DateTime.Parse("17:00")
dim 開始時間１ As DateTime ' liv.Items(i - 1).SubItems(1).Text
dim 終了時間１ As DateTime ' liv.Items(i - 1).SubItems(2).Text
dim 17:00以降の時間１ As DateTime ' liv.Items(i - 1).SubItems(3).Text
dim 開始時間２ As DateTime ' liv.Items(i - 1).SubItems(4).Text
dim 終了時間２ As DateTime ' liv.Items(i - 1).SubItems(5).Text
dim 経過時間２ As DateTime ' liv.Items(i - 1).SubItems(6).Text
dim 17:30以降の時間２ As DateTime ' liv.Items(i - 1).SubItems(7).Text
dim 経過時間合計 As DateTime ' liv.Items(i - 1).SubItems(8).Text
For i = 1 To max_Items
'2010/06/01／09:00／18:00／(08:00)／(01:00)／18:00／19:00／(01:00)／(01:00)／(09:00)
' 0 1 2 3 4 5 6 7 8 9
？？？？？？？？？？？
Next</pre></pre>
|
|
