|
Saya punya fungsi untuk mengubah format tanggal
menjadi double. Cara ini yang paling saya suka, selain karena bisa disort, juga
tidak terpengaruh (independent) settingan tanggal di komputer masing2 client
(Ini yg terpenting). Mungkin elo pernah make funsi mktime di PHP. Nah,
ini mirip dengan fungsi tersebut:
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Private Function MkTime(ByVal val As Date) As
Double
Dim dtAcuan dtAcuan = "01/01/1970 00:00:00" MkTime = DateDiff("s", dtAcuan, val) End Function Private Function GetTime(ByVal val As Double) As
Date
Dim dtAcuan dtAcuan = "01/01/1970 00:00:00" GetTime = DateAdd("s", val, dtAcuan) End Function /////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Misal:
tglSekarang = "2006-04-07 10:28:41 AM"
var1 = MkTime(tglSekarang)
'var1 = 1144405721
var2 = GetTime
(var1) 'var2
= 2006-04-07 10:28:41 AM
var1 ini inilah yg kita input ke database, dan var2
ini lah yg kita baca dari database. Kerugiannya kalo menggunakan cara ini, kita
gak bisa pake databind waktu baca database (pake datagrid misalnya). Tapi
kebetulan saya tidak suka pake databind dengan alasan flexibilitas. Saya
terbiasa dgn metode baca recordset, kemudian populate hasilnya satu2 ke
grid. Semoga membantu
regards,
~subchan
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
|
This email is confidential. If you are not the addressee tell the sender
immediately and destroy this email
without using, sending or storing it. Emails are not secure and may suffer
errors, viruses, delay,
interception and amendment. Standard Chartered PLC and subsidiaries ("SCGroup")
do not accept liability for
damage caused by this email and may monitor email traffic.
