Hiển thị kết quả tìm kiếm từ 1 đến 2 trên tổng số: 2
  1. #1
    Tham gia ngày
    05 2007
    Nơi Cư Ngụ
    SAPA
    Bài gởi
    4,160
    Cảm ơn
    9,648
    Được cảm ơn 11,056 lần trong 3,778 bài viết

    Tất cả các vấn đề về ngày tháng trong excel

    Trên diễn đàn chúng ta đã có rất nhiều thông tin bổ ích về các hàm ngày tháng trong excel. Mình cũng xin góp vào một ít. Đây là tất cả những gì liên quan đến ngày tháng trong excel, có thể các bạn đã biết, và có thể chưa biết. Hy vọng sẽ có ích cho các bạn.
    Nguồn lấy từ : http://www.mvps.org/dmcritchie/excel/datetime.htm
    Tập tin đính kèm Tập tin đính kèm
    thay đổi nội dung bởi: cadafi, 04-05-08 lúc 05:14 PM


  2. #2
    digita Guest
    Cám ơn bạn Kiệt. Sẳng nói về các hàm ngày tháng trong VBA, hàm dateadd với tham số "w" dếm ngày trong tuần trừ thứ 7 & CN. Thử nhé:

    Code:
     msgbox dateadd("d", 10, now)


    Code:
     msgbox dateadd("w", 10, now)
    2 code trên cho cùng 1 kết quả ngày tháng giống nhau. Cái lổ này Microsoft biết nhưng chưa thèm vá. Để khắc phục lổi này thì dùng code sau:

    Code:
    '**********************************************************
       'Declarations section of the module
       '**********************************************************
          Option Explicit
    
       '==========================================================
       ' The DateAddW() function provides a workday substitute
       ' for DateAdd("w", number, date). This function performs
       ' error checking and ignores fractional Interval values.
       '==========================================================
       Function DateAddW(ByVal TheDate, ByVal Interval)
    
         Dim Weeks As Long, OddDays As Long, Temp As String
    
         If VarType(TheDate) <> 7 Or VarType(Interval) < 2 Or _
                    VarType(Interval) > 5 Then
            DateAddW = TheDate
         ElseIf Interval = 0 Then
            DateAddW = TheDate
         ElseIf Interval > 0 Then
            Interval = Int(Interval)
    
       ' Make sure TheDate is a workday (round down).
            Temp = Format(TheDate, "ddd")
            If Temp = "Sun" Then
               TheDate = TheDate - 2
            ElseIf Temp = "Sat" Then
               TheDate = TheDate - 1
            End If
    
       ' Calculate Weeks and OddDays.
            Weeks = Int(Interval / 5)
            OddDays = Interval - (Weeks * 5)
            TheDate = TheDate + (Weeks * 7)
    
       ' Take OddDays weekend into account.
            If (DatePart("w", TheDate) + OddDays) > 6 Then
               TheDate = TheDate + OddDays + 2
            Else
               TheDate = TheDate + OddDays
            End If
    
            DateAddW = TheDate
         Else                         ' Interval is < 0
            Interval = Int(-Interval) ' Make positive & subtract later.
    
       ' Make sure TheDate is a workday (round up).
            Temp = Format(TheDate, "ddd")
            If Temp = "Sun" Then
               TheDate = TheDate + 1
            ElseIf Temp = "Sat" Then
               TheDate = TheDate + 2
            End If
    
       ' Calculate Weeks and OddDays.
            Weeks = Int(Interval / 5)
            OddDays = Interval - (Weeks * 5)
            TheDate = TheDate - (Weeks * 7)
    
       ' Take OddDays weekend into account.
            If (DatePart("w", TheDate) - OddDays) < 2 Then
               TheDate = TheDate - OddDays - 2
            Else
               TheDate = TheDate - OddDays
            End If
    
            DateAddW = TheDate
          End If
    
       End Function

Thông tin về chủ đề này

Users Browsing this Thread

Hiện có 1 người đang xem đề tài này. (0 thành viên và 1 khách)

Đề tài tương tự

  1. Hỏi về sự khác nhau giữa Macro, code và hàm trong excel. Excel và VBA
    Viết bởi vdtam_08 trong chuyên mục Lập Trình với Excel
    Trả lời: 4
    Bài mới gởi: 12-07-11, 10:22 PM
  2. Tạo một form trong word sử dụng data trong file excel 2007
    Viết bởi wwwgiaiphapexcelcom trong chuyên mục Phần mềm xử lý văn bản và chế bản điện tử
    Trả lời: 0
    Bài mới gởi: 09-09-10, 01:09 AM
  3. Export tung sheets trong 1 file Excel vào thành từng bảng trong ACCESS
    Viết bởi hoquang1987 trong chuyên mục Ứng dụng Quản trị cơ sở dữ liệu
    Trả lời: 4
    Bài mới gởi: 30-11-09, 04:36 PM
  4. Excel Custom Number Format - Tùy biến định dạng số trong Excel (Sưu tầm)
    Viết bởi QuocPhong trong chuyên mục Định dạng, trình bày, in ấn bảng tính
    Trả lời: 1
    Bài mới gởi: 21-05-09, 09:40 AM
  5. Bo Password khởi động Excel và Pass Readonly trong Excel 2007
    Viết bởi luong_xuangiang trong chuyên mục Excel 2007, 2010 & 2013
    Trả lời: 1
    Bài mới gởi: 29-04-09, 11:03 AM

Bookmarks

Bookmarks

Quyền Sử Dụng Ở Diễn Ðàn

  • Bạn không thể đăng đề tài mới
  • Bạn không thể đăng trả lời
  • Bạn không thể đăng file đính kèm.
  • Bạn không thể sửa bài viết.
  •  

Mudim v0.8 Tắt VNI Telex Viqr Tổng hợp
Chính tả Bỏ dấu kiểu mới  [Bật/Tắt (F9)]