17 replies to this topic

[keekehhung]

Greetings,

May I ask, do anybody know how to calculate the total number of current month? or the last day of current month? For example,

1) MARCH 2006 = 31 days.
2) APRIL 2006 = 30 days

Thank you
Kee

[keekehhung]

Hi, Bobo.

Thanks for your help. I just managed to find a post from PenP. after some amendment on the code, now the coding can be calculate the length of the current month.

Get the solution from following thread.
http://www.autohotke... ... ight=month

yday = %a_mday% 
ymonth = %a_mon% 
yyear = %a_year% 

  if ymonth = 01 
  { 
    yday = 31 
  } 
  else if ymonth = 02 
  { yday = 28 
    leapyear = %a_year% 
    envdiv, leapyear, 4 
    envmult, leapyear, 4 
    envsub, leapyear, %a_year% 
  ifequal leapyear, 0 
  { 
    yday = 29 
  } 
  } 
  else if ymonth = 03 
  { 
    yday = 31 
  } 
  else if ymonth = 04 
  { 
    yday = 30 
  } 
  else if ymonth = 05 
  { 
    yday = 31 
  } 
  else if ymonth = 06 
  { 
    yday = 30 
  } 
  else if ymonth = 07 
  { 
    yday = 31 
  } 
  else if ymonth = 08 
  { 
    yday = 31 
  } 
  else if ymonth = 09 
  { 
    yday = 30 
  } 
  else if ymonth = 10 
  { 
    yday = 31 
  } 
  else if ymonth = 11 
  { 
    yday = 30 
  } 
  else if ymonth = 12 
  { 
    yday = 31 
  } 
;} 


MsgBox, This month have: `t%yday% days.

[SKAN]

Dear keekehhung,

I've just posted LDOM() {returns Last Day of Month}

Give it a try...

Regards

Edit:

MsgBox, % "This month have: " LDOM() " days."

[SKAN]

Variant of BoBoLDOM() 8)

TimeStr=20000229
ValidDate := IsDateValid(TimeStr)

If ValidDate
   Msgbox % TimeStr " is a Valid Date"
else
   Msgbox % TimeStr " is an Invalid Date!"
return

IsDateValid(TimeStr)
{
FormatTime,Dt,%TimeStr%,d
If Dt = 
   Return 0
else
   Return 1
}

Regards,

[keekehhung]

WOW!! You guys really great! Thanks a lot

[Laszlo]

You could still chop off a couple of lines

IsDateValid(TimeStr) { 

   FormatTime,Dt,%TimeStr%,d 

   Return DT > ""

}

If you like it more cryptic, use

Return 1-!DT

[SKAN]

Dear Laszlo,

Thanks a lot.

If you like it more cryptic, use

Return 1-!DT

:shock:

Can you please explain/give me one more example on this. I've never used anything like it!

Please...

Regards,

[PhiLho]

Let me guess...
If valid, DT is a number between 1 and 31, which is true; !DT transform it to false, ie. 0 when used in a numeric expression.
If invalid, DT is empty, but !DT transforms it from implicit false to true, ie. 1 when used in a numeric expression.
So, 1 - !DT is 0 (false) if DT is invalid, and 1 (true) if valid.
Very smart and tricky... :-)
We can also use Return not !DT (!!DT doesn't work...) or simply Return DT > 0.

[SKAN]

If valid, DT is a number between 1 and 31, which is true; !DT transform it to false, ie. 0 when used in a numeric expression.
If invalid, DT is empty, but !DT transforms it from implicit false to true, ie. 1 when used in a numeric expression.
So, 1 - !DT is 0 (false) if DT is invalid, and 1 (true) if valid.

Nicely explained.. Thanks a lot PhiLho..

One more thing. I understand Zero is False and any other number is True

But why does this not work? : IfEqual,DT,,Return 0

Regards,

[PhiLho]

But why does this not work? : IfEqual,DT,,Return 0

Works for me...

IsDateValid(_timeStr) {

	FormatTime DT, %_timeStr%, d

	IfEqual DT, , Return 0

	Return 1

}

MsgBox % IsDateValid("20060330")  IsDateValid("20060230")

[SKAN]

Oh Yes!.. It does work!!, Guess I was blind !!! :shock:.

Thanks PhiLho. Regards,

[Laszlo]

"1 - !DT" is in the direction of obfuscating the code (to enforce copyrights). PhiLho just blew the cover... :lol:

Chris: should not "!!x" work? Or "not not x"?
"not !x", "!(! x)" and "not (not x)" do work, but "! not x" does not.