Function Weton(vTgl) Weton = Hari(vTgl) & " " & Pasaran(vTgl) End Function
BTW, darimana dapetin function Hari dan Pasaran, kok gak bisa gabunginnya? Haer Talib 2008/2/22 Dwi Wuryantadi <[EMAIL PROTECTED]>: > Dear all > sedang belajar buat fungsi kok bingung neh. > fungsi pertama: > Function Hari(tgl) > y = tgl Mod 7 > Select Case y > Case 0: Hari = "Sabtu" > Case 1: Hari = "Ahad" > Case 2: Hari = "Senin" > Case 3: Hari = "Selasa" > Case 4: Hari = "Rabu" > Case 5: Hari = "Kamis" > Case 6: Hari = "Jumat" > End Select > End Function > > fungsi kedua: > Function Pasaran(tgl) > x = tgl Mod 5 > Select Case x > Case 0: Pasaran = "Kliwon" > Case 1: Pasaran = "Manis" > Case 2: Pasaran = "Pahing" > Case 3: Pasaran = "Pon" > Case 4: Pasaran = "Wage" > End Select > End Function > > Gimana cara gabuninnya sehingga > fungsi weton(tgl) > weton=hari dan pasaran > Thanks b4 > > Regards, Wuryantadi > > > > ___________________________________________________________ > All New Yahoo! Mail – Tired of [EMAIL PROTECTED]@! come-ons? Let our > SpamGuard protect > you. http://uk.docs.yahoo.com/nowyoucan.html > > > > SPAM IS PROHIBITED > Yahoo! Groups Links > > > > -- [Haer Talib] Office Access MVP Meet me at www.RumahAccess.com =>
