Salam Access,
Untuk dapatkan hari dalam bahasa indonesia bisa gunakan vba weekday() dengan sedikit modifikasi. http://www.techonthenet.com/access/functions/date/weekday.php
Untuk dapatkan tanggal --> day()
Untuk dapatkan bulan --> month()
Untuk dapatkan tahun --> year()
Kerangka pembuatannya kira2 seperti ini :
Function TerbilangTgl()as string
Tgl=now() 'disesuaikan, jika merujuk pada textbox
'Jangan lupa sertakan ## mis:
'#12/31/2011# --> 31 des 2011
'Ambil hari
Select case weekday(Tgl)
Case 1
TerbilangTgl = "Minggu, "
.....dst
End Select
'Ambil tanggal
Select case day(Tgl)
Case 1
TerbilangTgl = TerbilangTgl + "Satu "
.....dst
End Select
'Ambil bulan
Select case month(Tgl)
Case 1
TerbilangTgl=TerbilangTgl + "Januari "
....dst
End Select
Thn$=year(Tgl)
'Ambil tahun
Select case Thn
Case left(Thn,1)=1
TerbilangTgl=TerbilangTgl + "Seribu "
...dst (dibuat perulangan untuk karakter selanjutnya)
End Select
'Apabila textbox yang dipakai sebagai hasil mis = hasil
Hasil = TerbilangTgl
End Function
Untuk modifikasi diatas adalah salah satu cara untuk mendapatkan terbilang untuk tgl dalam bahasa Indonesia.
Cara yang lain bisa dengan mengunakan tambahan looping, mengingat ada beberapa hal yang sama mis angka satu dapat berarti se (sepuluh, seratus, seribu).
Semoga dapat memberi inspirasi.
Roland
Powered by Telkomsel BlackBerry
Tidak ada komentar:
Posting Komentar