Xây dựng kiểu dữ liệu ngày

by **ChuongTienPhat** 10/11/2009, 00:10

Xin chào bà-kon!
Để góp phần xây dựng diễn đàn có chất lượng hơn, xin mời bà-kon hãy cùng chung tay góp sức chia sẻ các bài viết, mã nguồn. Chúc bà-kon học tập tốt!
Nhân dịp khai trương, tớ xin post bài đầu làm gương.
Thông tin:
Bài tập 8.6.11 trang 150 Giáo trình Bài tập lập trình
Tác giả: Nguyễn Tấn Trần Minh Khang
Ngôn ngữ lập trình: VB.NET
Phương pháp lập trình: Hướng đối tượng

Bài này tớ dùng phương pháp lập trình hướng đối tượng, xem CNgay là một lớp gồm 3 biến thành phần _ngay, _thang và _nam.

Code:: Public Class CNgay ' Khai bao 3 bien thanh phan cua class CNgay Private _ngay As Integer Private _thang As Integer Private _nam As Integer 'Tao thu tuc khoi tao cho doi tuong CNgay 'Khi dung lenh [ Dim a as New CNgay ], 'thi nho thu tuc nay cac bien thanh phan co gia tri mac dinh Public Sub New() _ngay = 1 _thang = 1 _nam = 1900 End Sub Public Sub nhap() Console.Write("Nhap nam: ") _nam = Console.ReadLine() Console.Write("Nhap thang: ") _thang = Console.ReadLine() Console.Write("Nhap ngay: ") _ngay = Console.ReadLine() End Sub 'Viet thu tuc nhap voi 3 tham so truyen vao 'Cac thu tuc va ham co doi so truyen vao khac nhau thi ten co the trung nhau Public Sub nhap(ByVal ngay As Integer, ByVal thang As Integer, ByVal nam As Integer) _ngay = ngay _thang = thang _nam = nam End Sub Public Sub xuat() ' Day cung la mot cach hay de xuat thong tin ra man hinh Console.Write(vbTab & "{0}/ {1}/ {2}", _ngay, _thang, _nam) End Sub 'Ham kiem tra nam nhuan '1 nam duoc xem la nam nhuan 'NEU no chia het cho 4 nhung khong chia het cho 100 'HOAC no chia het cho 400 Public Function ktNamNhuan() As Boolean If _nam Mod 4 = 0 And _nam Mod 100 <> 0 Then Return True End If Return False End Function End Class

Xin ghi nhận mọi đóng góp
Tớ sẽ cố gắng giải đáp mọi thắc mắc từ các bạn