varsoft

常用函数集农历函数

常用函数集
农历函数
原来是vb代码，重新整理为VB.NET版的，并在VS2003中编译通过

Imports System.Math

Public Class UCnCalendar

Private Structure SolarHolidayStruct
Dim Month As Integer
Dim Day As Integer
Dim Recess As Integer
Dim HolidayName As String
End Structure

Private Structure LunarHolidayStruct
Dim Month As Integer
Dim Day As Integer
Dim Recess As Integer
Dim HolidayName As String
End Structure

Private Structure WeekHolidayStruct
Dim Month As Integer
Dim WeekAtMonth As Integer
Dim WeekDay As Integer
Dim HolidayName As String
End Structure

'保持属性值的局部变量
Private mvarSolarYear As Integer '局部复制
Private mvarSolarMonth As Integer '局部复制
Private mvarSolarDay As Integer'局部复制
Private mvarLunarYear As Integer '局部复制
Private mvarLunarMonth As Integer '局部复制
Private mvarLunarDay As Integer'局部复制
Private mvarIsLeap As Boolean '局部复制

Private mvarDate As Date'内部使用标准的日期变量

'定义类内部用公用变量
Private SolarMonthObject As Object '每月最多天数

Private mvarLunarGan As Object '天干
Private mvarLunarZhi As Object '地支
Private mvarLunarAnimals As Object '生肖
Private mvarLunarTerm As Object '节气
Private mvarLunarTermInfo As Object

Private MonthName As Object '英文月名
Private LunarInfo(150) As Integer
Private LunarYearDays(150) As Integer
Private SolarHolidayInfo() As SolarHolidayStruct
Private LunarHolidayInfo() As LunarHolidayStruct
Private WeekHolidayInfo() As WeekHolidayStruct

Private nStr1 As Object
Private nStr2 As Object

Public Sub New()
'Dim tempArray As Object
Dim i As Integer
Dim b As Integer
'Dim sFtv As Object
'Dim lFtv As Object
'Dim wFtv As Object

'根据VB的位计算特点,故扩充原有的数据位,将其变成32位
Dim tempArray() As Object = { _
 &H104BD8, &H104AE0, &H10A570, &H1054D5, &H10D260, &H10D950, &H116554, &H1056A0, &H109AD0, &H1055D2, _
 &H104AE0, &H10A5B6, &H10A4D0, &H10D250, &H11D255, &H10B540, &H10D6A0, &H10ADA2, &H1095B0, &H114977, _
 &H104970, &H10A4B0, &H10B4B5, &H106A50, &H106D40, &H11AB54, &H102B60, &H109570, &H1052F2, &H104970, _
 &H106566, &H10D4A0, &H10EA50, &H106E95, &H105AD0, &H102B60, &H1186E3, &H1092E0, &H11C8D7, &H10C950, _
 &H10D4A0, &H11D8A6, &H10B550, &H1056A0, &H11A5B4, &H1025D0, &H1092D0, &H10D2B2, &H10A950, &H10B557, _
 &H106CA0, &H10B550, &H115355, &H104DA0, &H10A5D0, &H114573, &H1052D0, &H10A9A8, &H10E950, &H106AA0, _
 &H10AEA6, &H10AB50, &H104B60, &H10AAE4, &H10A570, &H105260, &H10F263, &H10D950, &H105B57, &H1056A0, _
 &H1096D0, &H104DD5, &H104AD0, &H10A4D0, &H10D4D4, &H10D250, &H10D558, &H10B540, &H10B5A0, &H1195A6, _
 &H1095B0, &H1049B0, &H10A974, &H10A4B0, &H10B27A, &H106A50, &H106D40, &H10AF46, &H10AB60, &H109570, _
 &H104AF5, &H104970, &H1064B0, &H1074A3, &H10EA50, &H106B58, &H1055C0, &H10AB60, &H1096D5, &H1092E0, _
 &H10C960, &H10D954, &H10D4A0, &H10DA50, &H107552, &H1056A0, &H10ABB7, &H1025D0, &H1092D0, &H10CAB5, _
 &H10A950, &H10B4A0, &H10BAA4, &H10AD50, &H1055D9, &H104BA0, &H10A5B0, &H115176, &H1052B0, &H10A930, _
 &H107954, &H106AA0, &H10AD50, &H105B52, &H104B60, &H10A6E6, &H10A4E0, &H10D260, &H10EA65, &H10D530, _
 &H105AA0, &H1076A3, &H1096D0, &H104BD7, &H104AD0, &H10A4D0, &H11D0B6, &H10D250, &H10D520, &H10DD45, _
 &H10B5A0, &H1056D0, &H1055B2, &H1049B0, &H10A577, &H10A4B0, &H10AA50, &H11B255, &H106D20, &H10ADA0}

For i = 0 To 149
LunarInfo(i) = tempArray(i)
Next

tempArray = New Object() { _
 384, 354, 355, 383, 354, 355, 384, 354, 355, 384, _
 354, 384, 354, 354, 384, 354, 355, 384, 355, 384, _
 354, 354, 384, 354, 354, 385, 354, 355, 384, 354, _
 383, 354, 355, 384, 355, 354, 384, 354, 384, 354, _
 354, 384, 355, 354, 385, 354, 354, 384, 354, 384, _
 354, 355, 384, 354, 355, 384, 354, 383, 355, 354, _
 384, 355, 354, 384, 355, 353, 384, 355, 384, 354, _
 355, 384, 354, 354, 384, 354, 384, 354, 355, 384, _
 355, 354, 384, 354, 384, 354, 354, 384, 355, 355, _
 384, 354, 354, 383, 355, 384, 354, 355, 384, 354, _
 354, 384, 354, 355, 384, 354, 385, 354, 354, 384, _
 354, 354, 384, 355, 384, 354, 355, 384, 354, 354, _
 384, 354, 355, 384, 354, 384, 354, 354, 384, 355, _
 354, 384, 355, 384, 354, 354, 384, 354, 354, 384, _
 355, 355, 384, 354, 384, 354, 354, 384, 354, 355}

For i = 0 To 149
LunarYearDays(i) = tempArray(i)
Next

SolarMonthObject = New Object() {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}
mvarLunarGan = New Object() {"甲", "乙", "丙", "丁", "戊", "己", "庚", "辛", "壬", "癸"}
mvarLunarZhi = New Object() {"子", "丑", "寅", "卯", "辰", "巳", "午", "未", "申", "酉", "戌", "亥"}
mvarLunarAnimals = New Object() {"鼠", "牛", "虎", "兔", "龙", "蛇", "马", "羊", "猴", "鸡", "狗", "猪"}
mvarLunarTerm = New Object() {"小寒", "大寒", "立春", "雨水", "惊蛰", "春分", "清明", "谷雨", "立夏", "小满", "芒种", "夏至", "小暑", "大暑", "立秋", "处暑", "白露", "秋分", "寒露", "霜降", "立冬", "小雪", "大雪", "冬至"}
mvarLunarTermInfo = New Object() {0, 21208, 42467, 63836, 85337, 107014, 128867, 150921, 173149, 195551, 218072, 240693, 263343, 285989, 308563, 331033, 353350, 375494, 397447, 419210, 440795, 462224, 483532, 504758}
nStr1 = New Object() {"日", "一", "二", "三", "四", "五", "六", "七", "八", "九", "十"}
nStr2 = New Object() {"初", "十", "廿", "卅", "　"}
MonthName = New Object() {"JAN", "FEB", "MAR", "APR", "MAY", "JUN", "JUL", "AUG", "SEP", "OCT", "NOV", "DEC"}

'国历节日 *表示放假日
Dim sFtv() As Object = { _
 1, 1, 1, "元旦", _
 2, 14, 0, "情人节", _
 2, 10, 0, "国际气象节", _
 3, 18, 0, "妇女节", _
 3, 12, 0, "植树节", _
 3, 15, 0, "消费者权益日", _
 4, 1, 0, "愚人节", _
 5, 1, 1, "劳动节", _
 5, 4, 0, "青年节", _
 5, 12, 0, "护士节", _
 5, 31, 0, "世界无烟日", _
 6, 1, 1, "儿童节", _
 7, 1, 0, "建党节香港回归纪念", _
 8, 1, 0, "建军节", _
 8, 8, 0, "中国男子节父亲节", _
 9, 9, 0, "逝世纪念", _
 9, 10, 0, "教师节", _
 9, 18, 0, "九·一八事变纪念日", _
 9, 28, 0, "孔子诞辰", _
 10, 1, 1, "国庆节国际音乐日", _
 10, 6, 0, "老人节", _
 10, 24, 0, "联合国日", _
 11, 12, 0, "孙中山诞辰纪念", _
 12, 1, 0, "世界艾滋病日", _
 12, 3, 0, "世界残疾人日", _
 12, 20, 0, "澳门回归纪念", _
 12, 24, 0, "平安夜", _
 12, 25, 0, "圣诞节", _
 12, 26, 0, "诞辰纪念"}

b = UBound(sFtv) + 1
ReDim SolarHolidayInfo(b / 4)
For i = 0 To (b / 4) - 1
SolarHolidayInfo(i).Month = sFtv(i * 4)
SolarHolidayInfo(i).Day = sFtv(i * 4 + 1)
SolarHolidayInfo(i).Recess = sFtv(i * 4 + 2)
SolarHolidayInfo(i).HolidayName = sFtv(i * 4 + 3)
Next

'农历节日 *表示放假日
Dim lFtv() As Object = { _
 1, 1, 1, "春节弥勒佛圣诞", _
 1, 6, 0, "定光佛圣诞", _
 1, 15, 1, "元宵节", _
 2, 8, 0, "释迦牟尼佛出家", _
 2, 9, 0, "海空上师生日", _
 2, 15, 0, "释迦牟尼佛涅槃", _
 2, 19, 0, "观世音菩萨圣诞", _
 2, 21, 0, "普贤菩萨圣诞", _
 3, 4, 0, "清海上师圆寂日", _
 3, 16, 0, "准提菩萨圣诞", _
 4, 4, 0, "文殊菩萨圣诞海空上师出家", _
 4, 8, 0, "释迦牟尼佛圣诞", _
 4, 15, 0, "佛吉祥日", _
 5, 5, 0, "端午节", _
 5, 13, 0, "伽蓝菩萨圣诞", _
 6, 3, 0, "护法韦驮尊天菩萨圣诞", _
 6, 19, 0, "观世音菩萨成道", _
 7, 7, 0, "七夕情人节", _
 7, 13, 0, "大势至菩萨圣诞", _
 7, 15, 0, "中秋节盂兰盆节", _
 8, 22, 0, "燃灯佛圣诞", _
 7, 24, 0, "龙树菩萨圣诞", _
 7, 30, 0, "地藏菩萨圣诞", _
 8, 15, 0, "中秋节", _
 9, 9, 0, "重阳节", _
 9, 19, 0, "观世音菩萨出家纪念日", _
 9, 30, 0, "药师琉璃光如来圣诞", _
 10, 5, 0, "达摩祖师圣诞", _
 11, 7, 0, "阿弥陀佛圣诞", _
 12, 8, 0, "腊八节释迦如来成道日", _
 12, 24, 0, "小年", _
 12, 29, 0, "华严菩萨圣诞"}
'12, 31, 0, "除夕") '注意除夕需要其它方法进行计算

b = UBound(lFtv) + 1
ReDim LunarHolidayInfo(b / 4)
For i = 0 To (b / 4) - 1
LunarHolidayInfo(i).Month = lFtv(i * 4)
LunarHolidayInfo(i).Day = lFtv(i * 4 + 1)
LunarHolidayInfo(i).Recess = lFtv(i * 4 + 2)
LunarHolidayInfo(i).HolidayName = lFtv(i * 4 + 3)
Next

'某月的第几个星期几
Dim wFtv() As Object = { _
5, 2, 1, "国际母亲节", _
5, 3, 1, "全国助残日", _
6, 3, 1, "父亲节", _
9, 3, 3, "国际和平日", _
9, 4, 1, "国际聋人节", _
10, 1, 2, "国际住房日", _
10, 1, 4, "国际减轻自然灾害日", _
11, 4, 5, "感恩节"}

b = UBound(wFtv) + 1
ReDim WeekHolidayInfo(b / 4)
For i = 0 To (b / 4) - 1
WeekHolidayInfo(i).Month = wFtv(i * 4)
WeekHolidayInfo(i).WeekAtMonth = wFtv(i * 4 + 1)
WeekHolidayInfo(i).WeekDay = wFtv(i * 4 + 2) '1 代表星期天
WeekHolidayInfo(i).HolidayName = wFtv(i * 4 + 3)
Next
End Sub

'/////////////////////////////////////////////////////////////////////////////////////////////////////////////
'计算农历上的节气
ReadOnly Property LunarTerm() As String
Get
'//===== 某年的第n个节气为几日(从0小寒起算)
'function sTerm(y,n) {
' var offDate = new Date( ( 31556925974.7*(y-1900) + LunarTermInfo[n]*60000 ) + Date.UTC(1900,0,6,2,5) )
' return(offDate.getUTCDate())
'//节气
' tmp1 = sTerm(y, m * 2) - 1

Dim baseDateAndTime As Date
Dim newDate As Date
Dim num As Double
Dim y As Integer
Dim tempStr As String

baseDateAndTime = #1/6/1900 2:05:00 AM#
y = mvarSolarYear
tempStr = ""

Dim i As Integer
For i = 1 To 24
num = 525948.76 * (y - 1900) + mvarLunarTermInfo(i - 1)
newDate = DateAdd("n", num, baseDateAndTime) '按分钟计算,之所以不按秒钟计算，是因为会溢出
If Abs(DateDiff("d", newDate, mvarDate)) = 0 Then
tempStr = mvarLunarTerm(i - 1)
Exit For
End If
Next

LunarTerm = tempStr
End Get
End Property

'计算按第几周星期几计算的节日
ReadOnly Property WeekHoliday() As String
Get
Dim w As Integer
Dim i As Integer
Dim b As Integer
Dim FirstDay As Date
Dim tempStr As String

b = UBound(WeekHolidayInfo)
For i = 0 To b
If WeekHolidayInfo(i).Month = mvarSolarMonth Then '当月份相当时
w = Weekday(mvarDate)
If WeekHolidayInfo(i).WeekDay = w Then '仅当星期几也相等时
FirstDay = mvarSolarMonth & "/" & 1 & "/" & mvarSolarYear '取当月第一天
If (DateDiff("ww", FirstDay, mvarDate) = WeekHolidayInfo(i).WeekAtMonth) Then
tempStr = WeekHolidayInfo(i).HolidayName
End If
End If
End If
Next

WeekHoliday = tempStr
End Get
End Property

ReadOnly Property LunarHoliday() As String
Get
Dim i As Integer
Dim b As Integer
Dim tempStr As String
Dim oy As Integer
Dim odate As Date
Dim ndate As Date

tempStr = ""
b = UBound(LunarHolidayInfo)
If mvarLunarMonth = 12 And (mvarLunarDay = 29 Or mvarLunarDay = 30) Then

oy = mvarLunarYear '保存农历年数
odate = mvarDate
ndate = mvarDate.AddDays(1)
Call SolarInitDate(Year(ndate), Month(ndate), Microsoft.VisualBasic.DateAndTime.Day(ndate)) '计算第二天的属性
If oy = mvarLunarYear - 1 Then '如果农历年数增加了1
tempStr = "除夕"
Call SolarInitDate(Year(odate), Month(odate), Microsoft.VisualBasic.DateAndTime.Day(odate)) '恢复到今天原有数据

End If
Else
For i = 0 To b
If (LunarHolidayInfo(i).Month = mvarLunarMonth) And _
 (LunarHolidayInfo(i).Day = mvarLunarDay) Then
tempStr = LunarHolidayInfo(i).HolidayName
Exit For
End If
Next
End If
LunarHoliday = tempStr
End Get
End Property

'求公历节日
ReadOnly Property SolarHoliday() As String
Get
Dim i As Integer
Dim b As Integer
Dim tempStr As String

tempStr = ""
b = UBound(SolarHolidayInfo)
For i = 0 To b
If (SolarHolidayInfo(i).Month = mvarSolarMonth) And _
 (SolarHolidayInfo(i).Day = mvarSolarDay) Then
tempStr = SolarHolidayInfo(i).HolidayName
Exit For
End If
Next
SolarHoliday = tempStr
End Get
End Property

'是否是农历的闰月
ReadOnly Property IsLeap() As Boolean
Get
IsLeap = mvarIsLeap
End Get
End Property

ReadOnly Property LunarDay() As Integer
Get
LunarDay = mvarLunarDay
End Get
End Property

ReadOnly Property LunarMonth() As Integer
Get
LunarMonth = mvarLunarMonth
End Get
End Property

ReadOnly Property LunarYear() As Integer
Get
LunarYear = mvarLunarYear
End Get
End Property

ReadOnly Property SolarWeekDay() As Integer
Get
SolarWeekDay = Weekday(mvarDate)
End Get
End Property

ReadOnly Property SolarDay() As Integer
Get
SolarDay = mvarSolarDay
End Get
End Property

ReadOnly Property SolarMonth() As Integer
Get
SolarMonth = mvarSolarMonth
End Get
End Property

ReadOnly Property SolarYear() As Integer
Get
SolarYear = mvarSolarYear
End Get
End Property

'////////////////////////////////////////////////////////////////////////////////////////////////////////
Public Function IsToday(ByVal y As Integer, ByVal m As Integer, ByVal d As Integer) As Boolean

If (Year(Today) = y) And _
 (Month(Today) = m) And _
 (Microsoft.VisualBasic.DateAndTime.Day(Today) = d) Then
IsToday = True
Else
IsToday = False
End If

End Function

'根据年份不同计算当年属于什么朝代
Public Function CNEra(ByVal y As Integer) As String
Dim tempStr As String

If y < 1874 Then
tempStr = "未知"
Else
If y <= 1908 Then
tempStr = "清朝光绪"
If y = 1874 Then
tempStr = tempStr & "元年"
Else
tempStr = tempStr & CNNumber(CStr(y - 1874)) & "年"
End If
Else
If y <= 1910 Then
tempStr = "清朝宣统"
If y = 1909 Then
tempStr = tempStr & "元年"
Else
tempStr = tempStr & CNNumber(CStr(y - 1909 + 1)) & "年"
End If
Else
If y < 1949 Then
tempStr = "中华民国"
If y = 1912 Then
tempStr = tempStr & "元年"
<!--/ubb

你可能感兴趣的:(Microsoft,音乐,vb,VB.NET)

抖音乐买买怎么加入赚钱?赚钱方法是什么测评君高省
你会在抖音买东西吗?如果会，那么一定要免费注册一个乐买买，抖音直播间，橱窗，小视频里的小黄车买东西都可以返佣金!省下来都是自己的，分享还可以赚钱乐买买是好省旗下的抖音返佣平台，乐买买分析社交电商的价值，乐买买属于今年难得的副业项目风口机会，2019年错过做好省的搞钱的黄金时期，那么2022年千万别再错过乐买买至于我为何转到高省呢？当然是高省APP佣金更高，模式更好，终端用户不流失。【高省】是一个自
那个抄袭的大张伟猫小努
最近一直在追《即刻电音》这个综艺，除了觉得出场节目的音乐制作人有意思之外，也觉得有两个导师挺有趣的（另外一个就忽略了吧）。孙艺兴在上一篇文章里面已经说过了，那么这篇就说说我们的大老师，大张伟吧。其实在节目刚开始大张伟出来的时候，我以为他是属于导师里面来活跃气氛负责搞笑的，毕竟孙艺兴属于卖萌卖傻卖老实的，尚雯婕一般负责装逼耍狠的，而大张伟一贯以来上综艺的形象基本上都是蹦蹦跳跳带动气氛的。谁知道，两期
与陌生人链接16 盼盼_9ba9
今天早上上班到下午下班，没有见到一个陌生人，但是与一个陌生人通电话了，他是师大音乐学院副院长，钢琴专业老师，想要找他给女儿教钢琴，昨天晚上我给他打了一个电话，他说他不教我家姑娘这样级别的孩子，我家姑娘刚刚学了10个月，也就一级的水平，而且说现在他们周末都上班，也没有时间，不知道什么原因，他说让我今天给他打电话看看孩子，今天我7点给他打电话，他说还在开会，8点半给他打电话他说刚刚散会！约我明天晚上8
继续《时光音乐会》湘梅子
平安夜，与我无关。晚饭后陪孙子玩，直到他入睡。回家，看期待的周五《时光音乐会》。今天的庄主是郁可唯。出道十多年，竟然为影视唱了八十多首歌。她的歌声很温暖，有时还很空灵，声音处理很细腻，听起来很享受。原来《知否，知否》是她原唱，当时电视剧很火，歌我也学会了。我也喜欢她的《路过人间》歌友们谈笑风生，我这个观众也不时会心笑着。每次看完这个节目，总是意犹未尽。也只有这个节目，我先生有兴趣跟我一起看完，还总
如何用matlab灵活控制feko的求解 NingrLi matlab 开发语言
https://bbs.rfeda.cn/read.php?tid=3778Feko中的模型和求解设置等都可以通过editfeko进行设置，其文件存储为.pre文件，该文件可以用文本打开，因此，我们可以通过VB、VC、matlab等工具对.pre文件进行读写操作，以达到更灵活的使用feko。同样，对于.out文件，我们也可以进行读操作。熟练使用对.pre文件和.out文件的操作后，我们可以方便的计
4 大低成本娱乐方式: 小说, 音乐, 视频, 电子游戏穷人小水滴娱乐音视频低成本小说游戏
穷人如何获得快乐?小说,音乐,视频,游戏,本文简单盘点一下这4大低成本(安全)娱乐方式.这里是穷人小水滴,专注于穷人友好型低成本技术.(本文为58号作品.)目录1娱乐方式1.1小说(网络小说)1.2音乐1.3视频(b站)1.4游戏(电子游戏/计算机软件)2低成本:一只手机即可3总结与展望1娱乐方式这几种,也可以说是艺术的具体形式.更专业的说,(娱乐)是劳动力再生产的重要组成部分.使人放松,获得快乐
《海思沧海诗集》（2022年）如果没有你（170）海思沧海
如果没有你文/海思沧海或许我还没有去认真去想过，只是早已经习惯你的一切就像我们在不自觉中遇见，在不自觉中走过那么多年又到雨季，或许我们还会想起曾经的雨季或许生活只是平平常常，只是守候着曾经的那份甜蜜就像每一次你告诉我梦中的故事，或许一辈子时间并不是很长一切还没来得及感受，好像错过很多很多。就在阴雨连绵的雨季也许还可以记得曾经的古镇，那音乐穿过的夜空如果所有的恋情都是因为那份喜欢，永远无法改变的感觉
【Golang】使用 Golang 语言和 excelize 库将数据写入Excel 不爱洗脚的小滕 golang excel 开发语言
文章目录前言一、Excelize简介二、代码实现1.获取依赖2.示例代码三、总结前言在数据处理和分析中，Excel作为一种常见的电子表格格式，被广泛应用于各种场景。然而，如何在Go语言中有效地处理Excel文件呢？在这篇博客中，我将介绍如何使用Go语言和excelize库将数据写入Excel文件。一、Excelize简介Excelize是一个用于读取和写入MicrosoftExcel™(XLSX)
DVBS 卫星波段设置晨春计 TV Android TV android
目录背景DVBS介绍LNB(LowNoiseBlock)LNBC(LowNoiseBlockController)Tuner接收频率范围卫星波段范围卫星波段降频Ku波段降频C波段降频码流机和DVBS菜单设置背景不经常使用DVBS频率设置，容易忘记，整理如下。DVBS介绍在DVBS/S2信号通过同轴线进入电视/机顶盒的同时，LNBC会通过同轴线向外输出0/22K，13V/18V等信号，以控制LNB的
管理员权限的软件不能开机自启动的解决方法 ss_ctrl
这是几种解决方法：1.将启动参数写入到32位注册表里面去在64位系统下我们64位的程序访问此HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run注册表路径，是可以正确访问的，32位程序访问此注册表路径时，默认会被系统自动映射到HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft
从“大师是怎样炼成的”学习“普通人如何修炼成功” 麦田里的风声
梅兰芳，八岁学青衣，开始学四句最简单的，他却花了很长时间也唱不上来，气得老师拂袖而去，说：“祖师爷没赏你饭吃！”这是梨园界的话儿，意思就是你完全不是唱戏的材料。但是，日后，他不仅与程砚秋、尚小云、荀慧生并称“四大名旦”，而且经过长期的舞台实践，对京剧旦角的唱腔、念白、舞蹈、音乐、服装、化妆等各方面都有所创造发展，形成了自己的艺术风格，世称“梅派”。作为一名普通的读者，阅读《梅兰芳：舞台生活四十年》
WORD批量转换器MultiDoc Converter uolian 工作 word
WORD批量转换器MultiDocConverterhttps://www.52pojie.cn/thread-1318745-1-1.html可批量将doc、docx等文件格式转成doc、docx、pdf、rtf、txt、html、epub等格式。安装包下载地址：https://wws.lanzouj.com/irvVbiz0pkd最终下载文件打包地址（未作成单文件，不确定是否可以直接使用）：h
猫叔分享课有感我是可乐姐呢
一、发心利他，利他还是利他，只能利他才能让自己的内心变的强大；你的成就有多大取决于你成就多少人，帮助别人成就自己。二、金钱的作用钱可以解决掉大部的烦恼，有足够的钱才有足够的底气，努力赚钱很重要；三、卖的重要性卖是最好的学，卖的过程中，自己提升是非常快的，内心也会因此而变的强大；四、独处和自我反省爱自己，每个月给自己一个独自的时间，发发呆，静静的喝杯茶，听听音乐，神游一下；复盘一下自己近期所做的事情
当野鸡“心理学”变成赚钱的工具 Z小姐不吐不快
今日乘车闲来无事便听起了电台（可在网易云音乐搜索「报刊选读」，点击20180212那一期），听罢，不禁感叹，怪不得「洗稿惯犯」周冲说，“与其教育傻逼，不如赚傻逼点钱。”哎，如果我没啥良心，估计也能赚这钱了。▲图片摘自六神磊磊读金庸《今儿就从头彻底扒一下周冲，看是什么成色》头痛、脚痛，不管是哪里痛，家排疗法总会告诉你，身体的每一处疼痛都喻示着你的“心事”影响身体健康，只要找出病因，无论疼痛还是癌症都
汇总相同清单工程量的进一步思考-对清单去重精简寻找签证的可能性极算手
工程情景当我们遇到单项工程里包含多个单位工程，比如别墅群、住宅群等同一户型同一项目施工做法都一样同一清单特征严格意义讲描述做法应当唯一实际工作中我们可能遇到即使在同一单位工程中同一项目清单特征描述可能也不一样那我们如何在众多清单特征中寻找同一做法的不同清单描述呢？操作方法可能千千万万我个人尝试下来还是利用VBA最为便捷去重操作几千条清单中重复的清单高能高达上千条直接查找对比必然耗费大量时间精力首一
飘雪朱曦侦探事务所
我抖动着黑色大衣，拍落附在上面的白雪，而思维沉浸在《雪の华》的音乐中，沿着大街，走在这寒冷的深夜。偶尔飞驰过的汽车带起了很多风雪，使我大衣乱飘，也吹进我的眼睛，朦胧了前面的路。两边的路灯泛出橙黄色的光，把附近的雪染上了颜色，仅剩几缕可怜的红光落到了我的身上，眼前的一片白色加重了我的步伐。大雪随风卷起，我的眼神凝望着风雪交加的深处，一个比雪色白、雪点子大的影子正向我靠近。我怀疑是自己被雪拍打的眼睛错
SAP B1 Web Client & MS Teams App集成连载一：先决条件/Prerequisites 哲讯智能科技大数据科技
一、先决条件/Prerequisites在设置SAPBusinessOne应用之前，确保您已具备以下各项：BeforeyousetuptheSAPBusinessOneapp,makesureyouhaveacquiredthefollowing:1.MicrosoftTeams管理员账户/AMicrosoftTeamsadminaccount您需要使用此账户为贵组织上传、安装、升级和卸载应用Th
The sharp of walter 西夏无双贝
水形物语，今天在火车上看的，不愧是今年的奥斯卡最佳影片，音乐真的是非常好听，影片之后真是发人深思，让我印象深刻。世上没有怪物，只有不一样的个体，相貌，体态，性格，人性都可以不一样，你可以是不完整的，有缺点，但是我爱你，无论你是什么，无论你有什么缺点，在我心中都是我爱你的一部分，大爱无疆。
音乐浩瀚蓝天78
音乐一直以来，都是我无法攻克的难题，没有专业的老师的指导，这条学习的路我自己走的比较漫长，但是还是下定决心挑战一下自己。擦拭完我的尤克里里，调音，开始爬格子的练习，虽然枯燥，但是也是为以后打基础，过程并没有想象的那么简单，手指僵硬，不分路，按压不住，琴音断断续续的发出，我乐在其中，殊不知身边人要顶着多大的压力忍受这个过程啦！图片发自App躺下来闭上眼睛想着过去的四十年，虽然辛苦，但是过得并不精彩，
通过C# 裁剪PDF页面 Eiceblue C#.NET PDF c#pdf 开发语言 visual studio
在处理PDF文档时，有时需要精确地裁剪页面以适应特定需求，比如去除广告、背景信息或者仅仅是为了简化文档内容。本文将指导如何使用免费.NET控件通过C#实现裁剪PDF页面。免费库FreeSpire.PDFfor.NET支持在.NET(C#,VB.NET,ASP.NET,.NETCore)程序中实现创建、操作、转换和打印PDF文档等操作。可以从以下链接下载产品包后手动添加引用，或者直接通过NuGet安
日记——我的歌单静若小猴
又到一年一度大数据汇总的时候了，听歌已经成为很多人生活里的一种乐趣。春夏秋冬，我们都有自己喜欢的歌，歌词歌曲唱出沃尔玛你的心声。还记得大学时候最喜欢听的《春天里》，我有一天单曲回放了30遍，总觉得听着仿佛看到自己声音。还有的歌，初听不知曲中意，再听已经是曲终人，听着歌流泪，听着歌入睡……还记得那些年少的故事吗，总觉得自己才是故事外的人，却不是自己已经入歌。一段时间会喜欢一个人的音乐，一段时间会沉静
故事||致爱上一个人译垚
有时候，一首不出名，也不算很好听的歌曲，歌词和对白，与身边的一些故事，是那么的相似，人生有多少的故事，疼痛溶在一首音乐里......原创文/译垚网图致谢原创者侵删故事||致爱上一个人痛苦不需要预演爱时，撕心裂肺有多傲娇和狠心把真心爱你的人，伤得彻底为爱一个人，思念决堤浪潮无情的淹没真心抓住最后一根稻草，为等待硬撑泪水是睡前那声晚安哭泣一直不肯入眠幻影，均在梦中迈出脚步才知远方没有终点爱被拒千里之外
她是三国的才女，曹操对她刮目相待，关于她的丈夫仍在争议韩奈戴
在中国古代，女子受到封建制度的压迫，有才又有名的女性寥寥无几。最著名的莫过于宋朝婉约派代表的女词人李清照，西汉时期的卓文君等。接下来笔者要给大家说的这位女子，她是汉末三国时期的才女，喜欢吟诗作画，精通琴艺，擅长书法，她才华横溢，曹操对她刮目相看，但是关于她的丈夫现在仍有争议。图片发自App她的名字叫蔡琰，字文姬，今河南人，东汉时期著名的女性文学家。英气逼人，才华横溢，她擅长文学，书法，音乐。尤其是
2023-5-12晨间日记艾美的日常
今天是什么日子：星期五起床：8：20就寝：2：00天气：阴心情：平纪念日：任务清单昨日完成的任务，最重要的三件事：1.写晚间习惯，晨间习惯2.晚上23点后不看电子产品3.23：30开始躺床上睡觉（虽然生物钟导致没睡着，但没看电子产品，听了有声书、冥想）改进：睡觉时做呼吸冥想，不要想其他事情，就很容易入睡习惯养成：咖啡阅读音乐英语日更感恩日记看新闻香薰写晚间习惯晨间习惯，吃完饭马上洗碗扔垃圾，23点
11月9日三里湖畔
上午十点多，赶到墨玉县人民广场，参加消防活动。其实就是捧场，顺便接受消防知识的教育。收获还是有的，知道119的含义，还看了几出不太应景的节目，其中《总书记的回信》的音乐情景剧和一个军武很是吸引人，展示了墨玉县文工团的实力。《总书记的回信》这首歌去年暑假就出来了，去年九月底也是在这个广场上，我们参加万人庆国庆的活动时已经看过，当时以及现在看都很受感触。活动结束后，补发了十一的慰问品（没买东西，发了一
Visual Studio中的Android模拟器使用详解 wurui8 android android studio android android应用
关注微信号：javalearns随时随地学Java或扫一扫随时随地学JavaMicrosoft本周发布了VisualStudio2015预览版,里面包含Android开发工具.安装的时候,如果选Android开发,VisualStudio会把调试Android应用程序用的VisualStudio模拟器也装上.在介绍这个新模拟器之前,我们先来聊一聊,为什么需要一个新的Android模拟器–当然,你也
逛夜顽石的青果花园
如果逛街就总会有点事做，我就是去逛夜，和街没有点滴关系。临出门看下手机的电量，如果不够所有的歌播两遍，就先充电。单单就音乐来说，我跟现在确实是脱节的，估计那些歌同龄人都不大听。路线由脚去选，能找到回家的路就行，不过速度是一贯的慢悠悠。至于脑子里想什么，我也不知道，工作是一定会想，也会琢磨文字，有巧妙的文字蹦出来，也会自顾自的嘚瑟好一会。逛夜是一定不能有坏情绪的，表情尽可以丰富。于我，乌托邦啊世外桃
《一年顶十年》读书笔记Day2/17 设绘喵爱读书April
1-2状态如何成为一个更在状态的狠人？1.你想成为怎样的人如果你想成为强者，你现在就可以向强者靠近，并以强者的标准来要求自己，像强者一样活着。2.你应该远离哪些人总是打击你的人；见不得别人好的人；不思进取混日子的人；过度消耗你的人。3.我会常备哪些法宝读能带来力量的书；励志的电影；能带来力量的音乐；4.墙上挂字有什么用目所能及。稻盛和夫六项精进：付出不亚于任何人的努力；要谦虚，不要骄傲；要每天反省
QT 自定义组件界面跳转子座 qt 数据库开发语言
一、引用组件需要的类（头文件）1、按钮类QPushButton:普通按钮;QToolButton:工具按钮;QRadioButton:单选按钮;QCheckBox:复选按钮;QCommandLinkButton:命令连接按钮;2、布局类QHBoxLayout水平QVBoxLayout垂直QGridLayout网格QFormLayout表单QSrackedLayout.堆栈3、输出类QLabel:标
Microsoft Defender SmartScreen 阻止了无法识别的应用启动。运行此应用可能会导致你的电脑存在风险。开心呆哥 microsoft
你提到的情况可能是由于Windows的安全策略导致的。当你运行批处理文件（.bat）时，Windows可能会弹出一次提示，询问是否允许该文件执行。这是为了确保用户不会意外地运行潜在的恶意脚本。有几种方法可以解决这个问题：解锁文件：在文件资源管理器中，找到你的.bat文件。右键单击文件，选择"属性"。在"常规"选项卡中，如果有一个"解锁"复选框，请勾选它。确定并尝试重新运行文件。以管理员身份运行：右
多线程编程之卫生间周凡杨 java 并发卫生间线程厕所
如大家所知，火车上车厢的卫生间很小，每次只能容纳一个人，一个车厢只有一个卫生间，这个卫生间会被多个人同时使用，在实际使用时，当一个人进入卫生间时则会把卫生间锁上，等出来时打开门，下一个人进去把门锁上，如果有一个人在卫生间内部则别人的人发现门是锁的则只能在外面等待。问题分析：首先问题中有两个实体，一个是人，一个是厕所，所以设计程序时就可以设计两个类。人是多数的，厕所只有一个（暂且模拟的是一个车厢）。
How to Install GUI to Centos Minimal sunjing linux Install Desktop GUI
http://www.namhuy.net/475/how-to-install-gui-to-centos-minimal.html I have centos 6.3 minimal running as web server. I’m looking to install gui to my server to vnc to my server. You can insta
Shell 函数 daizj shell 函数
Shell 函数 linux shell 可以用户定义函数，然后在shell脚本中可以随便调用。 shell中函数的定义格式如下： [function] funname [()]{ action; [return int;] } 说明： 1、可以带function fun() 定义，也可以直接fun() 定义,不带任何参数。 2、参数返回
Linux服务器新手操作之一周凡杨 Linux 简单操作
1.whoami 当一个用户登录Linux系统之后，也许他想知道自己是发哪个用户登录的。此时可以使用whoami命令。 [ecuser@HA5-DZ05 ~]$ whoami e
浅谈Socket通信（一）朱辉辉33 socket
在java中ServerSocket用于服务器端，用来监听端口。通过服务器监听，客户端发送请求，双方建立链接后才能通信。当服务器和客户端建立链接后，两边都会产生一个Socket实例，我们可以通过操作Socket来建立通信。首先我建立一个ServerSocket对象。当然要导入java.net.ServerSocket包 ServerSock
关于框架的简单认识西蜀石兰框架
入职两个月多，依然是一个不会写代码的小白，每天的工作就是看代码，写wiki。前端接触CSS、HTML、JS等语言，一直在用的CS模型，自然免不了数据库的链接及使用，真心涉及框架，项目中用到的BootStrap算一个吧，哦，JQuery只能算半个框架吧，我更觉得它是另外一种语言。后台一直是纯Java代码，涉及的框架是Quzrtz和log4j。都说学前端的要知道三大框架，目前node.
You have an error in your SQL syntax; check the manual that corresponds to your 林鹤霄
You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'option,changed_ids ) values('0ac91f167f754c8cbac00e9e3dc372
MySQL5.6的my.ini配置 aigo mysql
注意：以下配置的服务器硬件是：8核16G内存 [client] port=3306 [mysql] default-character-set=utf8 [mysqld] port=3306 basedir=D:/mysql-5.6.21-win
mysql 全文模糊查找便捷解决方案 alxw4616 mysql
mysql 全文模糊查找便捷解决方案 2013/6/14 by 半仙 [email protected] 目的: 项目需求实现模糊查找. 原则: 查询不能超过 1秒. 问题: 目标表中有超过1千万条记录. 使用like '%str%' 进行模糊查询无法达到性能需求. 解决方案: 使用mysql全文索引. 1.全文索引 : MySQL支持全文索引和搜索功能。MySQL中的全文索
自定义数据结构链表(单项 ,双向,环形) 百合不是茶单项链表双向链表
链表与动态数组的实现方式差不多, 数组适合快速删除某个元素链表则可以快速的保存数组并且可以是不连续的单项链表;数据从第一个指向最后一个实现代码: //定义动态链表 clas
threadLocal实例 bijian1013 java thread java多线程 threadLocal
实例1： package com.bijian.thread; public class MyThread extends Thread { private static ThreadLocal tl = new ThreadLocal() { protected synchronized Object initialValue() { return new Inte
activemq安全设置—设置admin的用户名和密码 bijian1013 java activemq
ActiveMQ使用的是jetty服务器, 打开conf/jetty.xml文件，找到 <bean id="adminSecurityConstraint" class="org.eclipse.jetty.util.security.Constraint"> <p
【Java范型一】Java范型详解之范型集合和自定义范型类 bit1129 java
本文详细介绍Java的范型，写一篇关于范型的博客原因有两个，前几天要写个范型方法(返回值根据传入的类型而定)，竟然想了半天，最后还是从网上找了个范型方法的写法；再者，前一段时间在看Gson, Gson这个JSON包的精华就在于对范型的优雅简单的处理，看它的源代码就比较迷糊，只其然不知其所以然。所以，还是花点时间系统的整理总结下范型吧。范型内容范型集合类范型类
【HBase十二】HFile存储的是一个列族的数据 bit1129 hbase
在HBase中，每个HFile存储的是一个表中一个列族的数据，也就是说，当一个表中有多个列簇时，针对每个列簇插入数据，最后产生的数据是多个HFile，每个对应一个列族，通过如下操作验证 1. 建立一个有两个列族的表 create 'members','colfam1','colfam2' 2. 在members表中的colfam1中插入50*5
Nginx 官方一个配置实例 ronin47 nginx 配置实例
user www www; worker_processes 5; error_log logs/error.log; pid logs/nginx.pid; worker_rlimit_nofile 8192; events { worker_connections 4096;} http { include conf/mim
java-15.输入一颗二元查找树，将该树转换为它的镜像，即在转换后的二元查找树中，左子树的结点都大于右子树的结点。用递归和循环 bylijinnan java
//use recursion public static void mirrorHelp1(Node node){ if(node==null)return; swapChild(node); mirrorHelp1(node.getLeft()); mirrorHelp1(node.getRight()); } //use no recursion bu
返回null还是empty bylijinnan java apache spring 编程
第一个问题，函数是应当返回null还是长度为0的数组（或集合）？第二个问题，函数输入参数不当时，是异常还是返回null？先看第一个问题有两个约定我觉得应当遵守： 1.返回零长度的数组或集合而不是null（详见《Effective Java》）理由就是，如果返回empty，就可以少了很多not-null判断： List<Person> list
[科技与项目]工作流厂商的战略机遇期 comsci 工作流
在新的战略平衡形成之前，这里有一个短暂的战略机遇期，只有大概最短6年，最长14年的时间，这段时间就好像我们森林里面的小动物，在秋天中，必须抓紧一切时间存储坚果一样，否则无法熬过漫长的冬季。。。。在微软，甲骨文，谷歌，IBM,SONY
过度设计-举例 cuityang 过度设计
过度设计，需要更多设计时间和测试成本，如无必要，还是尽量简洁一些好。未来的事情，比如访问量，比如数据库的容量，比如是否需要改成分布式都是无法预料的再举一个例子，对闰年的判断逻辑：　　1、 if($Year%4==0) return True; else return Fasle; 　　2、if ( ($Year%4==0 &am
java进阶，《Java性能优化权威指南》试读 darkblue086 java性能优化
记得当年随意读了微软出版社的.NET 2.0应用程序调试，才发现调试器如此强大，应用程序开发调试其实真的简单了很多，不仅仅是因为里面介绍了很多调试器工具的使用，更是因为里面寻找问题并重现问题的思想让我震撼，时隔多年，Java已经如日中天，成为许多大型企业应用的首选，而今天，这本《Java性能优化权威指南》让我再次找到了这种感觉，从不经意的开发过程让我刮目相看，原来性能调优不是简单地看看热点在哪里，
网络学习笔记初识OSI七层模型与TCP协议 dcj3sjt126com 学习笔记
协议：在计算机网络中通信各方面所达成的、共同遵守和执行的一系列约定　　计算机网络的体系结构：计算机网络的层次结构和各层协议的集合。　　两类服务：　　面向连接的服务通信双方在通信之前先建立某种状态，并在通信过程中维持这种状态的变化，同时为服务对象预先分配一定的资源。这种服务叫做面向连接的服务。　　面向无连接的服务通信双方在通信前后不建立和维持状态，不为服务对象
mac中用命令行运行mysql dcj3sjt126com mysql linux mac
参考这篇博客：http://www.cnblogs.com/macro-cheng/archive/2011/10/25/mysql-001.html 感觉workbench不好用（有点先入为主了）。 1，安装mysql 在mysql的官方网站下载 mysql 5.5.23 http://www.mysql.com/downloads/mysql/，根据我的机器的配置情况选择了64
MongDB查询（1）——基本查询[五] eksliang mongodb mongodb 查询 mongodb find
MongDB查询转载请出自出处：http://eksliang.iteye.com/blog/2174452 一、find简介 MongoDB中使用find来进行查询。 API:如下 function ( query , fields , limit , skip, batchSize, options ){.....} 参数含义： query:查询参数 fie
base64，加密解密经融加密，对接 y806839048 经融加密对接
String data0 = new String(Base64.encode(bo.getPaymentResult().getBytes(("GBK")))); String data1 = new String(Base64.decode(data0.toCharArray()),"GBK"); // 注意编码格式，注意用于加密，解密的要是同
JavaWeb之JSP概述 ihuning javaweb
什么是JSP？为什么使用JSP？ JSP表示Java Server Page，即嵌有Java代码的HTML页面。使用JSP是因为在HTML中嵌入Java代码比在Java代码中拼接字符串更容易、更方便和更高效。 JSP起源在很多动态网页中，绝大部分内容都是固定不变的，只有局部内容需要动态产生和改变。如果使用Servl
apple watch 指南啸笑天 apple
1. 文档 WatchKit Programming Guide（中译在线版 By @CocoaChina）译文译者原文概览 - 开始为 Apple Watch 进行开发 @星夜暮晨 Overview - Developing for Apple Watch 概览 - 配置 Xcode 项目 - Overview - Configuring Yo
java经典的基础题目 macroli java 编程
1.列举出 10个JAVA语言的优势 a:免费，开源，跨平台(平台独立性)，简单易用，功能完善，面向对象，健壮性，多线程，结构中立，企业应用的成熟平台, 无线应用 2.列举出JAVA中10个面向对象编程的术语 a:包，类，接口，对象，属性，方法，构造器，继承，封装，多态，抽象，范型 3.列举出JAVA中6个比较常用的包 Java.lang;java.util;java.io;java.sql;ja
你所不知道神奇的js replace正则表达式 qiaolevip 每天进步一点点学习永无止境纵观千象 regex
var v = 'C9CFBAA3CAD0'; console.log(v); var arr = v.split(''); for (var i = 0; i < arr.length; i ++) { if (i % 2 == 0) arr[i] = '%' + arr[i]; } console.log(arr.join('')); console.log(v.r
[一起学Hive]之十五-分析Hive表和分区的统计信息(Statistics) superlxw1234 hive hive分析表 hive统计信息 hive Statistics
关键字：Hive统计信息、分析Hive表、Hive Statistics 类似于Oracle的分析表，Hive中也提供了分析表和分区的功能，通过自动和手动分析Hive表，将Hive表的一些统计信息存储到元数据中。表和分区的统计信息主要包括：行数、文件数、原始数据大小、所占存储大小、最后一次操作时间等； 14.1 新表的统计信息对于一个新创建
Spring Boot 1.2.5 发布 wiselyman spring boot
Spring Boot 1.2.5已在7月2日发布，现在可以从spring的maven库和maven中心库下载。这个版本是一个维护的发布版，主要是一些修复以及将Spring的依赖提升至4.1.7(包含重要的安全修复)。官方建议所有的Spring Boot用户升级这个版本。项目首页 | 源