PenamBahan HAri unTuk Polisi

Thanks to Daniweb

Hummpphhh... Penat kami memikir rupanya coding zaman sekaran semua dah senang.. Baru-baru ini seorang kawan beta ditugaskan untuk menambah field dalam suatu sistem untuk menentukan sesebuah koperasi tu melanggar atau tak Peraturan 39..

Sesebuah koperasi perlu melaporkan minit mesyuarat agung tahunan dan senarai ahli yang hadir 14 hari selepas mesyuarat.. Lebih kurang macam tuh la.. aku pun tak ingat. Punyala tak ingat mencari sampai tertonggeng-tonggeng kawan aku tu dan jawapan dia macam ni jer.. pandai2 le labu yer

Private Sub Text5_Lostfocus()
Dim PDate, RDate As Date
PDate = CDate(Text5.Text)
RDate = DateAdd("d", 15, PDate)
Text6.Text = RDate
End Sub

Hai....