Gambas ONE

There is some very nice programming here. I have used 2D CAD in a professional capacity, so I was looking for various features. Here are some of my observations: - About - Clicking this got no response, a project can live or die on its documentation. Line Styles and line Weights - Can you indicate w...

You need to switch on the HTTP server. From the Debug Menu select Configuration.. and turn on the HTTP server. https://www.cogier.com/gambas/WebServer.png I changed your code slightly: - ' Gambas class file Export Public Sub WebButton1_Click() Message("This is a message box.") End Public S...

Can you post an example of your code?

These are really nice. Just shows what can be done.

Minor point regarding using the Quit command see here.

Hi daveanderton and welcome to the forum.

There is no need to register to see the examples. Just open the Farm from the Gambas menu: -



Or you can see the contents of the Farm on Gambas.One here. (Best results with Firefox)

Well there is something wrong somewhere as your examples work as expected at this end, QT, GTK returned the same results.

What do you get running the following?: -

  Dim dDate As Date

  dDate = Date(Now) - Day(1)
  Print "Yesterday was " & Format(dDate, "mm/dd/yyyy")

Note that the code in my other posts were using Day/Month/Year format not, as in this example, the USA date format.

On your main computer I think you are running a Debian distribution. If you open Terminal and type lsb_release -a I suspect you will be told you are running Debian buster . I may be wrong! Debian buster has Gambas 3.12.2 in its repos. I have just uploaded the latest recommended Raspbian OS (32 bit) ...

Hi greyghost4, The idea was to get the beginning of the following month and go back 1 day, hence - Day(1) I tried your code: - dDate = Date(iYear, iMonth, 1) - Day(2) Result: - 30/01/2022 -- Sunday 30 January 2022 27/02/2022 -- Sunday 27 February 2022 30/03/2022 -- Wednesday 30 March 2022 29/04/2022...

Not sure that this is 'elegant', but it works: - Public Sub Form_Open() Dim iLoop, iMonth As Integer Dim iYear As Integer = 2022 Dim dDate As Date For iLoop = 2 To 13 If iLoop = 13 Then iYear += 1 iMonth = 1 Else iMonth = iLoop End If dDate = Date(iYear, iMonth, 1) - Day(1) Print Format(dDate, "...