Tính ngày tháng bằng chữ (help pls)

[hai1111]

Ví dụ mình có ô:
A1 B1
14/4/2006 4/6/2006
Kết quả ô C1: 1 tháng 20 ngày
Kết quả ô D1: đếm lùi ngày ô B1 so với hôm nay để xem còn bao nhiêu ngày.
Mình làm hàm if và & if nhưng sai với lại nhiều if quá. Anh chị GPE giải dùm mình nhé. Thx các bạn

 

[tedaynui]

Chào bạn
Bạn thử 2 công thức này xem :
Ô D1 : =NOW()-B1 .Lưu ý Format Cell là Number, không lấy số thập phân
Ô C1 :
=DATEDIF($A$1,$B$1,"Y")&" năm "&DATEDIF($A$1,$B$1,"YM")&" tháng "&DATEDIF($A$1,$B$1,"MD")& " ngày"

TDN

 

[hai1111]

Bạn có thể giải thích cho mình hàm DateDIf ko? mình ko hiểu cách thức hoạt động của nó. Thx bạn tè đầy núi rất nhiều

 

[TranNguyenDanNhi]

Bạn có thể giải thích cho mình hàm DateDIf ko? mình ko hiểu cách thức hoạt động của nó. Thx bạn tè đầy núi rất nhiều

híc híc híc

mắc cười quá !!

Ví dụ mình có ô:
A1 B1
14/4/2006 4/6/2006
Kết quả ô C1: 1 tháng 20 ngày
Kết quả ô D1: đếm lùi ngày ô B1 so với hôm nay để xem còn bao nhiêu ngày.
Mình làm hàm if và & if nhưng sai với lại nhiều if quá. Anh chị GPE giải dùm mình nhé. Thx các bạn

Chào bạn
Bạn thử 2 công thức này xem :
Ô D1 : =NOW()-B1 .Lưu ý Format Cell là Number, không lấy số thập phân
Ô C1 :
=DATEDIF($A$1,$B$1,"Y")&" năm "&DATEDIF($A$1,$B$1,"YM")&" tháng "&DATEDIF($A$1,$B$1,"MD")& " ngày"

1. Bác TDN thay công thức bằng kiểu format đi

2. Chỉ cho ra số ngày thôi, không bao giờ cho ra kết quả này trừ khi bạn quy đinh 1 tháng = 30 ngày.

VD : A1 = 1/5/2007; B1 = 29/6/07

B1 - A1 = 59 ngày. Vậy thì là mấy tháng đây ??

Trong khi đó : A1 = 1/1/2007; B1 = 1/3/07 thì cách nhau mấy tháng ??

 

[tedaynui]

Bạn có thể giải thích cho mình hàm DateDIf ko? mình ko hiểu cách thức hoạt động của nó. Thx bạn tè đầy núi rất nhiều

Hàm này dùng để tính số năm / số tháng / số ngày ... của 2 mốc thời gian
Hàm DateDif(Date1,Date2,Type)
Type : có các dạng sau : Y / YM / YD / M / MD / D
Bạn làm 1 ví dụ nhỏ sẽ dễ phân biệt hơn



Gởi hai1111
Ô D1 : bạn có thể dùng DateDif như sau :
=DATEDIF($B$1,NOW(),"D")

TDN

 

[dvu58]

TUI ĐÂY NÈ ơi. Cảm ơn bạn giới thiệu thêm 1 hàm hay nhưng nick của bạn trở thành nick ấn tượng nhất rồi đấy! Hi! Hi!

Nhưng bạn đừng đổi nick nhé! nick này dễ thương lắm.

(Chết chửa!!! Coi chừng mình bị goi là dí vú 58 thì bỏ xừ!)

 

[SA_DQ]

Hàm này dùng để tính số năm / số tháng / số ngày ... của 2 mốc thời gian
Hàm DateDif(Date1,Date2,Type) TDN

Hình như TDN thiếu xuất xứ: Hàm này không thấy trong Excel đâu;
Nó trong VBA hay sao đó các bạn ơi;Tìm khó lắm:
Mớ CS module ra & tiếp tục . . . tìm hay nhờ zúp đỡ của 'Help'

Function DateDiff(Interval As String, Date1, Date2, [FirstDayOfWeek As VbDayOfWeek = vbSunday], [FirstWeekOfYear As VbFirstWeekOfYear = vbFirstJan1])
    Member of VBA.DateTime

 Function DatePart(Interval As String, Date, [FirstDayOfWeek As VbDayOfWeek = vbSunday], [FirstWeekOfYear As VbFirstWeekOfYear = vbFirstJan1])
    Member of VBA.DateTime

Function DateSerial(Year As Integer, Month As Integer, Day As Integer)
    Member of VBA.DateTime

Có khi trong Ex2007 có, vậy mình lạc hậu mất rồi!

 

[LikeIt]

Mình làm thử theo bạn TDN nhưng không ra kết quả gì? nếu có thể mong bạn làm một file VD xem nào? tks

 

[tedaynui]

Gởi HYến và Hương Thơm.
Mình hiện đang dùng Office 2003 ngoài ra không có thêm 1 addin nào khác. Hàm DateDif cũng không phải hàm tự tạo (user Function). Mình cũng Search help và cũng không thấy hàm DateDif đâu cả (???). Hàm này mình biết được qua 1 tạp chí nào đó (đã lâu rồi nên không nhớ). Mình có 1 số file có sử dụng hàm này và chưa gặp sự số nào cả. Cụ thể là mình đã làm ví dụ và chụp ảnh ở bài #6. Vậy những nguyên nhân mà các bạn nêu thật sự mình cũng không biết là do đâu. Mong ai biết xin giải thích giúp. Xin cảm ơn !

TDN

 

[yeudoi]

Bạn xem thử các ví dụ về ngày nha.

 

[chuongxedap]

Tôi cũng sử dụng thử hàm DateDif như TeDayNui hướng dẫn, lúc đầu không được, Excel thông báo #VALUE! Sau kiểm tra lại thấy phần ngày tháng mình vào sai (Phải là tháng trước, ngày sau. Muốn là ngày trước tháng sau thì phải vào Control Panel để đặt lại), còn phần hiện lên phải vào Format để sửa. Còn công thức ở ô D1 phải là =DateDif(NOW(),$B$1,"Y") thì mới cho kết quả như mong muốn được.

 

[hai1111]

Cho mình hỏi thêm 1 vấn đề này nữa:
Mình tạo ra đc 1 nút lệnh command và đặt tên là thêm. Mình muốn click chọn 1 ô nào đó ví dụ ô A2 và chọn nút lệnh thêm, thì nguyên 1 khối của hàng 2 đều chèn thêm 1 dòng (tương đương như insert vậy) và copy định dạng của khối dòng 1 xuống dòng 2 luôn kẻ khung dọc nữa.
Mình làm đc thêm dòng nhưng, muốn thêm 1 khối thì phải chọn khối nữa với lại ko có copy định dạng xuống ô vừa thêm.
Cám ơn té dãy núi và yêu đời rất nhiều, bài viết của các bạn rất bổ ích. Học hỏi các bạn thật là tốt.

 

[tedaynui]

Cho mình hỏi thêm 1 vấn đề này nữa:
Mình tạo ra đc 1 nút lệnh command và đặt tên là thêm. Mình muốn click chọn 1 ô nào đó ví dụ ô A2 và chọn nút lệnh thêm, thì nguyên 1 khối của hàng 2 đều chèn thêm 1 dòng (tương đương như insert vậy) và copy định dạng của khối dòng 1 xuống dòng 2 luôn kẻ khung dọc nữa.
Mình làm đc thêm dòng nhưng, muốn thêm 1 khối thì phải chọn khối nữa với lại ko có copy định dạng xuống ô vừa thêm.
Cám ơn té dãy núi và yêu đời rất nhiều, bài viết của các bạn rất bổ ích. Học hỏi các bạn thật là tốt.

Chào bạn
Mình nghĩ chắc bạn nên gởi file hay vi du tương tự theo ý bạn thì giup ban dễ dàng hơn.

TDN

 

[hai1111]

Cái này mình ko biết diễn tả sao. bạn biết chèn dòng (insert) phải ko? click chuột ngay ô nào đó bấm insert là chèn 1 ô ngay đó. Nhưng mình muốn là click chuột ngay ô nào thì chèn nguyên 1 hàng luôn, chứ không phải 1 ô, và copy định dạng + công thức + khung của hàng trên xuống luôn. Bạn thấy đấy, ko có mẫu để diễn tả cho bạn đc

 

[tedaynui]

Gởi bạn
Tuy không được như ý lắm nhưng bạn thử Code này xem. (Bạn Click phải vào bất kỳ ô nào của cột A để kiểm tra)

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column > 1 Then Exit Sub
    Cancel = True
    Rows(Target.Row).Insert Shift:=xlDown
    Rows(Target.Row - 1).Select
    Selection.FillDown
End Sub

TDN

 

[hai1111]

Bạn thật tuyệt vời, gần đúng ý mình rồi, mình chỉ muốn thêm 1 nút lệnh "Thêm", khi bấm vào thì sẽ chèn ngay ô đc chọn 1 dòng và copy định dạng từ dòng trên xuống, để mình cố gắn thử xem.

 

[phamduylong]

Gởi HYến và Hương Thơm.
Mình hiện đang dùng Office 2003 ngoài ra không có thêm 1 addin nào khác. Hàm DateDif cũng không phải hàm tự tạo (user Function). Mình cũng Search help và cũng không thấy hàm DateDif đâu cả (???). Hàm này mình biết được qua 1 tạp chí nào đó (đã lâu rồi nên không nhớ). Mình có 1 số file có sử dụng hàm này và chưa gặp sự số nào cả. Cụ thể là mình đã làm ví dụ và chụp ảnh ở bài #6. Vậy những nguyên nhân mà các bạn nêu thật sự mình cũng không biết là do đâu. Mong ai biết xin giải thích giúp. Xin cảm ơn !TDN

Tham khao ham DateDif
http://www.giaiphapexcel.com/forum/showthread.php?t=2753