谁能帮我把这段软件的代码改成适用VB的代码

[复制链接]
查看11 | 回复0 | 2009-1-29 11:15:54 | 显示全部楼层 |阅读模式
Function tmOnTimer()
{
var today = (new Date()).getTime();
var exam_day = (new Date( GetSetting("month")+"-"+GetSetting("day")+"-"+GetSetting("year")+ " " + GetSetting("time") ) ).getTime();
var time = (exam_day - today);
if(time > 0)
{

var days = (time - (time % 86400000)) / 86400000;

time = time - (days * 86400000);

var hours = (time - (time % 3600000)) / 3600000;

time = time - (hours * 3600000);

var mins = (time - (time % 60000)) / 60000;

time = time - (mins * 60000);

var secs = (time - (time % 1000)) / 1000;



if(days0) then days = (time - (time \ 86400000)) / 86400000 time = time - (days * 86400000) hours = (time - (time \ 3600000)) / 3600000 time = time - (hours * 3600000) mins = (time - (time \ 60000)) / 60000 time = time - (mins * 60000) secs = (time - (time...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行