hehehe, udah kuduga pertanyaannya bakal ekspansi ke sini :D
caranya u bisa manfaatin fungsi split utk menghasilkan array
Public Function ekstrak_bulan(ByVal kata As String) As String
Dim bagian() As String
bagian = Split(kata, " ")
If UBound(bagian) >= 4 Then ekstrak_bulan = bagian(UBound(bagian) - 1)
End Function
trus u coba deh :
msgbox ekstrak_bulan("25 s/d 25 Agustus 2008")
hasilnya insyaAllah : Agustus
silakan kembangkan sendiri (ato pake aja function ku itu). Tetep belajar
yak??
--
wassalam,
*Rizky Prihanto*
http://www.software-arsitek.web.id
2008/6/26 yoesgreat <[EMAIL PROTECTED]>:
> Ada yang bisa bantu gak yaa...!
>
> saya ingin memotong kata yang letaknya ditengah dalam sebuah record
> database.
>
> contoh :
>
> "25 s/d 28 September 2008"
> "20 s/d 30 Juni 2008"
> "25 s/d 25 Agustus 2008"
>
>
> yang ingin saya ambil hanya kata "nama bulan
> (September,juni,agustus,dll)"nya aja.
>
>
> bisa bantu untuk source code-nya!
>
>
>
