Private Function GetDayInWeek(d As Date) As Integer Dim dt As Date, i As Integer For dt = CDate(Format$(d, "mm/yyyy")) To DateAdd("m", 1, d) If Weekday(dt) = 2 Then i = i + 1 If dt > d Then Exit For End If...
Sunday, June 17, 2012
Mengetahui Tanggal Berada Pada Posisi Minggu Ke Berapa?
READ MORE - Mengetahui Tanggal Berada Pada Posisi Minggu Ke Berapa?
Konversi Masehi Ke Hijriyah Dan Sebaliknya
Private Sub Command2_Click() Dim c As Date c = CDate("21/12/1945") Calendar = vbCalHijri MsgBox c MsgBox Format(#8/17/1945#, "dddd")End SubPrivate Sub Command3_Click() Dim c As Date Calendar = vbCalHijri c = CDate("1/1/1455")...
Memperoleh Jumlah Hari Dari Bulan Yang Ditentukan
Private Function DayCount(d As Date) As Integer DayCount = Day(DateSerial(Year(d), Month(d) + 1, 0))End FunctionPrivate Sub Command3_Click() MsgBox DayCount(#2/2/2008#)End ...
Merubah Time Zone Secara Pemrograman
Option ExplicitPrivate Const VER_PLATFORM_WIN32_NT = 2Private Const VER_PLATFORM_WIN32_WINDOWS = 1Private Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As...
Subscribe to:
Posts
(
Atom
)
