% Dim aryBulan aryBulan = Array("", "January", "Feb", "Mac", "April", "Mei", "Jun", "Julai", "Ogos", "September", "Oktober", "November", "Disember") If Tahun = "" Then Tahun = Year(Date()) %>