vb如何调用计算机日历,VB日历代码.doc

VB日历代码

Type LunarInfo

iLorSMonth(13) As Integer '定义阴历大小月标志数组

iTotalDays As Integer '定义春节开始的天数

iLeapMonth As Integer '定义闰月的月份

bLeapYear As Boolean '定义闰年标志

End Type

Type LunarDate

strChinseEra As String * 4 '阴历年的干支

strLunarMonthName As String * 8 '阴历月份名称

strLunarDayName As String * 4 '阴历日子名称

strLunarAnimal As String * 2 '阴历年份属相

iLunarDay As Integer '阴历日子数值

iLunarMonth As Integer '阴历月份数值，如果是闰月，则返回负值

End Type

Public strHeavenlyStems(10) As String '定义天干数组

Public strEarthlyBranches(12) As String '定义地支数组

Public strAnimal(12) As String '定义属相数组

Public strZodiac As String '定义星座变量

Public strLunarMonthName(12) As String '定义阴历月份名称数组

Public strLunarDayName(30) As String '定义阴历日子名称数组

Public lLunarData(1900 To 2100) As Long '定义阴历信息数组

Public strSolarTerms(24) As String '定义二十四节气名称数组

Public dSolarTermsInfo(24) As Double '定义二十四节气信息数组

Public thisLunarInfo As LunarInfo '定义阴历信息记录体

Public thisLunardate As LunarDate '定义阴历日期记录体

'***************************************************************

'* 获取阴历年开始天数 *

'***************************************************************

Public Function GetLunarBeginDays(ByVal iYear As Integer) As Integer

Dim strbinLunarInfo As String

strbinLunarInfo = SetLunarBinStr(iYear)

If Len(strbinLunarInfo) > 19 Then

GetLunarBeginDays = Bin2Int(Mid(strbinLunarInfo, Len(strbinLunarInfo) - 18, 6))

Else

GetLunarBeginDays = Bin2Int(Mid(strbinLunarInfo, 1, Len(strbinLunarInfo) - 13))

End If

End Function

'***************************************************************

'* 获取阴历年日子数值子程序 *

'*******

vb如何调用计算机日历,VB日历代码.doc相关推荐

vb调用本地html,在VB中调用HTMLHELP文件VB -电脑资料
在 VB 中调用HTMLHELP文件湖北省襄樊市劳动保险处闫东 ---- HTML帮助文件是 WINDOWS 基本帮助系统的一种新标准,在WINDOWS 98中我们到处都可以看到它的身影, 在VB ...
计算机二级vb重点知识,计算机二级VB考试重点知识
计算机二级VB考试重点知识导语:VB为结构化的.模块化的.面向对象的.包含协助开发环境的事件驱动为机制的可视化程序设计语言.下面是计算机二级VB考试重点知识,欢迎参考! 程序代码的组织方式一个VB ...
计算机水平vb,2020年计算机等级VB考试强化练习题及答案
[导语]为了让大家及时有效的备考2020年计算机等级考试,下面无忧考网为您精心整理了2020年计算机等级VB考试强化练习题及答案,供大家的查阅.如想获取更多计算机等级考试的模拟题及备考资料,请关注无忧 ...
vb.net调用oracle存储过程,VB.net 调用带参数存储过程-.NET教程,VB.Net语言
–1:存储过程返回dataset 的例子: c# 代码 :通用类 public static int singlestcd(datetime starttime,datetime endtime,in ...
计算机考试VB内容,全国计算机考试VB上机重点.doc
全国计算机考试VB上机重点全国计算机考试VB上机重点.doc (2)在考生文件夹下有一个工程文件sjt4.vbp.在其窗体中"待选城市"下的List1列表框中有若干个城市名称.程序 ...
2020计算机二级取消vb,2020年计算机二级VB模拟试题及答案
<2020年计算机二级VB模拟试题及答案>由会员分享,可在线阅读,更多相关<2020年计算机二级VB模拟试题及答案(6页珍藏版)>请在人人文库网上搜索. 1.2020 年计算机 ...
计算机vb基础知识,计算机二级VB考试基础知识
计算机二级VB考试基础知识导语:VB是计算机等级考试二级中一门内容,为结构化的.模块化的.面向对象的.包含协助开发环境的事件驱动为机制的'可视化程序设计语言.下面是计算机二级VB考试重点知识,欢迎参 ...
朔日科技计算机考试VB,2017年计算机二级VB考试题及答案
2017年计算机二级VB考试题及答案D.July-97 9:21:30 3.以下程序段运行的结果为(C)(单) Private Sub Form_Click( ) MyDate = #7/21/199 ...
江苏省计算机二级vb分值,江苏省计算机二级vb基本知识点总结.doc
江苏省计算机二级vb基本知识点总结常量常量(也称常数),是在程序运行期间其值始终保持不变的量.注意π不是常量. 定义常量的语法格式:[Public|Private]Const 常量名[As数据类型 ...
北邮计算机实习网络爬虫设计报告,北邮计算机实习报告(含代码).doc
北邮计算机实习报告(含代码) 计算机实习报告学院: 班级: 学号序号: 姓名: 目录一.魔方阵4 1.实验要求4 2.设计4 3.流程图4 4.功能实现5 5.应用5 6.界面5 二.动画设计6 ...

vb如何调用计算机日历,VB日历代码.doc

vb如何调用计算机日历,VB日历代码.doc相关推荐

最新文章

热门文章