oia-iya, di systemdatetime ku weekdaynya dimulai hari *senin* :D - regional
setting Indonesia. biasa laah... hehehe (...berkelit...) - pendekatan ku itu
utk share info klo deklarasi array se-initializing data nya bisa digunain
function Array() kya itu... oke. thx adex koreksinya. Lanjuttttt!!!!!!!
On 6/29/07, ADEX <[EMAIL PROTECTED]> wrote:
>
> boleh koreksi dikit mas ya... :)
>
> > Private Function GetNamaHari(nHari As Byte) As String
> > Dim vaHari
> > vaHari = Array("Senin", "Selasa", "Rabu", _
> > "Kamis", "Jum`at", "Sabtu", "Minggu")
> > GetNamaHari = vaHari(nHari)
> > End Function
>
> Private Function GetNamaHari(nHari As Byte) As String
> Dim vaHari
> vaHari = Array( "Minggu","Senin", "Selasa", "Rabu", _
> "Kamis", "Jum`at", "Sabtu")
> GetNamaHari = vaHari(nHari)
> End Function
>
> --- In [email protected], "Rizky Prihanto"
> <[EMAIL PROTECTED]> wrote:
> >
> > wiadnyana, nama loe mirip dgn nama temen gw : I Dewa Putu Mas
> Dwipayana (
> > [EMAIL PROTECTED]) - Aku mbaca namamu kya sedang main ANAGRAM. hehehe... dia
> > jg programmer tuh. skrg kerja di denpasar. VB nya jago.. klo u mau,
> coba aja
> > hub dia.. ym nya : x4ngoet
> >
> > tentang fungsi tanggal yang loe tanyakan, aku punya pendekatan laen
> nih :
> >
> > Private Function GetNamaHari(nHari As Byte) As String
> > Dim vaHari
> > vaHari = Array("Senin", "Selasa", "Rabu", _
> > "Kamis", "Jum`at", "Sabtu", "Minggu")
> > GetNamaHari = vaHari(nHari)
> > End Function
> >
> > Private Sub Calendar1_Click()
> > Text1.Text = GetNamaHari(Weekday(Calendar1.Value) - 1)
> > End Sub
> > -- just wanna say 2 u there's another way to declare the array more
> > efficiently --
> >
> > --
> > regards,
> >
> > Rizky Prihanto
> > ~~~~~~~~~~~~~~~~~~~
> > Office : PT Lintang Kawuryan Malang (http://www.linkar.co.id)
> > Personal : http://www.software-arsitek.web.id
> >
> >
> > [Non-text portions of this message have been removed]
> >
>
>
>
>
> Untuk berhenti berlangganan kirim email kosong ke :
> [EMAIL PROTECTED]
>
> Bagi terjangkit virus lokal, zip virus tersebut
> dan kirim ke [EMAIL PROTECTED], kami
> akan membuat removalnya untuk anda.
> Yahoo! Groups Links
>
>
>
>
--
regards,
Rizky Prihanto
~~~~~~~~~~~~~~~~~~~
[EMAIL PROTECTED]
[Non-text portions of this message have been removed]
