Traditional Culture Encyclopedia - Almanac inquiry - VB master editing electronic calendar program source code.

VB master editing electronic calendar program source code.

The following is the lunar conversion page code of the webpage.

Provide reference

& lt！ DOCTYPE HTML PUBLIC“-//W3C//DTD HTML 4.0 Transitional//EN“& gt；

& lt html & gt< head & gt< title & gt utility query-calendar

& ltMETA t = 0；

var dStyle

document.onmousemove = mEvn

//Display detailed date information.

Function mOvr(v ){ (

Var s, festivals;

var sObj = eval（‘SD‘+v）；

var d = sobj . innerhtml- 1；

//year, month, day, week,

//year, month, day, month,

//cYear，cMonth，cDay

if（sobj . innerhtml！ ='') {

sobj . style . cursor =‘s-resize‘；

if（CLD【d】。 solarTerms = =““& amp； & ampCLD【d】solarFestival = =““& amp； & ampCLD【d】lunarFestival ==““）

festival =““；

other

festival =‘& lt； Table width = 100% BORDER=0 cell filling =2 cell spacing = 0bgcolor = "# ccfcc" > & ltTR & gt& ltTD & gt； ‘+

& ltFONT COLOR =“# 000000“STYLE =“FONT-size:9pt& gt+CLD【d】。 solarTerms+““+CLD【d】。 solarFestival+““+CLD【d】。 lunar festival+‘& lt； /FONT & gt； & lt/TD & gt； +

& lt/TR & gt； & lt/TABLE & gt； ‘；

s =‘& lt； TABLE WIDTH =“ 130“BORDER = 0 cell padding =“2“CELLSPACING = 0 BGCOLOR =“# CEE 5ff“style =“filter:Alpha（opacity = 80）“& gt； & ltTR & gt& ltTD & gt； ‘+

& lt table width = 100% BORDER=0 cell filling =0 cell spacing = 0> & lttr & gt & lttdalign = "right">. & ltFONT COLOR =“# 000000“STYLE =“FONT-size:9pt& gt+

CLD【d】sYear+‘year‘+CLD【d】。 s month+‘month‘+CLD【d】。 Sday+'day week +CLD. Zhou+'

& ltfont color =“# aa 04 AC“& gt。 Lunar calendar "+"(CLD [d]. islap？ leap“:““）+CLD【d】。 lMonth+“month“+CLD【d】。 lDay+‘day& ltbr & gt+

& ltfont color =“# 03 18DC“& gt； ‘+CLD【d】。 cYear+‘Year‘+CLD【d】。 CMonth+ "month"+CLD [d]. cDay+‘Day《/font & gt； ‘+

& lt/FONT & gt； & lt/TD & gt； & lt/TR & gt； & lt/TABLE & gt； ‘+festival+‘& lt； /TD & gt； & lt/TR & gt； & lt/TABLE & gt； ‘；

document . all【“detail“】。 innerHTML = s；

if（snow = = 0 ）{

d style . left = x+offsetx-（width/2）；

d style . top = y+offsety；

d style . visibility =“visible“；

snow = 1；

}

//Clear detailed date data

Function mOut(){

if（CNT & gt； = 1）{ SW = 0； }

if（SW = = 0）{ snow = 0； d style . visibility =“hidden“； }

else cnt++；

}

//Get location

Function mEvn(){

x = event.x

y = event.y

if（document . body . scroll left）

{ x = event . x+document . body . scroll left； y = event . y+document . body . scroll top； }

If (snow)

d style . left = x+offsetx-（width/2）；

d style . top = y+offsety；

}

///////////////////////////////////////////////////////////////////////////

Function initialization () {

//lunar calendar

dStyle = detail.style

CLD。 sy . selectedindex = tY- 1900；

CLD。 SM.selectedIndex = tM

draw CLD（tY，tM）；

}

//--& gt；

& lt/SCRIPT & gt；

& ltSTYLE type=text/css>。 TD {