|
kira2 sih saya nangkep logikanya bro Heru .. hehehe
... trims ya ... saya cuma mikir jangan2 bisa pake 1 query doang ... sekali lagi
terima kasih..
----- Original Message -----
Sent: Thursday, April 13, 2006 1:40
PM
Subject: RE: [Programmer-VB] Re: query
selisih detik
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
<*> 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
|
- Re: [Programmer-VB] Re: query selisih detik Joko Nurjadi
-
