B4A Library Simple Lunar Library

Well, that's a Chinese Lunar Library,
It's just convert milliseconds value to Chinese lunar calendar date。
e.g. the DateTime.Now

The function is still very simple, although can be used basically.
However, let's update it later.

The App Use of this library:


Basic Usage:

    Dim b As LunarLib  
    Dim c As Lunar =b.converterDate(DateTime.Now)
    Log(c.Day)

    Log(c.lyear & " " & c.lmonth & " "  & c.lday)
    Log(c.toString)
    Log(c.Month & "月" & c.Day)

The Result:



Any suggestion is welcome,
I'm new to compile library, Thx =D

 

[LucaMs]

Thank you for sharing.

It's just convert microsecond

milliseconds


I took a look at the Chinese forum: really strange. That's why your thread is more appreciable.


Of course you should be a genius at least 10 times more than Erel:

7 years old!





[At the age of 7 I only knew the "multiplication tables" (but only because at that time there were no smartphones ]

 

[52manhua]

Thank you for sharing.


milliseconds


I took a look at the Chinese forum: really strange. That's why your thread is more appreciable.


Of course you should be a genius at least 10 times more than Erel:
View attachment 71898

7 years old!

Well, its my son's age



[At the age of 7 I only knew the "multiplication tables" (but only because at that time there were no smartphones ]

well, it's my son's age = )

and thank you.

 

[52manhua]

AS I tested when using DateTime.DateParse("xx/xx/xxxx") code the value should add 1000 or upper to make the result right,

Otherwise the Lunar.Day is one day earilier,

It should be fixed in next version.

For now ,just type:

converterDate(DateTime.DateParse("xx/xx/xxxx") + 1000)

 

[xkbuild]

正要解决类似这样的问题，太好了！