Skip navigation

Not logged in

Join
More

Leader-board

The top 5 point holders as of this week.

BruceSteers	13,976
cogier	10,785
gbWilly	7,535
Poly	4,244
stevedee	2,635

Archives

S	M	T	W	T	F	S
						1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30

DateAdd problem with month end

Post

Posted April 17th 2022, 3:52 AM

Rating:

#1 (In Topic #840)

bill-lancaster

Regular

I want a series of dates where each date is a month end.
DateAdd doesn't do this for me.
If Date1 is 30 April 2022 then

Code

DateAdd(Date1, gb.Month, 1)

gives 30 May 2022 not 31 May

Is there an elegant way to achieve this?

Gambas 3.17.2

Post

Posted April 17th 2022, 7:27 AM

Rating:

cogier

Guru

Not sure that this is 'elegant', but it works: -

Code (`gambas`)

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, "dd/mm/yyyy") & "   --   " & Format(dDate, "dddd d mmmm yyyy")
  Next
 
End

Result: -
31/01/2022   –   Monday 31 January 2022
28/02/2022   –   Monday 28 February 2022
31/03/2022   –   Thursday 31 March 2022
30/04/2022   –   Saturday 30 April 2022
31/05/2022   –   Tuesday 31 May 2022
30/06/2022   –   Thursday 30 June 2022
31/07/2022   –   Sunday 31 July 2022
31/08/2022   –   Wednesday 31 August 2022
30/09/2022   –   Friday 30 September 2022
31/10/2022   –   Monday 31 October 2022
30/11/2022   –   Wednesday 30 November 2022
31/12/2022   –   Saturday 31 December 2022

Post

Posted April 17th 2022, 11:47 AM

Rating:

grayghost4

Enthusiast

dDate = Date(iYear, iMonth, 1) - Day(1)

what is the purpose of    "-Day(1) ?

seems to work the same without it.

dDate = Date(iYear, iMonth, 1) - Day(2)

outputs :

31/01/2022   –   Monday 31 January 2022
28/02/2022   –   Monday 28 February 2022
31/03/2022   –   Thursday 31 March 2022
30/04/2022   –   Saturday 30 April 2022
31/05/2022   –   Tuesday 31 May 2022
30/06/2022   –   Thursday 30 June 2022
31/07/2022   –   Sunday 31 July 2022
31/08/2022   –   Wednesday 31 August 2022
30/09/2022   –   Friday 30 September 2022
31/10/2022   –   Monday 31 October 2022
30/11/2022   –   Wednesday 30 November 2022
31/12/2022   –   Saturday 31 December 2022
^

Post

Posted April 17th 2022, 12:54 PM

Rating:

cogier

Guru

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   –   Friday 29 April 2022
30/05/2022   –   Monday 30 May 2022
29/06/2022   –   Wednesday 29 June 2022
30/07/2022   –   Saturday 30 July 2022
30/08/2022   –   Tuesday 30 August 2022
29/09/2022   –   Thursday 29 September 2022
30/10/2022   –   Sunday 30 October 2022
29/11/2022   –   Tuesday 29 November 2022
30/12/2022   –   Friday 30 December 2022

I tried without the -Day(1): - dDate = Date(iYear, iMonth, 1)
Result: -
01/02/2022   –   Tuesday 1 February 2022
01/03/2022   –   Tuesday 1 March 2022
01/04/2022   –   Friday 1 April 2022
01/05/2022   –   Sunday 1 May 2022
01/06/2022   –   Wednesday 1 June 2022
01/07/2022   –   Friday 1 July 2022
01/08/2022   –   Monday 1 August 2022
01/09/2022   –   Thursday 1 September 2022
01/10/2022   –   Saturday 1 October 2022
01/11/2022   –   Tuesday 1 November 2022
01/12/2022   –   Thursday 1 December 2022
01/01/2023   –   Sunday 1 January 2023

Sorry, but I can't explain your results, as you can see all my experimentation returned what I expected.

Post

Posted April 17th 2022, 1:07 PM

Rating:

grayghost4

Enthusiast

for me Print day(1) .... returns 0

Post

Posted April 17th 2022, 2:27 PM

Rating:

cogier

Guru

What do you get running the following?: -

Code (`gambas`)

  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.

Post

Posted April 17th 2022, 5:19 PM

Rating:

grayghost4

Enthusiast

Code (`gambas`)

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

Output :

today Is 04/17/2022
Yesterday was 04/17/2022

Code (`gambas`)

Public Sub Form_Open()
 
  Dim dDate As Date
 
dDate = Date(Now) - Day(2)
 
Print "today Is  " & Format(Date(Now), "mm/dd/yyyy")
 
Print "Yesterday was " & Format(dDate, "mm/dd/yyyy")

output :

today Is 04/17/2022
Yesterday was 04/16/2022

It has nothing to do with the format …. I tried it with GTK3 and QT4 and 5 same results
I upgraded to 3.17 … same results

Post

Posted April 17th 2022, 6:25 PM

Rating:

grayghost4

Enthusiast

this does work correctly

Code (`gambas`)

Public Sub Form_Open()
 
  Dim dDate As Date
 
dDate = Date(Now - 1)
 
Print "today Is      " & Format(Date(Now), "mm/dd/yyyy")
 
Print "Yesterday was " & Format(dDate, "mm/dd/yyyy")
 
Print "Tomorrow it will be   " & Date(Now + 1)
End

results :
today Is 04/17/2022
Yesterday was 04/16/2022
Tomorrow it will be 04/18/2022 05:00:00

Post

Posted April 18th 2022, 7:08 AM

Rating:

cogier

Guru

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

<IMG src="https://www.cogier.com/gambas/DateAdd1.png">

</IMG>

<IMG src="https://www.cogier.com/gambas/DateAdd2.png">

</IMG>

Post

Posted April 18th 2022, 7:41 AM

Rating:

#10

grayghost4

Enthusiast

Ubuntu 21.10 … Gnome …. X11

tried with 3.16 and now 3.17
I may try Wayland and see if that makes a difference .

Post

Posted April 18th 2022, 12:33 PM

Rating:

#11

grayghost4

Enthusiast

Code (`gambas`)

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) - 1   ' '  <<<<  this does work 
    Print Format(dDate, "dd/mm/yyyy") & "   --   " & Format(dDate, "dddd d mmmm yyyy")
  Next
 End 

result :
31/01/2022   –   Monday 31 January 2022
28/02/2022   –   Monday 28 February 2022
31/03/2022   –   Thursday 31 March 2022
30/04/2022   –   Saturday 30 April 2022
31/05/2022   –   Tuesday 31 May 2022
30/06/2022   –   Thursday 30 June 2022
31/07/2022   –   Sunday 31 July 2022
31/08/2022   –   Wednesday 31 August 2022
30/09/2022   –   Friday 30 September 2022
31/10/2022   –   Monday 31 October 2022
30/11/2022   –   Wednesday 30 November 2022
31/12/2022   –   Saturday 31 December 2022

Post

Posted April 21st 2022, 6:12 AM

Rating:

#12

thatbruce

Regular

Forget the Day(1) just use, for example
Yesterday = Date(now) - 1
Look at how gambas represents dates internally

1 guest and 0 members have just viewed this.

Statistics

Forum statistics:	1,737 topics, 12,112 posts, 283 members Our newest member is Sasimillennium

Not logged in

Leader-board

DateAdd problem with month end

Post

Code

Post

Code (gambas)

Post

Post

Post

Post

Code (gambas)

Post

Code (gambas)

Code (gambas)

Post

Code (gambas)

Post

Post

Post

Code (gambas)

Post

Statistics

Code (`gambas`)

Code (`gambas`)

Code (`gambas`)

Code (`gambas`)

Code (`gambas`)

Code (`gambas`)