Menjelaskan cara mudah/termudah untuk menghitung selisih waktu - Mengapa disebut sebagai cara termudah? Karena ia hanya membutuhkan satu baris kode saja.Untuk memahami manipulasi Date and Time seperti fungsi built-in dalam VB6 (DateAdd, DatePart, dan...
Showing posts with label Date And Time. Show all posts
Showing posts with label Date And Time. Show all posts
Friday, July 5, 2013
VB6 Date Time: Cara Mudah Menghitung Selisih Waktu
READ MORE - VB6 Date Time: Cara Mudah Menghitung Selisih Waktu
Sunday, June 17, 2012
Memperoleh Informasi Time Zone Dari Local Time
Option ExplicitPrivate Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As IntegerEnd TypePrivate Type TIME_ZONE_INFORMATION...
Konversi Detik Ke Hari, Jam, Menit, dan Detik
Public Function SecondsToDateTimeSerial(ByVal Sec As Long) As String Dim lngSecParam As Long Dim lngSeconds As Long Dim lngHours As Long Dim lngMinutes As Long Dim tempSecParam As Long lngSecParam = Sec lngSeconds = lngSecParam \...
Mengetahui Tanggal Berada Pada Posisi Minggu Ke Berapa?
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...
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...
Thursday, June 14, 2012
Dua Cara Memperoleh Nama Hari Dari Tanggal Tertentu
Cara PertamaPrivate Function GetDayName(d As Date) As String GetDayName = WeekdayName(Weekday(d, vbMonday))End FunctionCara KeduaPrivate Function GetDayName(d As Date) As String GetDayName = Format$(d, "dddd")End FunctionContoh penggunaanPrivate...
Dua Cara Memperoleh Tanggal Terakhir Dari Bulan Tertentu
Cara Pertama:Private Function GetLastDayOfMonth(d As Date) As Integer GetLastDayOfMonth = DateDiff("d", Format$(d, "mm/yyyy"), Format$(DateAdd("m", 1, d), "mm/yyyy"))End FunctionCara Kedua:Private Function GetLastDayOfMonth(d As Date) As String ...
Cara Yang Sangat Efisien Untuk Mengkonversi Detik
Mengenai cara yang sangat efisien untuk mengkonversi detik ke jam:menit:detik menggunakan VB6 - Kita hanya perlu 1 baris untuk mengkonversi detik ke jam:menit:detik, adapun kodenya adalah sebagai berikut: Option ExplicitPrivate Sub Command1_Click() ...
Apa Yang Terjadi Jika dd/mm/yyyy dirubah menjadi mm/yyyy
Mengenai merubah format "dd/mm/yyyy" yang dirubah menjadi "mm/yyyy" dalam VB6 - Judul di atas sangat jelas, Apakah yang akan terjadi dengan sebuah tanggal yang memiliki format "dd/mm/yyyy" kemudian kita rubah formatnya menjadi "mm/yyyy" dalam pemrograman...
Memperoleh Jumlah Hari Dalam Tahun Tertentu
Private Function GetDaysInYear(d As Date) As Integer() Dim dt As Date, i As Integer, x(7) As Integer, c As Integer, g As Date g = CDate(Format$(d, "mm/yyyy")) c = IIf(Year(d) Mod 4 = 0, 366, 365) For dt = g To DateAdd("d", c - 1, g) ...
Memperoleh Jumlah Hari Dalam Selisih Tanggal Tertentu
Private Function GetDaysInRange(d As Date, f As Date) As Integer() Dim dt As Date, x(7) As Integer For dt = d To f x(Weekday(dt)) = x(Weekday(dt)) + 1 Next GetDaysInRange = xEnd FunctionPrivate Sub Command1_Click() Dim d() As Integer...
Menampilkan Tanggal Lengkap Disertai Hari
Private Function DateFull(d As Date) As String DateFull = Format$(d, "dddd, dd/mm/yyyy")End FunctionPrivate Sub Command1_Click() MsgBox DateFull(#12/12/2012#)End ...
Apakah Tahun Tertentu Merupakan Tahun Kabisat?
Private Function IsLeapYear(d As Date) As String IsLeapYear = (Year(d) Mod 4 = 0)End FunctionPrivate Sub Command1_Click() MsgBox IsLeapYear(#12/12/2012#)End ...
Memperoleh Jumlah Hari Dalam Bulan Tertentu
Private Function GetDaysInMonth(d As Date) As Integer() Dim dt As Date, i As Integer, x(7) As Integer, c As Integer, g As Date g = CDate(Format$(d, "mm/yyyy")) c = Day(DateSerial(Year(d), Month(d) + 1, 0)) For dt = g To DateAdd("d", c - 1,...
Sunday, May 27, 2012
Generator Timestamp ISO 8601 Compliant - VB6 Code
Di bawah ini merupakan fungsi Visual Basic 6.0 untuk melakukan generate timestamp (oauth_timestamp dalam Google atau Twitter) yang dibutuhkan pada saat kita melakukan request terhadap situs affiliate Amazon bersamaan dengan signature yang valid. Fungsi...
Subscribe to:
Posts
(
Atom
)
