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]
>
