aries <[EMAIL PROTECTED]> wrote: mungkin u bisa coba yang ini
Option Explicit
Private Function HariIndo(ByVal Tanggal As Date) As String
Select Case Weekday(Tanggal)
Case 1
HariIndo = "Minggu"
Case 2
HariIndo = "Senin"
Case 3
HariIndo = "Selasa"
Case 4
HariIndo = "Rabu"
Case 5
HariIndo = "Kamis"
Case 6
HariIndo = "Jum'at"
Case Else
HariIndo = "Sabtu"
End Select
End Function
Private Function BulanIndo(ByVal Tanggal As Date) As String
Select Case Month(Tanggal)
Case 1
BulanIndo = "Januari"
Case 2
BulanIndo = "Febuari"
Case 3
BulanIndo = "Maret"
Case 4
BulanIndo = "April"
Case 5
BulanIndo = "Mei"
Case 6
BulanIndo = "Juni"
Case 7
BulanIndo = "Juli"
Case 8
BulanIndo = "Agustus"
Case 9
BulanIndo = "September"
Case 10
BulanIndo = "Oktober"
Case 11
BulanIndo = "November"
Case Else
BulanIndo = "Desember"
End Select
End Function
Private Sub Form_Load()
Me.Caption = HariIndo(Now) & ", " & Day(Now) & " " & BulanIndo(Now) & " " & Year(Now)
End Sub
MUHAMMAD IRFAN <[EMAIL PROTECTED]> wrote:
untuk merubah Suatu format baik tanggal maupun Mata Uang kamu bisa langsung pakek fungsi Format()
misalkan
tanggal =31/12/2005
maka => Format(tanggal,"dddd dd mmmm yyyy") nanti tinggal masukkan dalam sebuah Variabel/Text
selamat mencoba.
Wahyu Gunawan <[EMAIL PROTECTED]> wrote:
Dear All,
Saya mau tanya nih... cara menampilkan tgl seperti dibawah ini gimana caranya?
Kamis, 11 Mei 2006
Soalnya saya sdh coba pakai array yang menampung nama hari dan bulan koq masih belum bisa muncul sesuai dgn yg saya inginkan.
Wahyu.
---------------------------------
Blab-away for as little as 1¢/min. Make PC-to-Phone Calls using Yahoo! Messenger with Voice.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
SPONSORED LINKS
Computer internet security Computer internet business Computer internet access Computer internet privacy securities Computer internet help Computer internet connection
---------------------------------
YAHOO! GROUPS LINKS
Visit your group "indoprog-vb" on the web.
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
---------------------------------
Blab-away for as little as 1¢/min. Make PC-to-Phone Calls using Yahoo! Messenger with Voice.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
SPONSORED LINKS
Computer internet security Computer internet business Computer internet access Computer internet privacy securities Computer internet help Computer internet connection
---------------------------------
YAHOO! GROUPS LINKS
Visit your group "indoprog-vb" on the web.
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
---------------------------------
Yahoo! Mail goes everywhere you do. Get it on your phone.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
SPONSORED LINKS
Computer internet security Computer internet business Computer internet access Computer internet privacy securities Computer internet help Computer internet connection
---------------------------------
YAHOO! GROUPS LINKS
Visit your group "indoprog-vb" on the web.
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
---------------------------------
Love cheap thrills? Enjoy PC-to-Phone calls to 30+ countries for just 2¢/min with Yahoo! Messenger with Voice.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
SPONSORED LINKS
| Computer internet security | Computer internet business | Computer internet access |
| Computer internet privacy securities | Computer internet help | Computer internet connection |
YAHOO! GROUPS LINKS
- Visit your group "indoprog-vb" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
