Đọc 1 số thành ngày tháng năm (1 người xem)

[ruacon2080]

Xin chào các anh chị trong diễn đàn, em là mem mới, xin được trợ giúp vấn đề sau:
Em có 1 con số, em muốn đổi con số đó ra thành bao nhiêu năm, bao nhiêu tháng, bao nhiêu ngày thì em phải làm sao ạ.
Ví dụ: em có số 400, tính nhẩm sẽ được 1 năm, 1 tháng và 5 ngày.
l!em xin cám ơn trước á

 

[phulien1902]

Xin chào các anh chị trong diễn đàn, em là mem mới, xin được trợ giúp vấn đề sau:
Em có 1 con số, em muốn đổi con số đó ra thành bao nhiêu năm, bao nhiêu tháng, bao nhiêu ngày thì em phải làm sao ạ.
Ví dụ: em có số 400, tính nhẩm sẽ được 1 năm, 1 tháng và 5 ngày.
l!em xin cám ơn trước á

Giả sử A1=400, công thức bạn cần:

B1=INT(A1/365)&" Năm, "&INT(MOD(A1,365)/30)&" Tháng, "&ROUND(MOD((MOD(A1,365)),30),0)&" Ngày"

 

[ndu96081631]

Xin chào các anh chị trong diễn đàn, em là mem mới, xin được trợ giúp vấn đề sau:
Em có 1 con số, em muốn đổi con số đó ra thành bao nhiêu năm, bao nhiêu tháng, bao nhiêu ngày thì em phải làm sao ạ.
Ví dụ: em có số 400, tính nhẩm sẽ được 1 năm, 1 tháng và 5 ngày.
l!em xin cám ơn trước á

Theo bạn thì 1 năm luôn có 365 ngày? 1 tháng luôn có 30 ngày?

 

[nghiaphuc]

Xin chào các anh chị trong diễn đàn, em là mem mới, xin được trợ giúp vấn đề sau:
Em có 1 con số, em muốn đổi con số đó ra thành bao nhiêu năm, bao nhiêu tháng, bao nhiêu ngày thì em phải làm sao ạ.
Ví dụ: em có số 400, tính nhẩm sẽ được 1 năm, 1 tháng và 5 ngày.
l!em xin cám ơn trước á

Việc tính được bao nhiêu năm, bao nhiêu tháng, bao nhiêu ngày còn tùy thuộc vào thời điểm "gốc" để tính nữa chứ bạn. Chẳng hạn tôi có con số 30, theo bạn thì tính được bao nhiêu tháng, bao nhiêu ngày? Với số này thì có khi chưa đủ 1 tháng, có khi vừa đủ, có khi lại dư 1 hoặc dư 2 ngày.

 

[ChanhTQ@]

Bạn cứ coi như 1 năm có 365.25 ngày;

1 tháng có 365.25/12 = . . . ngày

Cứ thế mà mần thôi, vậy đấy!

 

[SA_DQ]

Cụ thể bỡi hàm người dùng sau:

Option Explicit
Function DocSo(Num As Long)
 Dim Nm As Integer, Thg As Byte, Ng As Long
 Const NNm As Double = 365.25:          Const NTh As Double = 365.25 / 12
 
 Nm = Num \ NNm:                        Ng = Num - Nm * NNm
 Thg = Ng \ NTh:                        Ng = Ng - Thg * NTh
 Ng = Format(Ng, "#")
 DocSo = Str(Nm) & " nam" & Str(Thg) & " tháng " & Str(Ng) & " ngày."
End Function

 

[phulien1902]

Option Explicit
Function DocSo(Num As Long)
 Dim Nm As Integer, Thg As Byte, Ng As Long
 Const NNm As Double = 365.25:          Const NTh As Double = 365.25 / 12
 
 Nm = Num \ NNm:                        Ng = Num - Nm * NNm
 Thg = Ng \ NTh:                        Ng = Ng - Thg * NTh
 Ng = Format(Ng, "#")
 DocSo = Str(Nm) & " nam" & Str(Thg) & " tháng " & Str(Ng) & " ngày."
End Function

Hàm tự tạo của bác mà nhập số 365 sẽ cho #VALUE! ?

 

[sealand]

Tôi thấy yêu cầu của Topic phi thực tế, cách nhẩm tính của bạn thực sự là 1 điều phi lý. Bạn gán luôn 1 năm có 365 ngày, 1 tháng có 30 ngày ???
Giả sử bạn quen 2 người ban họ yêu nhau, 1 người hẹn bạn 400 ngày nữa đến tham gia đón dâu và 1 người mời 1 năm 1 tháng 5 ngày nữa tới dự lễ vu quy thì tôi dám chắc vì bạn mà họ bỏ nhau vì đâu có cưới cùng 1 ngày.

 

[nghiaphuc]

Tôi thấy yêu cầu của Topic phi thực tế, cách nhẩm tính của bạn thực sự là 1 điều phi lý. Bạn gán luôn 1 năm có 365 ngày, 1 tháng có 30 ngày ???
Giả sử bạn quen 2 người ban họ yêu nhau, 1 người hẹn bạn 400 ngày nữa đến tham gia đón dâu và 1 người mời 1 năm 1 tháng 5 ngày nữa tới dự lễ vu quy thì tôi dám chắc vì bạn mà họ bỏ nhau vì đâu có cưới cùng 1 ngày.

Bác có cái ví dụ "ác nghiệt" quá!
Nếu có một mốc thời gian để tính thì bài này hoàn toàn có thể giải quyết bằng hàm DATEDIF, tuy nhiên giả thiết bài toán lại không cho điều này. Vậy nên... bó tay!

 

[SA_DQ]

Bài toán này trong thực tế là có sãy ra & người ta thường lấy mốc là ngày hiện tại làm mốc đầu hay mốc cuối;

Mốc đầu để kí hợp đồng cho vây, cho nợ
Từ nay đến Tết Tây còn 100 ngày nữa

Mốc cuối để đi đòi nợ đã vây
Hay để tính chuyện đã qua, như Tướng Giáp đã mất cách nay XYZ ngày rồi (. . . )
Ngày người thân mãn hạn tù, . . .

. . . . . . .

 

[ruacon2080]

Đúng ý mình đấy ạ! nếu có 2 mốc thời gian thì cũng đơn giản. Mình muốn quy đổi thành bao nhiêu ngày tháng năm để tiện đó ạ!