Saya udah coba jalankan tapi error 'Argument not optional' ? Maaf bias lebih
jelas lagi gak. Saya udah coba seperti ini :
Dim jammasuk, jamDipanggil
Dim s As Integer
Do
Randomize
s = CInt(Rnd * 32400)
Loop Until s > 0
jammasuk = "08.00"
jamDipanggil = DateAdd("s", jammasuk)
MsgBox jamDipanggil
Mohon bantuannya secepatnya ya.
Terima Kasih
From: [email protected] [mailto:[EMAIL PROTECTED] On
Behalf Of wedhi access
Sent: 29 Oktober 2007 15:45
To: [email protected]
Subject: Re: [indoprog-vb] Funsi
Asumsi saya fungsi ini dijalankan tiap hari.
Misalnya jam 00.00 WIB secara otomatis.
Tiap jam tsb - ia akan mengupdate sebuah tabel RandomPanggil berisi:
KodeStaf
JamDipanggil
Idenya sbb:
Misal karyawan masuk jam 07.00 s.d 16.00
berarti : 9 jam / 32400 detik.
Buat aja fungsi random yang mengambil nilai dari 1 sd 32400, trus
JamDipanggil=dateADD("s",JamMasuk) , misalnya dapat jam 07.01
KodeStaf juga dipanggil secara random, misal hasilnya : SN001
Nilai ini akan dimasukkan tabel RandomPanggil tsb.
Sekedar Ide. Mudah2-an membantu.
On 10/29/07, Wahyu D S S <[EMAIL PROTECTED]
<mailto:c4k3p_d55%40telkom.net> > wrote:
>
> Hai semuanya,
> saya punya sebuah fungsi membaca data untuk memanggil nama staf, gimana
> caranya supaya fungsi yang sudah dibuat itu dipanggil secara random
> artinya fungsi tersebut dijalankan pada waktu / jam yang kita sendiri
> tidak tahu.
> Mohon pencerahanyan yang semuanya, terima kasih.
>
> Wahyu
>
>
>
[Non-text portions of this message have been removed]
__________ NOD32 2626 (20071030) Information __________
This message was checked by NOD32 antivirus system.
http://www.eset.com
[Non-text portions of this message have been removed]
