夏季休暇の走行距離

だいたいこのくらいの走行距離でした。

大きな地図で見る

で、その間にバンパーを（たぶん踏切）すってみたり……


走行距離も4500㎞超えてみたり……

田舎の農道で一人、ラリーごっこなんぞやって生い茂った草木で左のドアとリアフェンダーあたりに浅いひっかき傷をつけてみたりする休みでした。

JQuery で生成されたHTMLは IE Management UDF で期待する操作を行えない（場合がある）。

JQuery で生成されたHTMLから対象をクリックするには（タグから）
で、
Local $oNames = _IETagNameGetCollection($oIE, "span")
で、JQueryで生成されたHTMLのからLIタグがコレクションできなかったので、 べたなHTMLでは「LIをコレクションできるよね？」をちょっとだけ調べてみた。

これで調べる。

Local $oNames = _IETagNameGetCollection($oIE, "li")

for $oName IN $oNames

ConsoleWrite($oName.tagname & " / " & $oName.innerText & @CRLF)

Next


JQuery で生成されたHTMLから対象をクリックするには（タグから）

JQueryで生成されたHTMLから対象を見つけ出してクリックする方法、タグから編。

-----
#include

$oIE = _IECreate($uri)
_IELoadWait($oIE)

;span タグでコレクションする。
Local $oNames = _IETagNameGetCollection($oIE, "span")
Local $oName

;$oName.innerText と対象が一致したらクリックする。
for $oName IN $oNames

If StringInStr($oName.innerText, $terget) <> 0 Then _IEAction($oName, "click")

Next
-----

ただし、

Local $oNames = _IETagNameGetCollection($oIE, "span")

でコレクションできないとだめ。

CES-D（うつ病自己評価評価尺度）

CES-D（うつ病自己評価評価尺度）

21点だた。

確かにここ1，2週ほど仕事が手につかない状態が多いな～とは思ったが。
また、カウンセリング受けますかね(´・ω:;.:...

AutoIt でカレンダーの月初日の曜日を求める

よくある、ツェラーの公式を使って月初日の曜日を求める方法メモ。

-----
Opt('MustDeclareVars', 1)
Opt("WinTitleMatchMode", 4)

Func main()

Local $lastDay[12] = [31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]
Local $day = @MDAY, $start, $i

If GetLeapYear(@YEAR) == 1 Then $lastDay[1] = 29

;月頭の曜日を求める
$start = GetMonthlyDayOfTheWeek(@YEAR, @MON, 1)

EndFunc

Func GetMonthlyDayOfTheWeek($year, $mon, $day)

Local $r

If $mon < 3 Then

$mon += 12
$year -= 1

EndIf

$r = mod(($year +Int($year / 4) - Int($year / 100) + Int($year / 400) + Int((13 * $mon + 8) / 5) + $day), 7)

Return $r

EndFunc

;閏年を求める関数
Func GetLeapYear($year)

Local $r

If ((mod($year, 4) == 0) And (mod($year, 100) <> 0)) Or (mod($year, 400) == 0) Then $r = 1
Return $r

EndFunc
-----

年月日をマクロ@YEAR、＠MON、＠MDAY
余 は AutoIt のオペレータには % がないので mod(value1, value2）関数を利用する。
除算の際はInt( expression [, flag ] )関数を使いましょう。