Archive for Desember 2016
Diamku bukan tak berarti
Sengaja ku membiarkanmu bertanya-tanya
Sengaja pula ku berpura-pura tak tahu apa-apa
Bukan karena egoku yang terlalu tinggi
Bukan karena aku tak peduli
Bukan pula karena kau tak ku inginkan
Bukan maksudku membuatmu terbebani
Namun
Diamku adalah pelindungku
Diamku adalah harapan
Diamku adalah caraku mencintaimu dalam ketaatan
Aku hanya ingin
Cinta ini menjadi pengiring
Dalam setiap langkahmu
Melalui lantunan doa dan tasbihku
Ku biarkan cinta ini dalam diam
Hingga waktu datang
Membawa cinta yang hakiki
Dalam dua ikatan suci
Cinta Dalam Diam
Senja
Biar ku bagi cerita
Pada langit yang mulai jingga
Tentang rindu yang kian menggebu
Ciptakan rasa menjadi asa
Terkesima dengan jingganya senja
Burung-burung berbondong pulang
Meninggalkan bayangan tak berjejak
Anginpun membelai mesra suasana jingga
Daun-daun nyiur melambai kegirangan
Hingga tak satupun dedaunan terdengar suaranya
Hingga akhirnya
Suasana kembali sunyi bersembunyi di balik sepi
Merajut cerita menjadi kenangan
Di balik kesuraman dan keindahan senja
Bintangpun mulai memancarkan cahayanya
Bertabur menghiasi langit
Wahai senja
Hadirmu menumbuhkan rindu di taman kalbuku
Kenangan dalam Senja
Ketika ku bukakan mata yang tertutup
Meninggalkan butiran debu pada tatapan mata
Masihkah ada muara kisah mesra
Di antara cerita yang telah usang
Masihkah ada temu ujar diantara kita
Namun waktu jauh berlalu
Meninggalkan sebuah kisah yang tak bisa di ungkap dengan kata-kata
Hingga kini
Tertinggal ingatan-ingatan dalam sepi dan hampa
Jika waktu masih bersahabat denganku
Inginku kejar dan kuulang tatapan itu
Akan tetapi
Tiada lagi hati
Hati yang telah teriris
Hati yang telah menangis
Hati yang pergi dan menjauh
Seolah Menyisakan hati yang berbalut hampa
Akankah ada hati baru
Hati yang penuh tatapan dan harapan
Atas cinta yang seadanya
Jerit Harap Suara Hati
Dinginnya malam menyapaku
Menumbuhkan ilusi-ilusi
Dikala malam mulai sirna oleh pagi
Inginku berlayar meninggalkan pantai
Menuju hamparan laut yang tak terlihat ujungnya
Seolah aku tak ingin menoleh kebelakang
Inginku terus mengapung di atas bahtera
Mengikuti arus dan arah angin
Namun sang angin terus menggoda
Hingga terbesit niat menoleh kebelakang bahtera
Pantai ku tinggalkan engkau
Dengan semua keindahanmu
Bersama sang malam
Di pagi ini ku memilih
Menatap mentari
Bersama samudera yang tak bertepi
Namun aku percaya
Angin akan membawaku kembali ketepi
Bahtera Kecil
Form Pengolahan Data Tanggal
Coding :
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label9.Text = Format(Today(), "dd-MMMM-yyyy")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'tanggal sekarang dikurangi tanggal dipilih
Label11.Text = DateDiff(DateInterval.Day, DateTimePicker1.Value, Today()) & " Hari"
'bulan sekarang dikurangi bulan dipilih
Label12.Text = DateDiff(DateInterval.Month, DateTimePicker1.Value, Today()) & " Bulan"
'tahun sekarang dikurangi tahun dipilih
Label13.Text = DateDiff(DateInterval.Year, DateTimePicker1.Value, Today()) & " Tahun"
'tanggal sekarang ditambah 1 hari
Label14.Text = Format(DateAdd(DateInterval.Day, 1, DateTimePicker1.Value), "dd-MMMM-yyyy")
'bulan sekarang ditambah 2 bulan
Label15.Text = Format(DateAdd(DateInterval.Month, 2, DateTimePicker1.Value), "dd-MMMM-yyyy")
'tahun sekarang ditambah 3
Label16.Text = Format(DateAdd(DateInterval.Year, 3, DateTimePicker1.Value), "dd-MMMM-yyyy")
'menampilkan nama hari (tanggal dipilih)
Label17.Text = DateTimePicker1.Value.ToString("dddd")
'mencari banyaknya hari dalam bulan dipilih
Label18.Text = Hasil(Year(DateTimePicker1.Text), Month(DateTimePicker1.Text))
End Sub
Function Hasil(ByVal MyYear As Integer, ByVal MyMonth As Integer) As Integer
Return DateTime.DaysInMonth(MyYear, MyMonth)
End Function
End Class
Catatan utama :
1.Penambahan data tanggal menggunakan DATEADD
2.Pengurangan data tanggal menggunakan DATEDIFF
