Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hàm] Một số hàm liên quan đến ngày tháng và tính toán
#1
1/ Hàm xác định tháng hiện tai có bao nhiêu ngày

Mã PHP:
Function Ngaycuathang(ByVal bDate As Date) As Byte
     Dim Namnhuan 
As Boolean
     Dim NGAY 
As ByteThang As Byte
     Namnhuan 
= ((Year(bDate) / Int(Year(bDate) / 4)) = 0)
     
Thang Month(bDate)
     If 
Thang Or Thang Or Thang Or Thang 11 Then
          NGAY 
30
     
ElseIf Thang 2 Then
          
If Namnhuan Then
               NGAY 
29
          
Else
               
NGAY 28
          End 
If
     Else
          
NGAY 31
     End 
If
     
Ngaycuathang NGAY
End 
Function 

2/ Hàm xác định ngày cuối cùng của tháng

Mã PHP:
Function NgayCuoiThang(ByVal bDate As Date) As Date
     Dim NGAY 
As Byte
     NGAY 
Day(bDate)
     
NgayCuoiThang bDate + (Ngaycuathang(bDate) - NGAY)
     
NgayCuoiThang Format(NgayCuoiThang"dd/mm/yyyy")
End Function 
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan , Minh Tiên
#2
(19-03-15, 04:49 PM)Xuân Thanh Đã viết: 2/ Hàm xác định ngày cuối cùng của tháng
Mã PHP:
Function NgayCuoiThang(ByVal bDate As Date) As Date
    Dim NGAY 
As Byte
    NGAY 
Day(bDate)
    NgayCuoiThang bDate + (Ngaycuathang(bDate) - NGAY)
    NgayCuoiThang Format(NgayCuoiThang"dd/mm/yyyy")
End Function 

anh Thanh ơi sao phải cực thế để viết cái hàm tìm ngày cuối tháng vậy, Nhưng vẫn cảm ơn anh và xin đóng góp bổ sung trong Access có hàm Dateserial để sử dụng.
Hình minh họa:
[Hình: minhhoaDateserial.png]

Cú pháp:
1. Lấy Ngày đầu Tháng hiện tại:
Mã PHP:
=DateSerial(Year(Date()), Month(Date()), 1

2. Lấy Ngày đầu Tiếp theo tháng:
Mã PHP:
==DateSerial(Year(Date()),Month(Date())+1,1

3. Lấy Ngày cuối cùng của tháng hiện tại:
Mã PHP:
=DateSerial(Year(Date()),Month(Date())+1,0

4. Lấy Ngày cuối cùng của tháng tiếp theo:
Mã PHP:
=DateSerial(Year(Date()),Month(Date())+2,0

5. Lấy Ngày đầu tiên của tháng trước đó:
Mã PHP:
=DateSerial(Year(Date()),Month(Date())-1,1

6. Lấy Ngày cuối cùng của tháng trước đó:
Mã PHP:
=DateSerial(Year(Date()),Month(Date()),0

7. Lấy Ngày đầu tiên của năm hiện tại:
Mã PHP:
=DateSerial(Year(Date()),1,1

8. Lấy Ngày cuối cùng của tháng hiện tại:
Mã PHP:
=DateSerial(Year(Date()), Int((Month(Date())-1)/3)*3+4,0

9. Lấy Ngày đầu tiên của tuần hiện tại (giả sử chủ nhật = ngày 1):
Mã PHP:
=Date() - WeekDay(Date())+

10. Lấy Ngày cuối cùng của tuần hiện tại:
Mã PHP:
=Date() - WeekDay(Date())+

11. Lấy Ngày đầu tiên của tuần hiện tại (sử dụng cài đặt chuyên biệt trong hộp thoại tùy chọn hộp):
Mã PHP:
=Date() - WeekDay(Date(),0)+

12. Lấy Ngày cuối cùng của tuần hiện tại:
Mã PHP:
=Date() - WeekDay(Date(),0)+

Dựa vào 12 cú pháp này có thể xào nấu ra thêm nhiều câu nửa.

Trân trọng!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Xuân Thanh , Minh Tiên , bwomdem
#3
1/ Trước hết xin cám ơn bài viết của bạn maidinhdan
2/ Chuyên mục này là Thư viện hàm nên tôi đưa bài viết của tôi vào đây để mang tính chất tham khảo
3/ Ai cũng biết trong Access có hàm DateSerial rát thuận tiện cho việc tính toán ngày tháng. Nhưng hàm này đã trả lời rất nhiều trên 4rum rồi
4/ Bài viết của bạn rất súc tich. Giá như để nó ở chuyên mục Thư viện thủ thuật thì chắc hợp lý hơn
Chúc bạn có nhiều đóng góp hữu ích cho diễn đàn
Thân mến
Xuân Thanh
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hàm] Demo_[Hàm] Tính thâm niên như BHXH (maidinhdan) maidinhdan 18 2,251 08-05-16, 09:20 PM
Bài mới nhất: maidinhdan
  Hướng Dẫn Hàm API trong quản lý file và folder maidinhdan 1 290 22-04-16, 09:40 AM
Bài mới nhất: kieu manh
  Hướng Dẫn Tổng hợp các hàm Toán học cơ bản ( có ví dụ) maidinhdan 0 276 16-04-16, 01:19 PM
Bài mới nhất: maidinhdan
  Hướng Dẫn Tổng hợp các hàm Toán học nâng cao: thống kê, xác xuất, tuyến tính..(Ví dụ) maidinhdan 0 175 16-04-16, 01:15 PM
Bài mới nhất: maidinhdan
  Hướng Dẫn Tổng hợp các hàm ngày tháng ( Vidu minh họa) maidinhdan 0 265 16-04-16, 01:12 PM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ