Xin viết giúp macro để chuyển 1 ngày (năm 365 ngày) sang ngày của năm chỉ 360 ngày (1 người xem)

[ChanhTQ@]

Để thuận tiện trong công việc, mình có nhu cầu chuyển 1 ngày nào đó bất kỳ như 9/02/1945 thành 1 ngày nào đó theo hệ lịch mới; Lịch này qui định tháng nào cũng 30 ngày & năm chỉ à 360 ngày

Ví dụ:

  (365 ngày) =>  (360 ngày)
1/1/1900      =>   1/1/1900
1/30/1900    =>      1/30/1900
1/31/1900    =>     2/1/1900
. . . . . . . .
7/2/2012     =>    ?

(Theo mình được biết bài toán này sẽ có ứng dụng trong mô hình hoá khí hậu vùng miền hay toàn cầu)

Rất cảm ơn các bạn đã, đang & sẽ quan tâm!

 

[siwtom]

Để thuận tiện trong công việc, mình có nhu cầu chuyển 1 ngày nào đó bất kỳ như 9/02/1945 thành 1 ngày nào đó theo hệ lịch mới; Lịch này qui định tháng nào cũng 30 ngày & năm chỉ à 360 ngày

Ví dụ:

  (365 ngày) =>  (360 ngày)
1/1/1900      =>   1/1/1900
1/30/1900    =>      1/30/1900
1/31/1900    =>     2/1/1900
. . . . . . . .
7/2/2012     =>    ?

(Theo mình được biết bài toán này sẽ có ứng dụng trong mô hình hoá khí hậu vùng miền hay toàn cầu)

Rất cảm ơn các bạn đã, đang & sẽ quan tâm!

Toán học thuần túy.
k = CLng(DateSerial(năm, tháng, ngày))
Từ 1 / 1 / 1900 đã có:
nam = Int(k / 360) năm trôi qua
và thang = Int((k mod 360) / 30) tháng trôi qua
và ngay = k - nam * 360 - thang * 30 ngày trôi qua.
=> ngày tháng năm theo lịch kỳ quặc.