asCalendar_1_2

#1 · May 10, 2022, 7:29 pm

The difference from the first version of the plugin:

Fixed errors of incorrect display of the font in the windows of the Assistan Code in the "asCalendarCreate" and "asCalendarNameMounths" commands.

Fixed errors with incomplete writing names of the days and months of the year.

asCalendar_1_2 is a plugin designed for use with VisualNeo Win (NeoBook 5) that provides the ability to add a calendar to your generated programs with a choice of date periods. Perhaps a complete change in the color of the calendar and calendar font, it is possible to change the size of the calendar and the names of the days of the week and months.

The archive contains a plugin, a line feed file and a demo version.
To use the translation file from Russian to English, copy the included file “asCalendar.loc” to the folder in which VisualNEO Win is installed.
To translate strings into other languages, translate the strings of the file, starting from the string “001 * Rectangle:” and below.

Do not change the file name.

asCalendar_1_2

Regards

as3856 ( Andrei)

luishp, Vadim and 5 other users have reacted to this post.

#2 · May 10, 2022, 7:34 pm

@as3856

Thanks so much for the update!!!

#3 · May 10, 2022, 8:38 pm

Thank you!

#4 · January 13, 2025, 11:54 pm

Hi @as3856 (MASTER!!!!!!)

Is there any way to set the desired date format for the calendar? I can't figure it out because it gives me the dd/mm/yyyy format and I need the data to be in yyyy-mm-dd.

The other question is, is there any way to select the current date when creating the calendar?

Best Regards

#5 · January 16, 2025, 8:40 pm

@joferar333

To change the calendar date format in the demo project, replace the subroutine

:GetDate
StrParse "[SelectDate]" "-" "[DateArray]" "[LenArray]"
Return

with

:GetDate
StrParse "[SelectDate]" "-" "[DateasArray]" "[LenasArray]"
.******************************************************
StrParse "[DateasArray1]" "." "[asArray]" "[asArray]"
SetVar "[DateArray1]" "[asArray3].[asArray2].[asArray1]"
.******************************************************
If "[DateasArray2]" "<>" ""
StrParse "[DateasArray2]" "." "[aArray]" "[aArray]"
SetVar "[DateArray2]" "[aArray3].[aArray2].[aArray1]"
EndIf
Return

Regards

as3856

Uploaded files:

You need to login to have access to uploads.

luishp, Vadim and danito have reacted to this post.

asCalendar_1_2 - Forum

asCalendar_1_2