Cómo hacer un calendario perpetuo con VB
#Región "Regresar al Año Nuevo Lunar"
Regresar al Calendario Lunar
CCalendar. Devuelve la fecha máxima admitida, que es 2101-1-28.
Calendario. Devuelve la fecha admitida más pequeña, que es 190-2-19.
Calendario privado como nuevo sistema..
Función pública PubFunGet_cn Fecha(ByVal sDateTime As Date) en forma de cadena
cCalendar = nuevo sistema..
Dim laño como entero = cCalendar. GetYear(sDateTime)
Dim lmonth As Integer = cCalendar. GetMonth(sDateTime)
Dim lday As Integer = cCalendar. (sDateTime)
Dim lweek As Integer = cCalendar. (sDateTime)
Obtiene el mes bisiesto, 0 significa que no hay mes bisiesto.
mes bisiesto tenue Como entero = cCalendar. (Lil)
Dim isleap As Boolean = False
si (mes bisiesto > 0) entonces
si (mes bisiesto = lmes) entonces
p>Mes bisiesto
isleap = True
lmes = lmes - 1
else if (lmes gt; luego un mes
lmes = lmes - 1
Terminará si...
Terminará si...
Devuelve una cadena.
concat((lAño),IIF(islap=true,"año bisiesto","año"),(lmes),"mes",(ldía))
Finalizar función
十El trabajo de Tian
Tiangan privado As String() = {"A", "B", "C", "D", "E", "吉", "庚", "信", "Humano" y "Fantasma"}
Doce ramas terrestres
privado di As String() = {"子","UGH","Yin","hair"," Chen", "Si", "武", "Wei", "Shen", "You", "Xu", "海"}
Zodiac
Privado Xiao Sheng As String() = {"rata","buey","tigre","libre","dragón","serpiente","caballo","oveja","mono","pollo","perro"y " Cerdo"}
Meses lunares
meses privados As String() = {"正","二","三","四","五","六" ", "siete", "ocho", "nueve", "diez", "once", "doce (duodécimo)"}
Días del calendario lunar
días privados 1 As String() = {"Chu", "Diez", "Veinte", "Tres"}
Número privado de días String() = {"Uno", "Dos", "Tres", " Cuatro", "cinco", "seis", "siete", "ocho", "nueve" y "diez"}
Regreso al Año Nuevo Lunar (zodíaco chino)
Caracteres Función privada en forma de cadena (ByVal año en forma de número entero)
= ""
Si (año gt ¿entonces qué?
dim tgIndex As Integer = (año-4) Mod 10
índice dim dz Como entero = (año-4) Mod 12
Devuelve Tiangan (tgIndex) y di (índice dz) y "[" amp Xiaosheng Securities Exchange "]"
Terminará si...
¡Año no válido!
Finalizar función
Volver a Zodiac
p>Función privada en forma de cadena (ByVal sDateTime As Date)
Devolver Xiao Sheng (Calendario. (cCalendar.getsexagenary año (sDateTime)-1))
Función final
Devuelve el mes lunar
Función privada GetLunisolarMonth en forma de cadena (mes ByVal en forma entera)
GetLunisolarMonth=""
Si (0 mes), luego
Mes de devolución (mes - 1)
Si... terminará
¡Mes no válido!
Función final
Devolver el Año Nuevo Lunar
Función privada GetLunisolarDay en forma de cadena (día ByVal en forma de número entero)
GetLunisolarDay = " "
if(día >0 y otro día
si (día 20 y día 30) entonces
return string.concat(días 1 ((día -1)\10), días((día-1) Mod 10)
Otro
Cadena de retorno.
Concat (número de días ((día-1)\10), día 1(1))
Terminará si...
Terminará si...
¡Fecha no válida!
Función final
#Área final