甜瓜游乐场汉化版18.0
休闲益智
本文目录一览：
如果你毁宽旦是仅仅为了压缩，而不是纤扰为了编程，你可以用ACDSee，他可以批量操作，方法巧胡是在ACDSee中选择你需要压缩的全部文件，点 工具 调整大小 选项很明显，你试一试。
你非要用程序的话，看看一下参考
注意：
PicClipD的ScaleMode=vbPixels
源图像是ImgSrc
目的图像是PicDest，注意它的属性
最关键的实现过程在CmdMake_Click
将下列内容复制到记事本，并保存为相应的文件
PicScale.vbp
--------------------
Type=Exe
Form=FrmMain.frm
Reference=*G{00020430-0000-0000-C000-000000000046}#2.0#0#........WINDOWSsystem32stdole2.tlb#OLE Automation
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; COMDLG32.OCX
IconForm="FrmMain"
Startup="FrmMain"
HelpFile=""
ExeName32="PicScale.exe" "
Command32="" "
Name="PicScale"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1
[MS Transaction Server]
AutoRefresh=1
FrmMain.frm
----------------------------------
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form FrmMain
Caption = "简单图像文件缩放"
ClientHeight = 3810
ClientLeft = 165
ClientTop = 855
ClientWidth = 5505
HasDC = 0 'False
LinkTopic = "Form1"
ScaleHeight = 254
ScaleMode = 3 'Pixel
ScaleWidth = 367
StartUpPosition = 3 '窗口缺省
Begin MSComDlg.CommonDialog CDlgFile
Left = 2160
Top = 1320
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.PictureBox PicClipD
BackColor = H8000000C
HasDC = 0 'False
Height = 1695
Left = 2520
ScaleHeight = 109
ScaleMode = 3 'Pixel
ScaleWidth = 117
TabIndex = 8
TabStop = 0 'False
Top = 840
Width = 1815
Begin VB.PictureBox PicDest
AutoRedraw = -1 'True
BackColor = H00FFFFFF
BorderStyle = 0 'None
Height = 495
Left = 240
ScaleHeight = 33
ScaleMode = 3 'Pixel
ScaleWidth = 65
TabIndex = 9
TabStop = 0 'False
Top = 360
Width = 975
End
End
Begin VB.PictureBox PicClipS
BackColor = H8000000C
HasDC = 0 'False
Height = 1575
Left = 360
ScaleHeight = 101
ScaleMode = 3 'Pixel
ScaleWidth = 101
TabIndex = 7
TabStop = 0 'False
Top = 840
Width = 1575
Begin VB.Image ImgSrc
Height = 855
Left = 240
Top = 240
Width = 855
End
End
Begin VB.PictureBox PicToolBar
Align = 1 'Align Top
HasDC = 0 'False
Height = 495
Left = 0
ScaleHeight = 29
ScaleMode = 3 'Pixel
ScaleWidth = 363
TabIndex = 0
TabStop = 0 'False
Top = 0
Width = 5505
Begin VB.CommandButton CmdReset
Caption = "复位"
Height = 255
Left = 3960
TabIndex = 6
Top = 120
Width = 780
End
Begin VB.CommandButton CmdMake
Caption = "生成"
Height = 255
Left = 3120
TabIndex = 5
Top = 120
Width = 780
End
Begin VB.TextBox TxtHeight
Height = 270
Left = 2280
TabIndex = 4
Text = "Text1"
Top = 120
Width = 750
End
Begin VB.TextBox TxtWidth
Height = 270
Left = 720
TabIndex = 2
Text = "Text1"
Top = 120
Width = 750
End
Begin VB.Label LblHeight
AutoSize = -1 'True
Caption = "Height:"
Height = 180
Left = 1680
TabIndex = 3
Top = 120
Width = 630
End
Begin VB.Label LblWidth
AutoSize = -1 'True
Caption = "Width:"
Height = 180
Left = 120
TabIndex = 1
Top = 120
Width = 540
End
End
Begin VB.Menu mnuFile
Caption = "文件(F)"
Begin VB.Menu mnuOpen
Caption = "打开(O)..."
End
Begin VB.Menu mnuSave
Caption = "保存(S)..."
End
Begin VB.Menu mnuSep0_0
Caption = "-"
End
Begin VB.Menu mnuExit
Caption = "退出(X)"
End
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Const CtlSpace = 4 '控件之间的距离
Private Sub CmdMake_Click()
Dim nWidth As Long
Dim nHeight As Long
'得到数值
On Error GoTo ErrNum
nWidth = CLng(TxtWidth.Text)
nHeight = CLng(TxtHeight.Text)
On Error GoTo 0
If nWidth 1 Or nHeight 1 Then GoTo ErrNum
'改变大小
On Error GoTo ErrSetSize
PicDest.Move 0, 0, nWidth, nHeight
On Error GoTo 0
'取消PictureBox的缓存
Set PicDest.Picture = Nothing
'绘制图像
PicDest.PaintPicture ImgSrc, 0, 0, PicDest.ScaleWidth, PicDest.ScaleHeight
Exit Sub
ErrNum:
MsgBox "错误的数值！", vbCritical
Exit Sub
ErrSetSize:
MsgBox "无法创建这么大的图片！", vbCritical
Exit Sub
End Sub
Private Sub CmdReset_Click()
If ImgSrc.Picture.Type = vbPicTypeNone Then '无图片
TxtWidth.Text = CStr(1)
TxtHeight.Text = CStr(1)
CmdMake.Enabled = False
Else
TxtWidth.Text = CStr(ImgSrc.Width)
TxtHeight.Text = CStr(ImgSrc.Height)
CmdMake.Enabled = True
Call CmdMake_Click
End If
End Sub
Private Sub Form_Load()
'-- 初始化坐标定位
Dim SM_Me As Long
Dim SM_Tbr As Long
Dim nTemp As Long
SM_Me = Me.ScaleMode
SM_Tbr = PicToolBar.ScaleMode
'定位PicToolBar的高度
With PicToolBar
'计算边框大小
nTemp = Me.ScaleY(.Height, SM_Me, vbPixels) - .ScaleY(.ScaleHeight, SM_Tbr, vbPixels)
'计算PicToolBar应有高度
nTemp = nTemp + .ScaleY(TxtWidth.Height, SM_Tbr, vbPixels)
'设置高度
.Height = Me.ScaleY(nTemp, vbPixels, SM_Me)
End With
'定位PicToolBar内的控件
nTemp = PicToolBar.ScaleHeight
LblWidth.Move CtlSpace, (nTemp - LblWidth.Height) / 2
TxtWidth.Move LblWidth.Left + LblWidth.Width, 0
LblHeight.Move TxtWidth.Left + TxtWidth.Width + CtlSpace, (nTemp - LblWidth.Height) / 2
TxtHeight.Move LblHeight.Left + LblHeight.Width, 0, TxtHeight.Width, TxtWidth.Height
CmdMake.Move TxtHeight.Left + TxtHeight.Width + CtlSpace, 0, CmdMake.Width, TxtWidth.Height
CmdReset.Move CmdMake.Left + CmdMake.Width + CtlSpace, 0, CmdReset.Width, TxtWidth.Height
ImgSrc.Move 0, 0
PicDest.Move 0, 0
'--设置数值
Call CmdReset_Click
With CDlgFile
.CancelError = True
.Flags = cdlOFNOverwritePrompt Or cdlOFNHideReadOnly
.Filter = "Windows位图(*.bmp)|*.bmp|所有文件(*.*)|*.*"
End With
End Sub
Private Sub Form_Resize()
If Me.WindowState = 1 Then Exit Sub
On Error Resume Next
Dim nTemp As Long
nTemp = PicToolBar.Height
PicClipS.Move 0, nTemp, Me.ScaleWidth / 2, Me.ScaleHeight - nTemp
PicClipD.Move PicClipS.Width, nTemp, Me.ScaleWidth - PicClipS.Width, PicClipS.Height
End Sub
Private Sub mnuExit_Click()
Unload Me
End Sub
Private Sub mnuOpen_Click()
On Error Resume Next
CDlgFile.ShowOpen
If Err.Number Then Exit Sub '点了取消
'打开
Set ImgSrc.Picture = LoadPicture(CDlgFile.FileName)
If Err.Number Then
MsgBox "无法打开文件！", vbCritical
Exit Sub
End If
On Error GoTo 0
Call CmdReset_Click
End Sub
Private Sub mnuSave_Click()
On Error Resume Next
CDlgFile.ShowSave
If Err.Number Then Exit Sub '点了取消
'保存
SavePicture PicDest.Image, CDlgFile.FileName
If Err.Number Then
MsgBox "无法保存图片！", vbCritical
Exit Sub
End If
On Error GoTo 0
End Sub
使用 RichTextBox 控件
RichTextBox 控件可用于输入和编辑文本，它同时提供了比常规的 TextBox 控件更高级的格式特性。
RichTextBox 控件提供了一些属性，通过这些属性，可对该控件中任何部分的文本使用不同的格式。用这些属性，可以将文本变为粗体或斜体，改变文本的颜色，创建上标或下标。可以调整段落的左右缩禅袜进值，还可以使用悬挂式缩进。
用途
作为“无底”的文本框，可用于编写阅读特别大的文本文件的应用程序。
在任何应用程序中实现功能完备的文本编辑器。
特性
以 RTF 格式或 ASCII 文本格式打开或保存文件。可以使用该控件的方法（LoadFile 和 SaveFile），直接读写文件。也可以用该控件的属性，比如 SelRTF 和 TextRTF，联合 Visual Basic 的文件输入输出语句读写文件。敬改
将 .rtf 文件的内容装入 RichTextBox 控件，只需将该文件（比如从 Windows 95 “资源管理器”中）的内容直接拖入该控件，或者将其它应用程序（比如 Microsoft Word）中使用文件的突出显示部分直接拖入该控件。
设置 FileName 属性，将 .rtf 或 .txt 文件的内容装入该控件。
用 SelPrint 方法打印 RichTextBox 控件中的全部或部分文本。
将 RichTextBox 控件绑定到 Data 控件，可以处理 Microsoft Access 数据库的 Memo 字段，或者其它数据库中大型的文本字段（比如 SQL 服务器中的 TEXT 数据类型）。
在运行时，用 OLEObject 集合的 Add 方法，将嵌入对象，比如位图、图标、应用程序图标，加到该控件中。在设计时或运行时，可以拖放任何嵌入对象到控件中，包括文档，比如 Microsoft Excel 的电子表格和 Microsoft Word 文档等。
在设计时设置滚动条
按照缺省规定，RichTextBox 没有滚动条。在运行时，如果在该控件中装入了较大的文件，最终用户就不能看到文件的全部内容了。为使用户能够方便地进行滚动，可将其 ScrollBars 属性设置为 1（水平的）、2（竖直的）或 3（两个都有）。这必须在设计时完成，因为 ScrollBars 属性在运行时是只读的。
用 LoadFile 和 SaveFile 方法打开和保存文件
用 LoadFile 和 SaveFile 方法可以方便地为 RichTextBox 控件打开或保存 RTF 文件。要打开文件贺稿激，可用 CommonDialog 控件提供路径名，如下所示：
Private Sub OpenFile()
'RichTextBox 控件的名称是“rtfData”。
'CommonDialog 名为“dlgOpenFile”。
'为文件名声明 String 变量。
'显示 “打开文件”对话框，
'并将变量设置为文件名。
Dim strOpen As String
dlgOpenFile.ShowOpen
strOpen = dlgOpenFile.FileName
'用 LoadFile 方法打开该文件。
rtfData.LoadFile strOpen
End Sub
用 SaveFile 方法，保存文件也同样简便：
Private Sub SaveFile()
Dim strNewFile As String
dlgOpenFile.ShowSave
strNewFile = dlgOpenFile.FileName
rtfData.SaveFile strNewFile
End Sub
注意 如果文件中包含了该控件不能支持的 RTF 编码，仅相关的文本在 RichTextBox 控件中将不会出现。
用 SelFontName、SelFontSize 和 SelFontColor 设置字体属性
要改变 RichTextBox 控件中的字体特性，可以使用 SelFontName、SelFontSize 和 SelFontColor 属性。
通常使用 ComboBox 控件显示这些属性的选项。随后可用 ComboBox 控件的 Click 事件改变属性。下面的代码首先在 Form 对象的 Load 事件中，充填名为“cmbFonts”的 ComboBox 控件。然后用 Click 事件改变 RichTextBox 控件的 SelFontName 属性。
Private Sub Form_Load()
Dim i As Integer
With cmbFonts
For i = 0 to Screen.Fonts.Count - 1
.AddItem Screen.Fonts(i).Text
End With
End Sub
Private Sub cmbFonts_Click()
rtfData.SelFontName = cmbFonts.Text
End Sub
重点 这些属性只影响选中的文本，或者，如果没有选中文本，则影响当前光标位置之后键入的文本。
格式化段落的缩进、悬挂式缩进和项目符号
RichTextBox 控件的另一个特性是它可以创建有缩进、悬挂式缩进和项目符号的段落。这三种样式显示如下：
缩进和带项目符号的缩进 (rtf_3ind.bmp)
要使用 SelFontName、SelFontSize 和 SelFontColor 属性，最终用户必须选中一个或多个段落。在这里，假设用户只选中了第二段，创建缩进和悬挂式缩进的代码如下所示：
'假设该控件的名称是“rtfData”。
rtfData.SelIndent = .5
rtfdata.SelHangingIndent = 1.5
请注意用于设置 SelIndent、SelHangingIndent、BulletIndent 和其它属性的值，要依赖于 RichTextBox 控件的容器的 ScaleMode 属性。例如，如果 RichTextBox 控件的容器是 Form 对象，则将该 Form 对象的 ScaleMode 属性由 7（厘米）改为 1（缇）时，SelIndent 属性必须同时由 0.5（厘米）改为 283（缇）。这是因为一厘米 = 567 缇。
同时还要注意段落的 SelBullet 属性必须设置为 True，才能将该段设置为有项目符号的样式。
用 SelChange 事件通知属性的变化
要通告用户选中的任何文本的当前属性，可以使用 SelChange 事件。每当插入点改变，或者选中内容被改变时，均会产生该事件。下面的示例用 Toolbar 控件通告用户 SelBold 属性的变化。
Private Sub rtfData_SelChange()
'重新设置 Toolbar 的 Button 对象的
' Value 属性。该 Toolbar 控件的名称是
'“tlbRTF”。
'SelBold 返回 0、-1 或 Null。如果它为 Null
'则将其 Mi xedState 属性设置为 True。
Select Case rtfData.SelBold
Case 0 '不是粗体。
tlbRTF.Buttons("bold").Value = tbrUnpressed
Case -1 '粗体。
tlbRTF.Buttons("bold").Value = tbrPressed
Case Else '混合状态。
tlbRTF.Buttons("bold").Mi xedState = True
End Select
End Sub
用 SelPrint 方法打印 RichTextBox 的内容
要打印 RichTextBox 控件，可以使用 SelPrint 方法。该方法需要一个参数，即用来打印 RichTextBox 控件内容的 Printer 对象的 hDC 属性。如果用户选中了某些文本，则只打印选中的文本。如果没有选中任何文本，则打印该控件的所有内容。
下面的代码，在用户单击 CommandButton 控件后，用 CommonDialog 控件显示“打印机”对话框。Flags 属性禁用了页码，并使用户能够在该对话框中选择多种选项：
Private Sub cmdPrint_Click()
'CommonDialog 控件的名称是“dlgPrint”。
dlgPrint.Flags = cdlPDReturnDC + cdlPDNoPageNums
If rtfData.SelLength = 0 Then
dlgPrint.Flags = dlgPrint.Flags + cdlPDAllPages
Else
dlgPrint.Flags = dlgPrint.Flags + cdlPDSelection
End If
dlgPrint.ShowPrinter
rtfData.SelPrint dlgPrint.hDC
End Sub
详细信息 有关使用 CommonDialog 控件的详细说明，请参阅《Visual Basic程序员指南》中的“使用 CommonDialog 控件”。
在控件中显示嵌入对象
在运行时，最终用户可拖动任何嵌入对象，并放入 RichTextBox 控件。在控件中可以嵌入两种对象：以图标形式显示的对象，和以数据形式显示的对象。下图显示了具有嵌入文件对象的 RichTextBox，作为第一种类型的示例。
单击后，嵌入的对象就会象预料的那样，即启动与该文件相关联的应用程序。当控件中的数据以 RTF 文件形式保存时（用 SaveFile 方法），嵌入对象中的信息也将被保存。
然而，如果最终用户在该控件中嵌入位图，则将显示该位图，而不是它的图标，如下所示：
单击该位图将启动 Paint 应用程序，使最终用户能够编辑该位图。
用 OLEObjects 集合的 Add 方法添加嵌入对象
用 OLEObject 集合的 Add 方法可将嵌入对象以编程方式加入该控件，如下所示：
Private Sub cmdAddObject_Click()
'将蝴蝶位图添加到该控件中。
RichTextBox1.OLEObjects.Add , , , "bfly.bmp"
End Sub
在运行时，可用 Add、Clear 和 Remove 方法，动态地向该控件中充填嵌入对象。
1.历法改革呼吁书
当今世界多数国家通用的历法是格历，又称公历。公历的优点在于：它是太阳历，以形成自然四季的回归年为基础，因此四季基本稳定。但是，公历存在以下严重缺点：
1．年不正，季不清 即新年元旦不是在某季的开始，因此四季就不能按月分清。如果您是中华儿女，您一定懂得指示季节变化的24节气在公历中也不简明。
2．月不齐，周不定 即月的大小不整齐，对人们生活不方便，特别是七日周的排列不定，混乱无规律，不好掌握。
为了消除公历的缺点，让历法更方便人们的生活，20世纪历法学者提出过许多改革方案，国际组织多次讨论过这些方案。但过去的方案多偏重于消除“月不齐和周不定”，解决办法是将一年所含整周以外的日，作为“空日”，排除在星期以外。这样的解决办法不肆皮能被宗教接受，因此在1957年联合国作出无限期搁置历法改革问题的讨论的决定，使历法改革这一关系全世界民众生活的大问题拖延到今天。
历法的主要功能有二，其一是计数日子，其二是指示季节。历法的“年月日”框架已足以实现这两个主要功能。星期不过是安排在年月日框架中的附件，供安排作息之用。由于文化宗教习惯的不同，可以有不同的星期制。但为了国际交往，却必须有统一的年月日框架。所以世界历法改革的任务只是改革现有的公历年月日框架，而把选择星期的自由留给各民族，各国家。这样，就不会发生星期制与宗教信仰的矛盾，历法框架的改革得以顺利实现。
笔者自然世界历法的设计，是一个大胆的尝试。本着合天、透明、简便三原则，力图最大限度的实现“年正、季清、月齐、周整”的目标。给世界所有国家或民族创造一个既是统一的历法框架，又给出可制定包容各国家民族习惯特色的国家民族历的兼容平台。
笔者呼吁世界各国人民、学者、政治领导人，呼吁联合国领导人，在致力于人类和平、发展、和进步的伟大事业中，都来关注历法改革这一重要环节，解除联合国对历法改革问题讨论的禁令，重启历法改革的讨论，让历法能与科学技术的发展同步，让人类的生活更幸福美满。只有大家都表达了历法改革的愿望，喊出了这共同的呼声，美好的新历才能早日来到人间。
如果您想早一天看一看自然世界历法是什么样子，看了下面“自然世界历法”的简要介绍后，就来信索取2004年的年历表吧！也希望您能向您的亲戚朋友传播新历的信息。如果您能向两个朋友传播，很快喜讯就能传遍世界。欢迎您能贡献力量！
2.自然世界历法
1。年始 太阳过立春点之近似日,取现行公历2月4日。
2。分月 每年分12个月，每月30天，只有6月为独大月，平年35天，闰年36天。
3。闰制 同现行公历，只是闰日在6月末。
说明：本历法设计遵循以下差雹饥三原则：
1）合天——日期反映季节进程。
2）透明——日期框架及反映季节的规律简明。
3）方便——日期、季节规律使用方便。
按此三原则衡量，本历做到：
1）合天——三月一季，基本与自然季同步，日期相当精确的反映季节进程。
2）透明——日期框架简单，简化24节气规律简明，可相当精确的预估.推荐两种星期制供选择,七日连续星期排列已有规律,弹性五日周更简明.
3）方便——月长整齐，方便生活。且除闰年6月外皆为5 的倍数，连续七日周排列显出规律,为更方便的弹性5日周准备了框架。简化24节气易掌握。
本历法达到：年正，季清，月齐，节明，周整五要求。
现行公历及中国传统夏历都不符合以上三原则，达不到此五要求。
自然世界历法只规定世界统一的历法框架：年/月/日，不规定统一的星期制，星期制由各国自由选用。可以尊重宗教习惯仍用现行的连续七日周。也可选用方便的作为月下层次的弹性五日周，每月1日为星期1，闰年的闰日作重星期日。
历法的功能有二：计日子，示天时。实现此二功能的充分必要条件为：年/月/日。星期制既虚返非充分条件，又非必要条件，虽有辅助作用，便利定生活作息，但各国宗教信仰，人文习俗不同，不宜统一，故只宜在国家历中补充配入。这样，我们把世界统一的“年/月/日”框架专称历法，把选配星期制及填写近似24节气后的历表是国家历称为“历”。
指示季节的24节气基本在每月的月初和月中。较精确的简化日期在21世纪的夏季六节气在相应的4,5,6三个月分别向后推移1,2,3日即：
立夏4-2小满4-17芒种5-3夏至5-18小暑6-4大暑6-19。
以上简化节气日很好记忆，日期误差一般在一日以内。
历表中当然可再附注精确节气日，以满足更高要求者的需要。
24节气实际表示的是太阳的黄经位置，立春为315度，节气间隔为15度，容易推知每个节气的太阳黄经。明白这个道理，就可知自然世界历法的日期能简明的反映太阳的位置，也就是反映出季节进程。24节气的名称只适用于北半球中纬度地区，在世界范围内应改用序数或直接用黄经度表示24节气。这样，自然世界历法对全球任何纬度地区都有反映当地季节的功能，所以是当之无愧的世界历法。由上述可见，自然世界历法既合天，又透明，又简便。农民务农，基本不用查历书。自然世界历法是名副其实的农历。
附: 久用月历表
01 02 03 04 05
06 07 08 09 10
11 12 13 14 15
16 17 18 19 20
21 22 23 14 25
26 27 28 29 30
31 32 33 34 35 36
说明:最后一行只有6月才有，闰年才有36日。月历表永久适用。各月1日对应的公历日期（括号内数字）如下：
平年：
1-1（2-4） 2-1（3-6） 3-1（4-5）
4-1（5-5） 5-1（6-4） 6-1（7-4）
7-1（8-8） 8-1（9-7） 9-1（10-7）
10-1（11-6）11-1（12-6）12-1（1-5）
闰年：
1-1（2-4） 2-1（3-5） 3-1（4-4）
4-1（5-4） 5-1（6-3） 6-1（7-3）
7-1（8-8） 8-1（9-7） 9-1（10-7）
10-1（11-6）11-1（12-6）12-1（1-5）
注意：1月及7月以下平年闰年对应公历日期相同。
国家历若仍选用连续七日周，由于月长除6月外都是30天，所以每月1日的七日周的星期日次下月向后加2，平年6月后的7月不加，闰年7月加1。
若改选用层次五日周，每月1日都是星期1。星期日次易如反掌，不需计算。闰年的闰日是唯一的特殊星期日。
简化阴历
由于自然世界历法的月长整齐规律，朔望日期也可简化，透明预测。方法如下：
以2000年1月2日（公历2月5日）为第一朔望月的朔日，以后连续计数朔望月次，称为纪月。单数纪月为大月，双数纪月为小月。每百月中的30，60，90纪月为变月，即小月变大月。每万月中的1000，3000，5000，6000，8000，0000纪月也为变月。如此简化的朔望月的朔望误差一般在一日以内。（望日取朔望月的16日）。
只要在每年历表的1月内的朔日标记上纪月序号,按其单双数即可知下一月简化朔日及纪月号。由朔日易推知望日。这样确定的朔望月日框架，称简化阴历。
注意，简化阴历只计月，不计年。
科学中华历
以自然世界历法为框架，选配层次五日周或连续七日周，并附以简化阴历为辅历，即合称科学中华历。
欢迎海内外中华同胞，父老兄弟姐妹们，评议指正,试用传播。新历将使您的生活更美好。中华儿女应走在世界历法改革的前列，对全人类作出新贡献。
2005年（乙酉年）自然历法历表（节气，朔望，公历，星期对照）
01月立春 02 ★ 04 0563● 07 08 09 ★ 11 12 13 14真15
01月雨水 ★ 18 19 20 ○ 22 23 ★ 25⑶26 27 28 29真30
02月惊蛰 02 03 04◆0564● 07 ★ 09 10 11 12 13 14真★
02月春分 17 18 19 20 ○ ★ 23 24 25 26⑷27 28 ★ 30
03月清明 02 03 0465● ★ 07 08 09 10 11 12 ★ 14 15
03月谷雨 17 18 19★○ 21 22 23 24 25 26⑸★ 28 29 30
04月真01立夏 03◆★66● 06 07 08 09 10 ★ 12 13 14 15
04月 16小满 ★ 19 ○ 21 22 23 24 ★ 26 27⑹28 29 30
05月 01真★芒种67● 05 06 07 08 ★ 10 11 12 13 14 15
05月 ★ 17夏至 ○ 20 21 22 ★ 24 25 26 27⑺28 29 ★
06月 01 02◆03小● 05 06 ★ 08 09 10 11 12 13 ★ 15
06月 16 17 18大○真20 ★ 22 23 24 25 26 27 ★⑻29 30
06月 31 3269● 34真★
07月立秋 02 03 04 05 06 ★ 08 09 10 11 12 ○ ★ 15
07月处暑 17 18 19 20 ★ 22 23 24⑼25 26 27★● 29 30
08月白露 02 03 04 ★ 06 07 08 09 10 11 ★ ○ 14 15
08月秋分真17 18 ★ 20 21 22 23 24⑽25 ★71● 28 29 30
09月寒露真02 ★ 04 05 06 07 08 09 ★ 11 ○ 13 14 15
09月霜降真★ 18 19 20 21 22 23 ★ 25⑾2672● 28 29 30
10月★冬真02 03 04 05 06 07 ★ 09 10 11 ○ 13 14 ★
10月小雪真17 18 19 20 21 ★ 23 24 25⑿● 27 28 ★ 30
11月大雪真02 03 04 05 ★ 07 08 09 10 ○ 12 ★ 14 15
11月冬至真17 18 19 ★ 21 22 23 24 2574●⑴★ 28 29 30
12月小寒 02 03 ★ 05 06 07 08 09 10★○ 12 13 14 15
12月大寒 17 ★ 19 20 21 22 23 24★● 26 27⑵28 29 30
注：在日期格右半的●○为简化朔望日，望取每月之16；●前数字为纪月数。
朔若有出入，左半的◆为真朔日。
汉字节气名为简化节气日。若与真节气有出入，真字为真节气日。
日期格括号内数字为公历月次的⑴日。★为星期日。
元旦儒略日序为2453406。干支纪月为戊寅月，干支纪日为己未日
世界历法改革的现状简介及代表性方案点评
a.世界历法改革在20世纪20年代和50年代曾有两次高潮，提出的代表性方案有“世界历”和“十三月历”。1956年联合国经社理事会曾就“世界历”方案，征求各国意见，最后美国等国以该方案中有“空日”，违反宗教信仰为理由，历法改革的议题被无限期搁置讨论。至今搁置禁令未解除。一些国家的历法学者，仍以民间学术研究的形式讨论交流意见，并进行呼吁各国政府及联合国关注历法改革问题。
b.代表性方案评述
世界历方案 一年四历季，每季13周，分三个月，第一月大，31日；其余二月小，各30日。每季第一日为星期日。年末加一空日。闰年在6月末加一空日。空日不属任何月，也不属七日星期。
十三月历方案 一年13个月，每月4星期，年末加一空日。闰年再加一空日。
按前述历法三原则及五要求衡量：
世界历方案 按三原则衡量：只平均年长合天。历季与自然季无关，所以季不合天,不透明。12个月月长透明，但杂乱无章，不方便。
按五要求衡量:年不正,季不清,月不齐,节不明,周不整但稳定。
空日违反宗教信仰，使历法改革陷入僵局。
十三月历方案 按三原则衡量： 不分季故不合天。月长透明，13月不方便。
按五要求衡量:年不正,季不清,月齐,节不明,周整且稳定。
空日违反宗教信仰，也使历法改革陷入僵局。
欢迎世界各国，各民族，各宗教的朋友们都来关心世界历法改革的事，对本方案提出意见。
呼吁各国政府，联合国关注与全人类生活有关的历法改革问题。有“空日”的方案可以反对，但不应“因噎废食”，不应全部否定世界历法改革。现行公历与当代科学与文明的发展水平太不相称。人类应该有一个与信息时代科学和生活水平相称的世界历法。
关心世界历法改革的朋友们，希望您把本网页的信息向您的亲朋好友介绍传播： 或
;1=chinese
您若想得到2004年自然历与公历对照历表及详细资料,可与以下信址联系:szyang7118@sina.com索取.
3.曾码汉字简介
单字=音码 形码
音码（曾码切音双拼）=声码 韵码
形码（子声码）=首子码 尾子码
二字词=首字声 首字韵 二字声 二字韵
三字词=首字声 二字声 三字声 三字韵
多字词=首字声 二字声 三字声 末字声
声母：
与汉语拼音相同声母：b,c,d,f,g,h,j,k,l,m,n,p,
q,r,s,t,w,x,y,z
汉语拼音双字母声母的简化声母:
i→zh, v→ch, u→sh
新增假声母: a, e, o
韵母:
a→a, h→ou, n→ian, r→un, v→uai,
b→ie, i→i, o→o, r→er, v→ū,
c→an， j→ia, o→uo, s→ui, w→ang,
d→iu， j→ua, p→in, s→ue, x→iang,
e→e， k→uan， q→iong, t→eng, x→uang,
f→ei, l→iao, q→ong, u→u, y→ao,
g→en, m→ing, z→ai
子字:汉字中的包含字称子字.子字以GK标准中字为限.
首子字:含首笔画的子字称首子字,其声母称首子码.
尾子字:去掉首子字后的剩余部分称余部.含余部末笔画的子字称尾子字,其声母称尾子码.
首子字及尾子字都是大者优先.
当取不到子字时,以代字代替之.代字以代字表中所列为限.
曾码汉字举例:
ztbr maum hcdy zibz jvxu lirl
曾 码 汉 字 举 例
ztma hczi jvli
曾码 汉字 举例
bfjm ayhs
北京 奥运会
ihrg
中华人民共和国
附录：代字逐个说明：
爱字头， 读如爱ai，取声母a，用例：受ay。
倒八字， 读如八ba，取声母b，用例：曾br。
宝字头， 读如宝by, 取声母b，用例：实bt。
扁字尾， 读如扁bn，取声母b，用例：龠rb。*
病字外， 读如宝by，取声母b，用例：实bt。
布字头， 读如布bu，取声母b，用例：有by.
卜变形， 读如卜bu，取声母b，用例：上bh。
草字头， 读如草cy，取声母c，用例：花ch。
两点水， 读如点dn，取声母d，用例：冰du。
三点水， 读如点dn，取声母d，用例：河dk。
立刀旁， 读如刀dy，取声母d，用例：刻hd。
刀变形， 读如刀dy，取声母d，用例：免de。
丁不钩， 读如丁dm，取声母d，用例：斤fd。*
登字头， 读如登dt，取声母d，用例：癸dt。
单耳旁， 读如耳er，取声母e，用例：即ge。
复耳旁， 读如耳er，取声母e，用例：陈ed。
耳变形， 读如耳er，取声母e，用例：卷je。
二竖画， 读如二er，取声母e，用例：坚et。
二竖撇， 读如二er，取声母e，用例：师ej。
二撇竖， 读如二er，取声母e，用例：齐we。
鄂左边， 读如鄂ee，取声母e，用例：萼ce。
风字外， 读如风ft, 取声母f, 用例：凤fy。
丰变形， 读如丰ft，取声母f，用例：邦fe。
反字外， 读如反fc，取声母f，用例：斤fd。
番字头， 读如番fc，取声母f，用例：悉fx。
戈缺点， 读如戈ge，取声母g，用例：尧gw。
共字头， 读如共gq，取声母g，用例：昔gr。
勾字外， 读如勾gh，取声母g，用例：句gk。
艮变形， 读如艮gg，取声母g，用例：即ge。
媾字右， 读如媾gh，取声母g，用例：篝ig。
火古写， 读如火ho，取声母h，用例：焦ch。
虎字头， 读如虎hu，取声母h，用例：虏hl。
爪变形， 读如爪iy，取声母i，用例：觅ij。
金字旁， 读如金jp，取声母j，用例：铁ju。
祭字头， 读如祭ji，取声母j，用例：祭ju。*
假字右， 读如假jj，取声母j，用例：暇rj。
卷字头， 读如卷jk，取声母j，用例：券jd。
经字右， 读如经jm，取声母j，用例：径vj。
建字外， 读如建jn，取声母j，用例：廷rj。
军字头， 读如军jr，取声母j，用例：冠jc。
亏字尾， 读如亏ks，取声母k，用例：号kk。
快字右， 读如快kv，取声母k，用例：块tk。
立字头， 读如立li，取声母l，用例：文ly。
吕变形， 读如吕lv，取声母l，用例：官bl。
木变形， 读如木mu，取声母m，用例：茶cm。
贸字头， 读如贸my，取声母m，用例：贸mb。*
卯字左， 读如卯my，取声母m，用例：卯me。*
弄字尾， 读如弄nq，取声母n，用例：算in。
牛变形， 读如牛nd，取声母n，用例：告nk。
牛字旁， 读如牛nd，取声母n，用例：犊nm。
鸟字外， 读如鸟nl，取声母n，用例：凫nj。
爿变形， 读如爿pc，取声母p，用例：将pc。
犭字旁， 读如犬qk，取声母q，用例：狼ql。
前字头， 读如前qn，取声母q，用例：首qz。
区字外， 读如区qv，取声母q，用例：匡qw。
区外变形，读如区qv，取声母q，用例：印qe。
青字头， 读如青qm，取声母q，用例：责qb。
单立人， 读如人rg，取声母r，用例：俘rf。
卧人头， 读如人rg，取声母r，用例：乞ry。
搅丝旁， 读如丝si，取声母s，用例：编sb。
三个撇， 读如三sc，取声母s，用例：须sy。
同字外， 读如同tq，取声母t，用例：网ty。
同外变形，读如同tq，取声母t，用例：月te。
提手旁， 读如手uh，取声母t，用例：按ua。
手变形， 读如手uh，取声母u，用例：看um。
示字旁， 读如示ui，取声母u，用例：视uj。
食字旁， 读如食ui，取声母u，用例：饥uj。
十变形， 读如十ui，取声母u，用例：南ug。
豕字尾， 读如豕ui，取声母u，用例：象du。
水变形， 读如水us，取声母u，用例：泰fu。
少缺点， 读如少uy，取声母u，用例：步iu。
川变形， 读如川vk，取声母v，用例：侃rv。
常字头， 读如常vw，取声母v，用例：堂vt。
朝左边， 读如朝vy，取声母v，用例：韩vw。
无变形， 读如无wu，取声母w，用例：既gw。
右反文， 读如文wg，取声母w，用例：枚mw。
务字头， 读如务wu，取声母w，用例：各wk。
竖心旁， 读如心uu，取声母u，用例：怕xb。
心变形， 读如心xp，取声母x，用例：恭gx。
小变形， 读如小xp，取声母x，用例：尚xk。
兴字头， 读如兴xm，取声母x，用例：学xz。
寻字头， 读如寻xr，取声母x，用例：灵xh。
寻头变形，读如寻xr，取声母x，用例：肃xb。
向字外， 读如向xx，取声母x，用例：奥xd。
凶字外， 读如凶xq，取声母x，用例：缶wx。
言字旁， 读如言yc，取声母y，用例：计yu。
衣字旁， 读如衣yi，取声母y，用例：袖yy。
衣字尾， 读如衣yi，取声母y，用例：农jy。
云变形， 读如云yr，取声母y，用例：育yy。
爻头尾， 读如爻yy，取声母y，用例：希yb。*
甬字头， 读如甬yq，取声母y，用例：予yg。
尤缺点， 读如尤yh，取声母y，用例：尴yj。
羊变形， 读如羊yw，取声母y，用例：着ym。
羊变形， 读如羊yw，取声母y，用例：盖ym。
易变形， 读如易yi，取声母y，用例：杨my。
幺缺点， 读如幺yy，取声母y，用例：乡yp。
足字旁， 读如足zu，取声母z，用例：距zj。
走之旁， 读如走zh，取声母z，用例：过cz。
载字外， 读如载zz，取声母z，用例：截zc。
横笔画， 读如横ht，取声母h，用例：至ht。
竖笔画， 读如竖uu，取声母u，用例：中ku。
撇笔画， 读如撇pb，取声母p，用例：自pm。
点笔画， 读如点dn，取声母d，用例：为dd。
捺笔画， 读如捺na，取声母n，用例：人pn。
提笔画， 读如提ti，取声母t，用例：刁gt。
钩笔画， 读如钩gh，取声母g，用例：丁hg。
拐笔画， 读如拐gv，取声母g，用例：民gg。
折笔画， 读如折ie，取声母i，用例：乃ip。*
后面带*号的用到的字很少，考虑今后删除。
联系邮箱：wanyiw24@163.com（三个工作日内处理）
备案号：浙ICP备2023010491号-1
