将旧的VBScript转换为JavaScript

Question

我正在处理我的雇主的内部网络存在，并且存在他们想要保存的旧VBScript。它在IE中显示，但在任何其他浏览器中都不起作用，因为根据我的理解，VBScript已被弃用。该脚本获取当前日期并计算消防部门单位日历上的“单位”日。今天（2月26日）例如是“1单位”或“绿色单位”，下一行是2单位/蓝色单位，然后是3单位/红色单位。如果是闰年，那么额外的一天被认为是“0单位”或“白色单位”。

因此，这里是旧的VBScript：

Sub UpdateClock() 
    Dim iDOW, iElapsed, iLeapYears, iUnit, sDate, sTime, aDOW, aUnitColor, sHTML 

    aUnitCOlor = Array("white", "green", "blue", "red") 
    aDOW = Array("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday") 

    iElapsed = DateDiff("d", "3/10/2008", Date) 
    iDOW = WeekDay(Date) 
    iLeapYears = Int((Year(Date)-2008)/4) 
    If Month(Date) > 2 Then iLeapYears = iLeapYears 
    iElapsed = iElapsed + iLeapYears 
    iUnit = (iElapsed Mod 3) + 1 
' sDate = aDOW(iDOW) & " " & FormatDateTime(Date,2) 
    sDate = WeekdayName(DatePart("w", Now())) & " " & FormatDateTime(Date, 2) 

    sTime = FormatDateTime(Time, 3) 

    sHTML = "<font size='1' face='Franklin Gothic Book'>" & sDate & "; " & sTime & "<br>" 
    sHTML = sHTML & "<font size='1' face='Franklin Gothic Book' color='" & aUnitColor(iUnit) & "'>" & CStr(iUnit) & " Unit</font><br>" 

    Clock.innerHTML = sHTML 
End Sub 

setInterval "UpdateClock()", 1000 

，这里是JavaScript的我已经写了，试图重建它：

// This script is intended to calculate the fire department "unit" day 
var d, sd, pd, psd, iElapsed, iLeapYears, iUnit 
// Sets start date 
sd = new Date("March 10, 2008"); 
// Sets current date 
d = new Date(); 

// Calculates the milliseconds between each date and January 1, 1970 
psd = sd.getTime(); 
pd = d.getTime(); 
// Calculates milliseconds between the two dates and divides by the number of milliseconds in a day to determine how many days have passed 
iElapsed = (pd - psd)/86400000; 

// Calculates leap year 
if (d.getMonth() > 1) { 
    iLeapYears = (d.getFullYear() - 2008)/4; 
} else { 
    iLeapYears = 0; 
} 
iElapsed = iElapsed + iLeapYears; 
iUnit = (iElapsed % 3 + 1); 

document.getElementById("DisplayUnitDay").innerHTML = iUnit; 

当前日期它给我的结果3.9499762037034998（根据我上次刷新），但它应该告诉我单位日是1，而不是3. 3单位是从现在开始的两天。我觉得我要么缺少一些简单的东西，要么我正在从事的VBScript有缺陷（或者我没有正确解释它）。

任何人都可以指出我的方向吗？我的意思是，我的雇主无论如何都要求所有内部计算机都使用IE，但个人而言，我希望它能够在其他浏览器上运行。

Answer 1

有几个因素要考虑到你重新写：

• 这是sd尚不清楚是否是2008年3月10日或2008年10月3日 - 在它看来他们都给出一个答案无论如何1这可能是一个幸运的巧合！

• VBScript的说：If Month(Date) > 2 Then但你的JavaScript表示，如果(d.getMonth() > 1)所以需要修正

• VBScript的具有此行iLeapYears = Int((Year(Date)-2008)/4) - 你应该使用Math.floor如VBScript int本节相当于：iLeapYears = (d.getFullYear() - 2008)/4;

• 使用像moment.js这样的现代化图书馆，摆脱日期操纵和格式化等繁重工作。

• 它曾经为白队工作过吗？对于+ ve iElapsed，iUnit = (iElapsed Mod 3) + 1永远不会为0。 VBScript可以具有基于0或1的阵列，但不存在Option Base 1，因此必须假设对于aUnitCOlor = Array("white","green","blue","red")，则aUnitCOlor(0)是白色。

所以27/2/17是，也许是因为我的时区是GMT + 11绿天。你在什么时区？

// unit colors 
 
var unitColor = ['white', 'green', 'blue', 'red']; 
 

 
// elapsed days 
 
var start = moment(new Date('March 10, 2008')); 
 
var today = moment(new Date); 
 
var elapsed = today.diff(start, 'days'); 
 

 
// update for leap year 
 
if (today.format('M') > 2) { 
 
    elapsed += Math.floor((today.format('Y') - 2008)/4); 
 
} 
 

 
// get unit 
 
unitIndex = (elapsed % 3) + 1; 
 

 
// render 
 
el = document.getElementById('out'); 
 
el.innerHTML = today.format('YYYY-MM-DD') + ' is a day for the ' + unitColor[unitIndex] + ' team';

<script src="https://cdnjs.cloudflare.com/ajax/libs/moment.js/2.17.1/moment.min.js"></script> 
 
<div id="out"></div>