Baru-baru ini, saya perlu menghitung minggu itu. Saya melihat kode yang sudah jadi di Internet, tetapi tidak cocok, jadi saya harus melakukannya sendiri.
Secara default, Senin pertama tahun ini dimulai pada minggu pertama.
'Hitung tanggal mulai minggu pertama tahun tertentu
fungsi hari pertama (tahun masukan)
untuk i=cdate(inputyear&"-1-1") hingga cdate(inputyear&"-1-7")
jika hari kerja(i)=2 maka
hari pertama=i
keluar untuk
berakhir jika
Berikutnya
fungsi akhir
'Hitung tanggal masukan adalah fungsi dari minggu dalam setahun
FungsiCalcWeekNo(Tanggal Masukan)
toyear=tahun(tanggal masukan)
hari f = hari pertama (tahun ini)
jika tanggaliff("d",fday,inputdate)<0 lalu
fday=hari pertama(untuk tahun ke-1)
berakhir jika
'calcweekno=hari ini
angka hari=tanggaliff("h",hari,tanggal masukan)
calcweekno=int(angka hari/7)+1
fungsi akhir
'Hitung hari pertama dalam seminggu berdasarkan nomor minggu dan tahun
fungsi getfst(inputtahun,minggutidak)
hari f = hari pertama (tahun masukan)
getfst=tanggaltambahkan("h",(minggu ke-1)*7,hari ini)
fungsi akhir