SMK TI BALI GLOBAL JIMBARAN
TUGAS KELOMPOK APLIKASI PENGOLAH ANGKA (APA)
NAMA KELOMPOK:
NI WAYAN SRI AYUNI
VITA CORISA
NI KADEK PUJA MELANI PUTRI
KELAS: X AKUNTANSI
Daftar Isi
A. Pengertian Data Time
B. Fungsi Data Time
C. Cara Penggunaan Data Time
D. Jenis Data Time
Daftar Pustaka
JENIS DAN FUNGSI DATA TIME
A. PENGERTIAN DATE AND TIME
Pengertian Date, Date dalam bahasa Indonesia adalah tanggal. Pengertian Time, Time dalam bahasa Indonesia adalah waktu. Jadi pengertian Date And Time itu sendiri adalah waktu dan tanggal.
B. FUNGSI DATE AND TIME
Fungsi date adalah untuk memasukkan/menginput data berupa tanggal ke dalam berbagai bentuk. Fungsi time untuk memasukkan/menginput data berupa waktu, sehingga tampak umum.
Di dalam Ms. Exel Date dimasukkan dengan cara sebagai berikut :
1.Bukalah terlebih dahulu Ms. Exel
2.Lalu klik toolbar formulas seperti gambar berikut
3. Gambar di atas terdapat icon date and time. Lalu kemudian kilik icon tersebut. Lalu klik Time untuk memasukkan waktu. Kemudian muncul gambar seperti berikut:
4. Lalu masukkan waktu sesuai yang di minta. Contoh sebagai berikut. Lalu klik OK.
Jadi seperti itulah cara menggunakan/memasukkan Date And Time dengan Ms. Exel 2010.
C. JENIS DATA TIME
Now, digunakan untuk mendapatkan Tanggal dan Waktu sekarang.
d = Now , hasilnya 13/01/2012 1:22:42
Date, digunakan untuk mendapatkan Tanggal sekarang.
[ VB 6.0 ] d = Date , hasilnya 13/01/2012
[ VB .NET ] d = Now.Date , hasilnya 13/01/2012
Time, digunakan untuk mendapatkan Waktu sekarang.
[ VB 6.0 ] d = Time , hasilnya 1:22:42
[ VB .NET ] d = Now.ToLongTimeString , hasilnya 1:22:42
Day(x), digunakan untuk mengambil nilai Tanggal saja dari x.
[ VB 6.0 ] d = Day(#1/13/2012#) , hasilnya 13
[ VB .NET ] d = #1/13/2012#.Day , hasilnya 13
Month(x), digunakan untuk mengambil nilai Bulan saja dari x.
[ VB 6.0 ] d = Month(#1/13/2012#) , hasilnya 1
[ VB .NET ] d = #1/13/2012#.Month , hasilnya 1
Year(x), digunakan untuk mengambil nilai Tahun saja dari x.
[ VB 6.0 ] d = Year(#1/13/2012#) , hasilnya 2012
[ VB .NET ] d = #1/13/2012#.Year , hasilnya 2012
Hour(x), digunakan untuk mengambil nilai Jam saja dari x.
[ VB 6.0 ] d = Hour(#1:22:42 AM#) , hasilnya 1
[ VB .NET ] d = #1:22:42 AM#.Hour , hasilnya 1
Minute(x), digunakan untuk mengambil nilai Menit saja dari x.
[ VB 6.0 ] d = Minute(#1:22:42 AM#) , hasilnya 22
[ VB .NET ] d = #1:22:42 AM#.Minute, hasilnya 22
Second(x), digunakan untuk mengambil nilai Detik saja dari x.
[ VB 6.0 ] d = Second(#1:22:42 AM#) , hasilnya 42
[ VB .NET ] d = #1:22:42 AM#.Second, hasilnya 42
DateSerial(x, y, z), digunakan untuk menghasilkan Tanggal dari kombinasi x, y, z.
d = DateSerial(2012, 1, 13) , hasilnya 13/01/2012
TimeSerial(x, y, z), digunakan untuk menghasilkan Waktu dari kombinasi x, y, z.
d = TimeSerial(1, 22, 42) , hasilnya 1:22:42
MonthName(x), digunakan untuk mendapatkan nama Bulan dari x.
d = MonthName(2) , hasilnya Februari
WeekdayName(x), digunakan untuk mendapatkan nama Hari dari x.
d = WeekdayName(2, , vbSunday) , hasilnya Senin
Untuk menambah dan mengurangi data bertipe Date/Tanggal tidak semudah dengan data bertipe Angka yang hanya menggunakan operator + dan -. Karena itu ada fungsi khusus untuk melakukannya, berikut contoh penggunaannya :
Fungsi : DateAdd( Jenis interval, Besar perubahan, Tanggal yang dihitung )
Jenis Interval
|
Keterangan
|
D
|
Day (Hari)
|
M
|
Month (Bulan)
|
yyyy
|
Year (Tahun)
|
H
|
Hour (Jam)
|
N
|
Minute (Menit)
|
S
|
Second (Detik)
|
ww
|
Week (Minggu)
|
Q
|
Quater (4 Bulan)
|
Misalnya Anda ingin menghitung 2 hari setelah tanggal 15 Jan 2012 (ditulis #1/15/2012#), yang berarti akan menggunakan jenis interval "d" dan besar perubahannya adalah 2
t = DateAdd("d", 2, #1/15/2012#) , hasilnya 17 Jan 2012
Sekarang jika Anda ingin menghitung 3 bulan sebelumnya, yang berarti akan menggunakan jenis interval "m" dan besar perubahaanya adalah -3.
t = DateAdd("m", -3, #1/15/2012#) , hasilnya 15 Okt 2011
Jika Tanggal didapat dari kontrol semisal DateTimePicker, maka kodenya :
DateTimePicker2.Value = DateAdd("m", -3, DateTimePicker1.Value)
Bila Anda membutuhkan kode untuk menghitung selisih antar 2 data Tanggal baik secara hari, bulan, atau tahun, berikut contohnya :
Fungsi : DateDiff( Jenis Interval, Tanggal Pertama, Tanggal Kedua )
Jenis Interval
|
Keterangan
|
D
|
Day (Hari)
|
M
|
Month (Bulan)
|
yyyy
|
Year (Tahun)
|
H
|
Hour (Jam)
|
N
|
Minute (Menit)
|
S
|
Second (Detik)
|
ww
|
Week (Minggu)
|
Q
|
Quater (4 Bulan)
|
Misalnya Anda ingin menghitung selisih hari antara tanggal 15 Jan 2012 (ditulis #1/15/2012#) dan 20 Jan 2012, yang berarti akan menggunakan jenis interval "d".
t = DateDiff("d", #1/15/2012#, #1/20/2012#) , hasilnya 5
Jika Tanggal didapat dari kontrol semisal DateTimePicker, maka kodenya :
t = DateDiff("d", DateTimePicker1.Value, DateTimePicker2.Value)
Nama Hari dari Tanggal
Berikut ini merupakan fungsi yang digunakan untuk mengetahui nama hari dari suatu tanggal. Misalnya tanggal 26/09/2010, maka nama harinya adalah Minggu.
Buat Module baru dan ketikkan :
Public Function Hari(ByVal Tanggal As Date) As String
Select Case Weekday(Tanggal)
Case 1: Hari = "Minggu"
Case 2: Hari = "Senin"
Case 3: Hari = "Selasa"
Case 4: Hari = "Rabu"
Case 5: Hari = "Kamis"
Case 6: Hari = "Jum'at"
Case 7: Hari = "Sabtu"
End Select
End Function
Contoh penggunaannya :
s = Hari(CDate("Tanggal"))
Sebenarnya ada cara yang lebih singkat, tetapi hasil nilainya tergantung settingan bahasa di komputer. Kodenya adalah :
s = Format(CDate("Tanggal"), "dddd")
DAFTAR PUSTAKA
Budiyanto, Ida Bagus. 2010. “Mengenal Teknologi Informasi dan Komunikasi”. Jakarta: Kemendiknas 2010
Komentar
Posting Komentar