Gambas ONE

cogier wrote: ↑Saturday 30th March 2024 8:48am It's not the Development Team that needs to look at this, it's me. I will sort it as.soon as I can.

10:10am 30/03/2024
Now fixed

https://gambas.one/playground/

Aaaah , so does the gambas website playground link to you than?

It links to the Playground from the main gambas website.
https://gambas.sourceforge.net/en/main.html#

The error is there.

I have reported it to the development team.

Since the last update i have been trying to iron out some of the bugs, 1 of which I introduced by changing from single selection to multiple selection. Mostly the problems were caused by 2 things i think... 1. The BlockOverlap(hBlock, X, Y) method was returning the hBlock where it should have only r...

Try it and see

thatbruce wrote: ↑Wednesday 27th March 2024 11:22am No more clues from me. If you want us to writ your damn pos system, send money.

Haha

Yep, give a man a fish and he eats for a day. And all that

Okay so i had a real proper read of your first post to see what the initial goal was again. You want to get from Sunday to Monday of a previous week from a given date. So get the previous Sunday , then the Monday before that... So you want something like this... Public Sub Button1_Click() Dim d As D...

Sigh

Not sure what you could not get your head around or why after asking 3 different questions that all got answered you did something completely different? i guess that's your prerogative.

I'm not sure what you mean by Hover over them?
Gambas will just display the date object as it is.

If they are using Date objects not Strings then just use Format where you need it formatted

sDisplayString = Format(dtStartDate,"dddd dd/mm/yyyy")

That cannot be true you make D a string object not a Date object. Then you make the string and return it... D = "01/" & Format(MonthName, "00") & "/" & Year Return D D will begin with 01/ . just like you made it Unless somewhere else along the line you are u...

So i spent a whole minute writing this. (thanks to the clues given by the other Bruce :) ) Public Sub Button1_Click() Debug GetLastMonthDay(Now) Debug Format(GetLastMonthDay(Now), "dddd dd mmm") End Public Sub GetLastMonthDay(hDate As Date) As Date Dim d As Date d = DateAdd(hDate, gb.Day, ...