相关推荐

一个VB阴历－阳历转换的控件（带实例）

同题，无源码。只有Dll。

iOS 总结

// 截屏 //    UIGraphicsBeginImageContext(self.view.frame.size); //    [self.view.layer renderInContext:UIGraphicsGetCurrentContext()]; //    UIImage *viewImage = UIGraphicsGetImageFromCurrentImageConte

用VBA脚本实现由农历日期转换为公历日期

关于农历日期转换公历的日期方法在网上也查找一下，但是没有找到解决方法，最后参照网上一个VBA写的公历日期转换农历日期的代码，进行逆向的修改，自己写了一个农历日期转换公历日期的VBA方法，以便能够在Excel文件中使用。 1、农...

转载-公历转换农历VB示例

Option Explicit Private LunarInfo(1 To 150) As Double '从1900-2049年这150年的农历信息码 Private SolarMonth(1 To 12) As Integer '阳历12个月的天数 Private Gan(1 To 10) As String '农历的天干 Private Zhi(1 To 12) As Stri...

EXCEL-VBA函数：公历转农历，返回格式YYYY-MM-DD

VBA调用：MsgBox Gong2Lunar("2020-02-27") 公式调用＝Gong2Lunar("2020-02-27") Public Function Gong2Lunar(Optional Gong As Date) As String Dim MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang...

vb 万年历 代码

VERSION 5.00 Begin VB.Form Form2 Caption = "万年历" ClientHeight = 7035 ClientLeft = 4485 ClientTop = 3675 ClientWidth = 8025 LinkTopic = "Form2" MaxButton = 0 'False ScaleHeight .

VB.NET的阳历与农历转换的算法

下面是一个关于VB的农历算法 日期数据定义方法如下 前12个字节代表1-12月为大月或是小月，1为大月30天，0为小月29天； 第13位为闰月的情况，1为大月30天，0为小月29天； 第14位为闰月的月份，如果不是闰月为0，否则给出月份，10、11、12分别用A、B、C来表示，即使用16进制； 最后4位为当年家农历新年-即农历1月1日所在公历的日期，如0131代表1月31日。 Fun

EXCEL-VBA函数：农历转公历，格式YYYY-MM-DD

VBA调用：MsgBox Lunar2Gong("1981-07-27") 公式调用：Lunar2Gong("1981-07-27") Public Function Lunar2Gong(Optional Lunar As Date) Dim LunarYear, LunarMonth, LunarDay Dim NongliData(100) '农历数据 ...

农历

function nl(){ //获取当前系统时间 curTime = new Date(); //星期名 var weekName= "星期日,星期一,星期二,星期三,星期四,星期五,星期六".split(/,/g); //天干名称 var tianGang = "甲,乙,丙,丁,戊,己,庚,辛,壬,癸".split(/,/g); //地支名称 var diZhi = "子,丑,

python公历转农历_python 阳历转阴历代码(2)

main.py#!/usr/bin/env python# -*- coding: utf-8 -*-#给出阳历日期转换成阴历日期import mathfrom daysbetween import my_distance_DAYdef GetDayOf(st):#–天干名称cTianGan = ["甲","乙","丙","丁","戊","己","庚","辛","壬","癸"]#–地支名称cDiZ...

VFP公历农历转换程序.rar

一个小小的VFP表单编程，公历农历转换程序，转载，欢迎下载

ASP 阳历转阴历

此代码为ASP代码，可以把当前日期或者指定阳历日期(必须为1921-2-8以后)转换为对应阴历月和日，此代码不是原创，是经过修改《纯ASP代码之公历转农历实现(含属相)》而得到的，感谢原作者提供代码分享 注：阴历没有显示年，这个简单，判断一下阴历的月大于阳历的月的话就是阳历年份的前一年，不然就和阳历同年 1.建立一个asp页面,命名为yy.asp，保存阳历转阴历函数方便调用，完整代码如...

VB农历转换,自编阳历与农历转换程序

摘要:VB源码,其它类别,日历转换,农历转换 农历转换,自编简单阳历与农历转换小程序，公历与农历之间的日期转换，有节日。菜鸟练手请多多包涵。使用方法，在窗口中先把需要转换的日期即可，选择后会自动在窗口下方显示农历和属相信息，比较简单。 运行环境：Windows/VB6

VB阳历转阴历

Option ExplicitDim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12)Dim CurTime, curYear, curMonth, curDay, curWeekdayDim GongliStr, WeekdayS...

mysql 获取农历年份_ASP获取农历日期程序代码

dimWeekName(7),MonthAdd(11),NongliData(99),TianGan(9),DiZhi(11),ShuXiang(11),DayName(30),MonName(12)dimcurTime,curYear,curMonth,curDay,curWeekdaydimGongliStr,WeekdayStr,NongliStr,Nongl...

Excel阳历转农历VBA函数

使用方法如下： 1、在Excel工作表界面下同时按Alt+F11键，打开VBA窗口，进入VBA编辑环境，在菜单中点击“插入-模块”，在当前窗口编辑区域中输入自定义函数代码，代码见下文。复制粘贴代码后，将窗口关闭。 2、在A1单元格中输入阳历日期，再在另一个单元格输入公式=NongLi(A1)，就可以自动将阳历转换成农历了。 Public Function NongLi(Optional xx_date As Date)Dim MonthAdd(11), NongliD...

纯ASP代码之公历转农历实现(含属相)

Option Explicit*********************************************** 类名称：ChinaDay 用途：  根据输入的日期计算该日期的农历天干地支及当年属相 使用方法： 第一个参数为输入参数，不填写默认为当日， 只计算1921-2-8之后的日期 ##---------------------------------------

vb公历计算农历的函数

用法： 以l开始的方法均为阴历，以s开始的方法均为公历 基本的两个初使函数： lInitDate：用农历年月日初使化日期对象 sInitDate: 用公历年月日初使化日期对象