¡Un experto en VB edita el código fuente de un programa de calendario perpetuo electrónico!
Proporcionado para su referencia
------ --------- - ---- ------
lt;!DOCTYPE HTML PUBLIC "-//W3C/DTD HTML 4.0 Transicional//ES"gt;
lt;HTMLgt ;lt;HEADgt; lt;TITLEgt;Consulta de utilidades-Calendariolt;/TITLEgt;
lt;META t=0;
var dStyle;
document. onmousemove = mEvn;
//Mostrar información detallada de la fecha
función mOvr(v) {
var s, festival;
var sObj=eval( 'SD' v);
var d=sObj.innerHTML-1;
//sAño, sMes, sDía, semana,
//lAño, lMes, lDía.isLeap,
//cAño, cMes, cDía
if(sObj.innerHTML!='') {
sObj .style.cursor = 's-resize';
if(cld[d].solarTerms == '' amp; amp; cld[d].solarFestival == '' amp; amp; cld[ d].lunarFestival == '')
festival = '';
else
festival = 'lt; TABLE WIDTH = 100 BORDER=0 CELLPADDING= 2 CELLSPACING=0 BGCOLOR="#CCFFCC"gt;lt;TRgt;lt;TDgt;'
'lt;FONT COLOR="#000000" STYLE="font-size.9pt;"gt; ' cld[d ].solarTerms ' ' cld[d].solarFestival ' ' cld[d].lunarFestival 'lt;/FONTgt;lt;/TDgt;'
'lt;/TRgt;lt; /TABLEgt;' ;
s= 'lt; TABLE WIDTH="130" BORDER=0 CELLPADDING="2" CELLSPACING=0 BGCOLOR="#CEE5FF" style="filtro: Alfa(opacidad=80 )"gt; lt; TRgt; lt; TDgt;'
'lt; TABLE WIDTH=100 BORDER=0 CELLPADDING=0 CELLSPACING=0gt; lt; COLOR="#000000" STYLE="font- tamaño：9pt;"gt;'
cld[d].sAño ' año ' cld[d].sMes ' m
onth ' cld[d].sDay ' daylt;brgt; semana ' cld[d].week ' lt.brgt;'
'lt;font color="#AA04AC"gt; cld[d].isLeap?'Leap ':' ') cld[d].lMes ' Mes ' cld[d].lDía ' Díalt;/fontgt;lt;brgt;'
'lt; font color="#0318DC"gt;' cld[d].cAño 'Año ' cld[d].cMes ' Mes ' cld[d].cDía 'Díalt;/fontgt;' ;/FONTgt;lt;/TDgt.lt;/TRgt;lt;/TABLEgt;' festival 'lt;/TDgt;lt;/TRgt;lt;/TABLEgt;';
document.all[ "detalle"].innerHTML = s;
if ( nieve == 0) {
dStyle.left = x offsetx-(ancho/2);
dStyle.top = y offsety;
dStyle.visibility = "visible"
nieve = 1;
}
/Borrar información detallada de la fecha
función mOut() {
if ( cnt gt; = 1 ) { sw = 0; /p>
if ( sw == 0 ) { nieve = 0; dStyle.visibility = "oculto";}
else cnt;
}
//obtener posición
función mEvn() {
x=event.x;
y=event.y;
if (document.body.scrollLeft)
{x=event.x document.body.scrollLeft; y=event.y document.body.scrollTop;}
if (nieve ){
dStyle.left = x offsetx-(ancho/2);
dStyle.top = y offsety;
}
}
////////////////////////////////////////// /// ///////////////////// ///////////////
función inicializar() {
//Calendario lunar
dStyle = detalle.style;
CLD.SY.selectedIndex=tY-1900;
CLD .SM.SelectIndex=tMSelectedIndex =tM;
drawCld(tY, tM);<
/p>
}
//--gt;
lt;/SCRIPTgt;
lt; ESTILO tipo=text/cssgt;
TAMAÑO DE FUENTE: 12px; COLOR: #565656
}
P {
TAMAÑO DE FUENTE: 12px; 565656
}
LI {
TAMAÑO DE FUENTE: 12px; COLOR: # 565656
}
SELECCIONE {
TAMAÑO DE FUENTE: 12px; COLOR: #565656
}
ENTRADA {
TAMAÑO DE FUENTE: 12px; : #565656
}
ÁREA DE TEXTO {
TAMAÑO DE FUENTE: 12px; COLOR: #565656
}
.f14 {
TAMAÑO DE FUENTE: 14px
}
.todyaColor {
.COLOR DE FONDO: aguamarina p>
}
lt;/STYLEgt;
lt;META content="Microsoft FrontPage 4.0" name=GENERATORgt;lt;/HEADgt;
lt;BODY bgColor=#7fbbff topMargin=5 onload=initialize() marginheight="5"gt;
lt;SCRIPT language=JavaScriptgt;lt;! --
if(navigator.appName == "Netscape" || parseInt(navigator.appVersion) lt; 4)
document.write("lt; h1gt; Su navegación El El servidor no puede ejecutar este programa.
lt;/h1gt; ¡Este programa requiere IE4 o superior para ejecutarse! ! ")
//--gt;lt;/SCRIPTgt;
lt;FORM nombre=CLDgt;
lt;DIV id=detalle
style="ÍNDICE Z: 3; FILTRO: sombra(color=# 333333, dirección=135); ANCHO: 140px; POSICIÓN: absoluta; ALTO: 120px"gt;lt;/DIVgt;
lt;CENTERgt;
lt;TABLE cellSpacing= 0 cellPadding=0 ancho=464 border=0gt;
lt;TBODYgt;
lt; TRgt;
lt;TD height=36gt;lt;IMG height=36 src="images/ca01 .gif"
width=463gt;lt;/TDgt;lt;/ TRgt;lt;/TBODYgt;lt;/TABLEgt;
lt;TABLE cellSpacing=0 cellPadding=0 width=464 border=0gt;
lt;TBODYgt;
lt; TRgt;
lt; TD align=middle background=images/ca02.gifgt; --lt; >p>