Eh, salah yg diminta ya hehehe
Maap2, byk kerjaan jd suka ngga konsen :)
Pokoke kayaknya begini
--> kayaknya sih
Dim Tgl AS Date
Dim HP AS String
Dim Jumlah as Long
Tgl = "1/1/1900"
HP = ""
Jumlah = 0
--> Qry dgn SELECT * FROM TabelA ORDER BY Tgl Asc
Do While Not Rek.EOF
If HP = Rek.Field!HP Then
If DateDiff("s", Tgl, Rek.Field!Tgl) = 1 then
Jumlah = Jumlah +1
End If
Else
If HP <> "" Then
--> masukkan ke grid/tabel/array HP dan
Jumlah
End If
Jumlah = 0
HP = Rek.Field!HP
Tgl = Rek.Field!Tgl
End If
Rek.MoveNext
Loop
-----Original Message-----
From: [email protected]
[mailto:[EMAIL PROTECTED]
Mas,
Mungkin pake cara ini bisa (tp agak ribet)
Dim Tgl AS Date
Dim HP AS String
Tgl = "1/1/1900"
HP = ""
--> Qry dgn SELECT * FROM TabelA ORDER BY Tgl Asc
Do While Not Rek.EOF
If HP = Rek.Field!HP Then
If DateDiff("s", Tgl, Rek.Field!Tgl) = 1 then
--> Masukkan ke grid/tabel/atau arry
End If
Else
HP = Rek.Field!HP
Tgl = Rek.Field!Tgl
End If
Rek.MoveNext
Loop
--- In [email protected], "Joko Nurjadi"
<[EMAIL PROTECTED]> wrote:
>
> halo temen2,
>
> gue mo tanya, klo gue ada table yg isinya begini:
>
> field hp field tgl
> 001 4/12/2006 10:00:01 AM
> 001 4/12/2006 10:00:02 AM
> 001 4/12/2006 10:00:10 AM
> 001 4/12/2006 10:00:15 AM
> 001 4/12/2006 10:00:16 AM
> 002 4/12/2006 10:00:10 AM
> 002 4/12/2006 10:00:11 AM
>
> dst bisa ampe banyak banget...
>
> klo gue mo tau hp yg punya tgl dalam selisih 1 detik gimana
caranya ya? jadi kira2 klo contoh input adalah table diatas, maka
outputnya:
>
> hp jumlahrecord
> 001 4 (karena ada 4 record
dimana hp = 001 dan selisih tglnya 1 detik)
> 002 2 (karena ada 2 record
dimana hp = 002 dan selisih tglnya 1 detik)
>
> gimana ya query buat hasilin output seperti diatas?
>
> untuk bantuannya gue ucapkan banyak2 terima kasih yoa.
>
>
> jn
>
Wahana Programmer Groups Links
Yahoo! Groups Links
Wahana Programmer Groups Links
Yahoo! Groups Links
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
