Menampilkan Info Hari,Tanggal dan Jam

Saya ingin berbagi untuk menampilkan Info Hari/Taanggal beserta Jam...

Pertama-tama tambahkan komponen FORM,LABEL dan TIMER seperti pada gambar berikut:









Kemudian pada sourcecode buat FUNGSI seperti berikut:

Function GetDateTimeIndo() As String

Dim hr() As String = {"Minggu", "Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu"}

Dim bln() As String = {"Januari", "Februari", "Maret", "April", "Mei", "Juni", "Juli", "Agustus", "September", "Oktober", "Nopember", "Desember"}

Dim week As Integer = Weekday(Now.Date, FirstDayOfWeek.Sunday) - 1

Dim month As Integer = Now.Month - 1

Dim hari As String = hr(week)

Dim bulan As String = bln(month)

Return hari & ", " & Now.Day.ToString & " " & bulan & " " & Now.Year.ToString & " Pukul : " & Format(Now(), "hh:mm:ss")

End Function

Kemudian EVENT pada FORM4 LOAD

Private Sub Form4_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Label1.Text = GetDateTimeIndo()

End Sub

Lalu Jalankan Program dan lihat hasilnya...









Semoga bermanfaat......(^_^)>

Semoga bermanfaat....

Categories

Widget by Scrapur