2012年07月の記事
全36件 (36件中 1-36件目)
1
-
摂氏２８．８度
今年の最高気温大変だセイコーマートの「ガリガリ君」が売り切れだ
2012/07/31
コメント(1)
-
魚と烏賊
疲労回復のため休暇中のビット から「ヤナギノマイ」の煮付けと烏賊の刺身をもらった。▼料理済みなのが実にいい20120730_195551 posted by (C)ミント専門官
2012/07/30
コメント(3)
-
暑い日はゴロゴロに限る(^_^;)その２
今日もメロン食べた。やっぱり、 ガリガリ君を食べた。イオンの中のJTBに行った。今年の夏期休暇は、九州に行ってこうと思う▼階段20120729_172452 posted by (C)ミント専門官
2012/07/29
コメント(0)
-
暑い日はゴロゴロに限る(^_^;)
スイカ食べた。メロン食べた。ウナギ食べた。ガリガリ君食べた。おわり。
2012/07/28
コメント(1)
-
ＪＲ日高本線の旅 様似から苫小牧まで
今日は、暑かった ▼チャーターした列車に様似駅から乗り込む20120727_162957 posted by (C)ミント専門官 ▼整理券20120727_163255 posted by (C)ミント専門官▼車内20120727_163446 posted by (C)ミント専門官▼海沿いは、昆布の干場（かんば）が延々と続く！20120727_164638 posted by (C)ミント専門官▼ＪＲ浦河駅 納税はお早めに。 新しい枕木がにおう。20120727_165533 posted by (C)ミント専門官▼浦河町堺町付近▼一般国道２３５号「三石橋」と河川敷の馬 ここで、国道側から撮ると絵になるだろう。20120727_172715 posted by (C)ミント専門官▼「静内駅」付近に怪しい建物を発見。20120727_175641 posted by (C)ミント専門官▼静内駅 ３２分も停車する。切符を買った。20120727_180554 posted by (C)ミント専門官▼新冠町判官岬 夕日が綺麗なはず。20120727_183648 posted by (C)ミント専門官▼厚賀の町の手前20120727_184847 posted by (C)ミント専門官▼浜厚真付近 苫小牧東港20120727_194714 posted by (C)ミント専門官▼懐かしい「勇払駅」 高校生のとき、ここから３年間通学した。20120727_195430 posted by (C)ミント専門官勇払の次は、終点苫小牧。３時間３６分の旅 終わり。▼◆楽天ブログ◆楽天ブログ by (C)ミント専門官 ◆フォト蔵◆BLOG_2012 by (C)ミント専門官◆アメブロ◆アメブロ by (C)ミント専門官
2012/07/27
コメント(4)
-
今日の昼ご飯「天馬」北海道浦河郡浦河町字西幌別
ＪＲ日高本線の日高幌別駅の中にある食堂。郵便局もある。 ▼昼時は混んでいるから時間は余裕を持った方が良い！20120727_123248 posted by (C)ミント専門官 ▼ハンバーグ定食＠８５０20120727_130343 posted by (C)ミント専門官支店のフードバトラーは、ご飯の盛りが少ないことに腹を立て（一般人には十分多い量）おかわりをタダにさせてました。ひどいね。なお、この方、○廉恥な○撮の疑いで月曜日休んでいたんだって▼喰処呑処天馬 [日高幌別/居酒屋、ビアホール] - Yahoo!ロコloco.yahoo.co.jp/.../de44f8c197e040a01a355c38d56567e... - キャッシュ 一般公開で +1 しました 取り消す 評価: 5 - レビュー 1 件喰処呑処天馬 [日高幌別/居酒屋、ビアホール] の店舗情報をYahoo!ロコでチェックしよう！ クチコミ、写真、メニュー、お得なクーポン、電話番号、アクセス情報、イベント情報などをご紹介しています。天馬食堂 | 浦河/日高 | グルメGyaOggyao.usen.com › ... › 千歳・苫小牧・登別・室蘭 › 浦河/日高 - キャッシュ 一般公開で +1 しました 取り消す初めて行ったときに注文したのが、天馬ハンバーグ！！ 天馬ハンバーグとは何ぞや？と思いながら、ひと口パクリ！ ハンバーグの真ん中になぜかモヤシが入っている！ ハンバーグの中にポテサラが入っているのはよく知られているが、なぜモヤシなのか？◆楽天ブログ◆楽天ブログ by (C)ミント専門官 ◆フォト蔵◆BLOG_2012 by (C)ミント専門官◆アメブロ◆アメブロ by (C)ミント専門官
2012/07/27
コメント(2)
-
外で焼き肉２
また、外で焼き肉をした。 ▼家に帰ってから笹かまぼこを食べた。20120726_234643 posted by (C)ミント専門官◆楽天ブログ◆楽天ブログ by (C)ミント専門官 ◆フォト蔵◆BLOG_2012 by (C)ミント専門官◆アメブロ◆アメブロ by (C)ミント専門官
2012/07/26
コメント(0)
-
みんな競馬に行ったが...
みんな競馬に行った。自分は欠席し、ホームページの作成に勤しんだ。なぜならこの地方では、あまり大きな声でいえませんが、競馬に興味がないから
2012/07/25
コメント(0)
-
外で焼き肉
蚊にいっぱい刺された。へその上が一番かゆい
2012/07/24
コメント(2)
-
(〃ﾟдﾟ；A ｱｾｱｾ・・・
コメントや電話があり食いつきの良さに参ったぜ～ ペットボトルのキャップ捨ててやったのが枕元で倒れていただけなんだが...
2012/07/23
コメント(1)
-
やっちまったぜー
おねしょ！尿漏れじゃないぜ～ぼけ老人街道まっしぐらだぜ(T_T)
2012/07/22
コメント(2)
-
転職しました<(_ _)>
世界平和のため一大決心 ▼サンダーバード・コーポレーションに入社しました！20120721_174749 posted by (C)ミント専門官 ◆楽天ブログ◆楽天ブログ by (C)ミント専門官 ◆フォト蔵◆BLOG_2012 by (C)ミント専門官◆アメブロ◆アメブロ by (C)ミント専門官
2012/07/21
コメント(0)
-
苫小牧上空
▼前回の東京出張ははらはらどきどきの連続「鶴見線」の誘惑に負けルビコン川を渡ってしまった(T_T)｜ミント専門官の ...（2012/02/24）▼今回は寄り道をしないで余裕を持ってANAインターコンチネンタルホテル東京を出発今日は涼しい。20120720_092116 posted by (C)ミント専門官羽田について、ANA061便を061番ゲートで待つ...それは可笑しいだろう定刻７分前に、あわてて５７番ゲートへ走る ▼翼の下に「苫小牧港」が見え始めた。20120720_122414 posted by (C)ミント専門官▼苫小牧全体が見え始めた。20120720_122501 posted by (C)ミント専門官▼右下の「勇払マリーナ」も判別できる。20120720_122532 posted by (C)ミント専門官▼右上に「ウトナイ湖」がみえる。20120720_122551 posted by (C)ミント専門官▼右下は「弁天沼」20120720_122559 posted by (C)ミント専門官▼「日高自動車道」が雲の間からみえる。20120720_122627 posted by (C)ミント専門官▼石油備蓄のタンク20120720_122645 posted by (C)ミント専門官▼上厚真の上空あたり20120720_122657 posted by (C)ミント専門官▼北海道らしい田畑20120720_123231 posted by (C)ミント専門官▼千歳空港でポケモンジェットとお別れ。20120720_125348 posted by (C)ミント専門官▼ちょっと、まぬけなポーズ。20120720_132051 posted by (C)ミント専門官 ◆楽天ブログ◆楽天ブログ by (C)ミント専門官 ◆フォト蔵◆BLOG_2012 by (C)ミント専門官◆アメブロ◆アメブロ by (C)ミント専門官
2012/07/20
コメント(1)
-
今日の朝ご飯
ANA赤坂インターコンチネンタルホテル ▼小松菜のジュースが意外と飲める！20120720_082922 posted by (C)ミント専門官
2012/07/20
コメント(1)
-
ポケモンジェットでGO！～東京は溶けていた(T_T)がプレゼンinＫＡＪＩＭＡ
▼千歳空港からANAポケモンジェットで羽田空港へ。 飛行機の中はクーラー効き過ぎだったが...20120719_120017 posted by (C)ミント専門官京急新橋から銀座線へ：乗り換えの距離遠いぞ！溜池山王から地下通路で国会議事堂前：地下通路長い！この距離なら赤坂に歩くのと同じだろうが....今日は、地上より地下を行かないと溶けるよ▼あまりの暑さに赤坂TBSそばの公園で木陰に涼む20120719_134528 posted by (C)ミント専門官このあと、ＲＩＣＨＯの新システムのプレゼンを受ける。 鹿島建設の赤坂別館へ徒歩移動。溶けそうだ▼さすが、鹿島！警備員と監視カメラがいっぱい鹿島赤坂別館 案内図 www.kajima.co.jp/network/maps/pdf/ki.pdf今回は自分を含め５人で構成した。司会進行はいつも通り自分。相手はスーパーゼネコンを中心に構成するＩＣＴ部会 プレゼン開始！ みんな相手方の肩書きにビビリ気味だが場慣れはしている。 ▼こちらは、外国人のjyunを投入し、国際色で対抗する ただし、国籍は明かされていない20120719_181220 posted by (C)ミント専門官みんなプレゼン慣れしてきたのか、笑いをとるテクニックも身につけたなー 最後は相当に巻きを入れて、自分がまとめて終わり。「土木技術者はすべてM系である。そうでないものは、他業種へ転職しているから。」は、失笑をかった。 真相はついているから名言になるかもしれない。プレゼン後は、スタッフ一同名刺交換、意見交換、質問攻めあった。今後の引き合いも（オファー）多数。著作権の話にも及んだ。▼赤坂の神社20120719_200536 posted by (C)ミント専門官▼ANAインターコンチネンタルホテル東京 からの夜景20120720_000336 posted by (C)ミント専門官お疲れ◆楽天ブログ◆楽天ブログ by (C)ミント専門官 ◆フォト蔵◆BLOG_2012 by (C)ミント専門官◆アメブロ◆アメブロ by (C)ミント専門官
2012/07/19
コメント(1)
-
本マグロのおかしらつき
様似にて、▼定置網にかかった本マグロ（１２０ｋｇくらい）左下は、ミンク鯨ののどのあたりらしい。20120718_183757 posted by (C)ミント専門官明日は、東京！
2012/07/18
コメント(0)
-
ピンキリの表彰
ビットが永年勤続２０年で表彰状をもらった。本人も我々も、だから何なの！（何の意味もない）という感じ。一応、お祝いに飲みに行った。 まいう～人28氏も、１８日札幌で表彰されるらしい。しかし、こちらは価値が違う。あまりにもピグが似すぎている西クマ氏 にスーツを新調してもらったらしい。さらに、着替えは直前にホテルで行い、シミがついたら困るからワイシャツは３枚持って行く。また、靴を忘れた場合の対処方法とかも相談していたから笑える。そしてさらに、その受賞シーンを撮るために、超高級一眼レフカメラを西クマ氏は購入したそうだ。もったいない話だ。 処遇はどうなるのだろう、ボーナスは出るだろうし、年収もアップするだろうね会社全員でハワイ旅行とか...もあったりするかな。 しかし、ここでは面白い展開を提案したい。は、受賞した直後に、辞表を叩き付けるのだ！転職時に「あいつは採らなくていいぞ！」と言われながらも、屈辱に耐え、禄を食んだ積年の恨みを晴らすのは、ここしかない
2012/07/17
コメント(1)
-
ゴロゴロ２
今日もゴロゴロ至極の時間だ。
2012/07/16
コメント(0)
-
ゴロゴロ
早起きして、豊似湖 でも行こうかと思ったが、あいにくの雨。加えて寒い。なので、インドア派を満喫した。ゴロゴロ至極の時間だ。▼かつての記事「豊似湖」北海道幌泉郡えりも町字目黒 秘湖のなかの秘湖かな ...plaza.rakuten.co.jp/doboku/diary/201007240000/ - 2010年7月24日 - 「豊似湖」北海道幌泉郡えりも町字目黒 秘湖のなかの秘湖かな！ ... 20100724_130000_toyoniko-2 posted by (C)ミント専門官. ハート型 ?? ... えりも町「豊似湖」2回目いってみた。 - 楽天ブログ - 楽天市場plaza.rakuten.co.jp/doboku/diary/201009300000/ - 2010年9月30日 - えりも町「豊似湖」2回目いってみた。 ...
2012/07/15
コメント(0)
-
今日の昼食「リストランテアンジェロ」新冠町サラブレッド銀座
前から入ろうと思っていたが、勇気を出して入ってみた▼イタリア国旗がたなびく 「リストランテ アンジェロ」20120714_141036 posted by (C)ミント専門官▼サラダ20120714_133802 posted by (C)ミント専門官▼パンと麺20120714_134524 posted by (C)ミント専門官▼デザート20120714_140230 posted by (C)ミント専門官ランチセット＠１８００－でした。 ▼Ristorante Angelo,リストランテ,アンジェロ,北海道,日高,新冠,馬 ...www.angelo-1.com/ -北海道日高地方の新冠にあるサラブレッドの牧場に囲まれたイタリア料理店です。 有名な馬や仔馬を見学したり、乗馬を体験したり、近くには温泉もあります。エゾ鹿やキトピロ（アイヌにんにく）など地産地消を目指しています。▼リストランテ アンジェロ Ristorante Angelo - 新冠町その他/イタリアン ...14 件 - 価格帯: ￥3,000～￥3,999リストランテ アンジェロ/Ristorante Angelo (新冠町その他/イタリアン)の店舗情報は食べログでチェック！口コミや評価、写真など、ユーザーによるリアルな情報が満載です！地図や料理メニューなどの詳細情報も充実。 ▼アンジェロから歩いていけるところにオグリキャップがいる。20120714_141748 posted by (C)ミント専門官▼おぐり20120714_141514 posted by (C)ミント専門官▼えりも岬 よく見るとアザラシがいる。70～80頭くらい20120714_170958 posted by (C)ミント専門官◆楽天ブログ◆楽天ブログ by (C)ミント専門官 ◆フォト蔵◆BLOG_2012 by (C)ミント専門官◆アメブロ◆アメブロ by (C)ミント専門官
2012/07/14
コメント(1)
-
めがね買った。
イオンモールのめがねのプリンスに、めがねを受け取りに行った。すごくやすかった。たぶん偽物だと思う▼でも箱はかっこいい20120716_183459 posted by (C)ミント専門官 ▼これも一応「ＧＵＣＣＩ」のサングラス20111020_205211 posted by (C)ミント専門官
2012/07/14
コメント(0)
-
スーパーツール
昨日、登場した広尾製（自称）スーパーツールのおかげで今日は相当眠い部下たちも相当数休んだ。
2012/07/13
コメント(0)
-
今日の株取引[7512.t_イオン北海道]ほか多数！ソニー証券デビュー
今日からソニー証券で初取引これで、野村證券、楽天証券に引き続き３口座となった。▼ソニー証券[9882.t_イエローハット] １００株買い 残１００株[3048.t_ビックカメラ] ２００株買い 残２２００株[8267.t_イオン] ６００株買い 残８００株[5711.t_三菱マテリアル] １０００株買い 残１０００株▼野村證券[4217.t_日立化成] １００株買い 残１１０株[6773.t_パイオニア] ４００株買い 残４１０株半端の１０株は、昔ミニ株（１／１０単元で売り買いできる手軽なもの）で買ったものの残骸！現在、野村ではミニ株の取り扱いは廃止している。 今日は、いっぱい買ったなー◆楽天ブログ◆楽天ブログ by (C)ミント専門官 ◆フォト蔵◆BLOG_2012 by (C)ミント専門官◆アメブロ◆アメブロ by (C)ミント専門官
2012/07/12
コメント(0)
-
画期的なVBAを見つけてしまった＾＾目から鱗だよ！
エクセルVBAの標準モジュールに置くと使える。 ' Textcalc は長いので、egに変更 2008.02.07 By Norio' ---内容---' 計算に関係無い文字を無視する' ２行にまたがる計算を行う' 数字、演算記号を含むメモ書きは、必ずカッコで閉じる' =eg(セル番号）で計算' =egs(セル番号,n)で四捨伍入計算を行う' =egw(セル番号1,セル番号2）で２行計算' =egws(セル番号1,セル番号2,n)で２行四捨伍入計算を行う' ---' 著作権はpeace氏に帰属します' Textcalc Version1.30 (C)1996-2000, peace'Option ExplicitPrivate Token As StringPrivate A1 As StringPrivate TokenType As Integer '1:DELIMITER 2:NUMBER 3:FUNCTIONPrivate S As StringPrivate SLen As IntegerPrivate K, K1, N1, N2, N3 As IntegerPrivate GP As IntegerPrivate KAKKO As IntegerConst MAE As String = ".0123456789)"Const USIRO As String = "±⇒〆∥￣＿＼｜∃♂♀√.0123456789("Const DELIMITA As String = "+-*/()^"Const NUMBER As String = "0123456789"Const OKMOJI As String = "±⇒〆∥￣＿＼｜∃♂♀√^()*/+-.0123456789"Const RAD As Double = 57.2957795130823' 関数のエントリポイントFunction eg(S2 As String) As Double 'textcalからegに変更S2 = StrConv(S2, vbNarrow)S2 = StrConv(S2, vbLowerCase)S2 = Application.Substitute(S2, " ", "")S2 = Application.Substitute(S2, "π", "3.14159265358979")S2 = Application.Substitute(S2, "pi", "3.14159265358979")S2 = Application.Substitute(S2, "rad", "57.2957795130823")S2 = Application.Substitute(S2, "{", "(")S2 = Application.Substitute(S2, "}", ")")S2 = Application.Substitute(S2, "[", "(")S2 = Application.Substitute(S2, "]", ")")S2 = Application.Substitute(S2, "〔", "(")S2 = Application.Substitute(S2, "〕", ")")S2 = Application.Substitute(S2, "【", "(")S2 = Application.Substitute(S2, "】", ")")S2 = Application.Substitute(S2, "×", "*")S2 = Application.Substitute(S2, "÷", "/")'''''No*,第*を削除する'''''S2 = Application.Substitute(S2, "J", "")S2 = Application.Substitute(S2, "no.", "J")S2 = Application.Substitute(S2, "no、", "J")S2 = Application.Substitute(S2, "no", "J")S2 = Application.Substitute(S2, "第", "J")S2 = Application.Substitute(S2, "※", "J")N2 = 0N3 = 0For K = 1 To Len(S2) 'Jの数を数えるIf Mid(S2, K, 1) = "J" Then N2 = N2 + 1NextDo While N2 > 0 '"J"と次の"J"又は")"の文字位置を求めるN1 = InStr(S2, "J")If InStr(N1 + 1, S2, "J") > 0 And InStr(N1 + 1, S2, "J") <= InStr(N1 + 1, S2, ")") _Then N3 = InStr(N1 + 1, S2, "J") Else N3 = InStr(N1 + 1, S2, ")")If InStr(N1 + 1, S2, "J") = 0 Then N3 = InStr(N1 + 1, S2, ")")A1 = ""For K = 1 To Len(S2) '"J"と次の"J"又は")"の間の文字を削除If K < N1 Or K >= N3 Then A1 = A1 + Mid(S2, K, 1)Next KS2 = A1N2 = N2 - 1Loop'''''S2 = Application.Substitute(S2, "±", "") '下で使用する文字を削除しておくS2 = Application.Substitute(S2, "⇒", "")S2 = Application.Substitute(S2, "〆", "")S2 = Application.Substitute(S2, "∥", "")S2 = Application.Substitute(S2, "￣", "")S2 = Application.Substitute(S2, "＿", "")S2 = Application.Substitute(S2, "＼", "")S2 = Application.Substitute(S2, "｜", "")S2 = Application.Substitute(S2, "∃", "")S2 = Application.Substitute(S2, "♂", "")S2 = Application.Substitute(S2, "♀", "")S2 = Application.Substitute(S2, "asin", "±") '予約語を特殊文字に置き換えるS2 = Application.Substitute(S2, "acos", "⇒")S2 = Application.Substitute(S2, "atan", "〆")S2 = Application.Substitute(S2, "sin", "∥")S2 = Application.Substitute(S2, "cos", "￣")S2 = Application.Substitute(S2, "tan", "＿")S2 = Application.Substitute(S2, "abs", "＼")S2 = Application.Substitute(S2, "int", "｜")S2 = Application.Substitute(S2, "exp", "∃")S2 = Application.Substitute(S2, "log", "♂")S2 = Application.Substitute(S2, "ln", "♀")S2 = Application.Substitute(S2, "/m3", "") '/m3,/m2,/m,m2,m3,m4を削除S2 = Application.Substitute(S2, "/m2", "")S2 = Application.Substitute(S2, "/m", "")S2 = Application.Substitute(S2, "m2", "")S2 = Application.Substitute(S2, "m3", "")S2 = Application.Substitute(S2, "m4", "")'''''予約語、数字、演算記号以外を削除する'''''A1 = ""For K = 1 To Len(S2)For K1 = 1 To Len(OKMOJI)If Mid(S2, K, 1) = Mid(OKMOJI, K1, 1) Then A1 = A1 + Mid(S2, K, 1)Next K1Next KS2 = A1S2 = Application.Substitute(S2, "()", "")'''''memoの削除（memoが最初にある場合）'''''If Mid(S2, 1, 1) <> "(" Then GoTo line1N3 = 0For K = 1 To Len(S2)For K1 = 1 To Len(USIRO)If Mid(S2, K, 1) = ")" And Mid(S2, K + 1, 1) = Mid(USIRO, K1, 1) Then N3 = KNextNextA1 = ""For K = 1 To Len(S2) '''''memoの"("から")"までの文字を削除If K > N3 Then A1 = A1 + Mid(S2, K, 1)Next KS2 = A1'''''memoの削除（memoが中間又は最後にある場合）'''''line1:A1 = ""N1 = 0N2 = 0For K = 2 To Len(S2) '''''memoの数を数えるFor K1 = 1 To Len(MAE)If Mid(S2, K, 1) = "(" And Mid(S2, K - 1, 1) = Mid(MAE, K1, 1) Then N2 = N2 + 1NextNextDo While N2 > 0For K = 2 To Len(S2)For K1 = 1 To Len(MAE)If Mid(S2, K, 1) = "(" And Mid(S2, K - 1, 1) = Mid(MAE, K1, 1) Then N1 = KN3 = InStr(N1 + 1, S2, ")")NextNextA1 = ""For K = 1 To Len(S2) '''''memoの"("から")"までの文字を削除If K < N1 Or K > N3 Then A1 = A1 + Mid(S2, K, 1)Next KS2 = A1N2 = N2 - 1Loop'''''S2 = Application.Substitute(S2, "±", "asin") '予約語を元に戻すS2 = Application.Substitute(S2, "⇒", "acos")S2 = Application.Substitute(S2, "〆", "atan")S2 = Application.Substitute(S2, "∥", "sin")S2 = Application.Substitute(S2, "￣", "cos")S2 = Application.Substitute(S2, "＿", "tan")S2 = Application.Substitute(S2, "＼", "abs")S2 = Application.Substitute(S2, "｜", "int")S2 = Application.Substitute(S2, "∃", "exp")S2 = Application.Substitute(S2, "♂", "log")S2 = Application.Substitute(S2, "♀", "ln")S2 = Application.Substitute(S2, "√", "sqrt")KAKKO = 0GP = 1S = S2SLen = Len(S)GetTokeneg = sub1(0#)If (KAKKO <> 0) ThenMsgBox "括弧の指定に誤りがあります。" _, vbOKOnly + vbExclamation, "EG関数"eg = 1 / 0 'textcalcからegに変更End IfEnd Function' 加算・減算の処理Function sub1(Value As Double) As DoubleDim Value2 As DoubleDim Token2 As StringValue = sub2(Value)While Token = "+" Or Token = "-"Token2 = TokenGetTokenValue2 = sub2(Value2)Select Case Token2Case "+"Value = Value + Value2Case "-"Value = Value - Value2End SelectWendsub1 = ValueEnd Function' 乗算、除算の処理Function sub2(Value As Double) As DoubleDim Value2 As DoubleDim Token2 As StringValue = sub3(Value)While Token = "*" Or Token = "/"Token2 = TokenGetTokenValue2 = sub3(Value2)Select Case Token2Case "*"Value = Value * Value2Case "/"Value = Value / Value2End SelectWendsub2 = ValueEnd Function' べき乗の処理Function sub3(Value As Double) As DoubleDim Value2 As DoubleDim Token2 As StringValue = sub4(Value)While Token = "^"Token2 = TokenGetTokenValue2 = sub4(Value2)Select Case Token2Case "^"Value = Value ^ Value2End SelectWendsub3 = ValueEnd Function' 単項演算子の処理Function sub4(Value As Double) As DoubleDim Token2 As StringIf Token = "+" Or Token = "-" ThenToken2 = TokenGetTokenEnd IfValue = sub5(Value)If Token2 = "-" ThenValue = -ValueEnd Ifsub4 = ValueEnd Function' 括弧の処理Function sub5(Value As Double) As DoubleIf Token = "(" ThenGetTokenValue = sub1(Value)GetTokenElseValue = Atom()End Ifsub5 = ValueEnd Function' 数値の処理Function Atom() As DoubleDim temp As StringDim i As IntegerDim Value2 As DoubleIf TokenType = 3 ThenAtom = Func(Token)ElseIf TokenType = 2 ThenAtom = Val(Token)GetTokenEnd IfEnd Function'算術関数の処理Function Func(str As String) As DoubleDim Value2 As DoubleDim str2 As DoubleSelect Case strCase "sin"GetTokenValue2 = sub4(Value2)Func = Sin(Value2 / RAD)Case "cos"GetTokenValue2 = sub4(Value2)Func = Cos(Value2 / RAD)Case "tan"GetTokenValue2 = sub4(Value2)Func = Tan(Value2 / RAD)Case "asin"GetTokenValue2 = sub4(Value2)Func = WorksheetFunction.Asin(Value2) * RADCase "acos"GetTokenValue2 = sub4(Value2)Func = WorksheetFunction.Acos(Value2) * RADCase "atan"GetTokenValue2 = sub4(Value2)Func = Atn(Value2) * RADCase "abs"GetTokenValue2 = sub4(Value2)Func = Abs(Value2)Case "int"GetTokenValue2 = sub4(Value2)Func = Int(Value2)Case "exp"GetTokenValue2 = sub4(Value2)Func = Exp(Value2)Case "log"GetTokenValue2 = sub4(Value2)Func = Log(Value2) / Log(10#) '"/ Log(10#)"を追加Case "ln" '追加GetToken '追加Value2 = sub4(Value2) '追加Func = Log(Value2) '追加Case "sqrt"GetTokenValue2 = sub4(Value2)Func = Sqr(Value2)Case ElseMsgBox "関数 " + str + " は定義されていません。" _, vbOKOnly + vbExclamation, "EG関数"Func = 1 / 0End SelectEnd Function' トークンの切出しFunction GetToken()Dim i As IntegerIf GP > SLen ThenToken = ""Exit FunctionEnd IfIf InStr(DELIMITA, Mid(S, GP, 1)) <> 0 ThenToken = Mid(S, GP, 1)TokenType = 1GP = GP + 1If Token = "(" Then '括弧のチェックKAKKO = KAKKO + 1ElseIf Token = ")" ThenKAKKO = KAKKO - 1End IfElseIf InStr(NUMBER, Mid(S, GP, 1)) <> 0 ThenFor i = GP To SLenIf InStr(DELIMITA, Mid(S, i, 1)) <> 0 ThenExit ForEnd IfNextToken = Mid(S, GP, i - GP)TokenType = 2GP = iElseFor i = GP To SLenIf InStr(DELIMITA, Mid(S, i, 1)) <> 0 ThenExit ForEnd IfNextToken = Mid(S, GP, i - GP)TokenType = 3GP = iEnd IfEnd Function' 四捨五入計算Function egs(S2 As String, kurai As Integer) As Doubleegs = Application.Round(eg(S2), kurai)End Function' ２行の計算Function egw(G1 As String, G2 As String) As Doubleegw = eg(G1 + G2)End Function' ２行四捨五入計算Function egws(G1 As String, G2 As String, kurai As Integer) As Doubleegws = Application.Round(eg(G1 + G2), kurai)End Function
2012/07/11
コメント(0)
-
居酒屋「大將」室蘭市中央町 お得度★★★★☆（４点）
室蘭の支店で面接があった。▼今回食べた、すしセット＠８００－ ただし、１１：００－１４：００20120710_121420 posted by (C)ミント専門官 前回のブログより居酒屋「大將」室蘭市中央町 ★★★★ランチはお得... ト... (2012/01/25) コメント(3)▼マグロ丼セット ＠８００－ 安い！ １１：００－１４：００20120125_123010 posted by (C)ミント専門官▼ビットが頼んだ イカ玉丼セット＠８００－20120125_123025 posted by (C)ミント専門官▼１４：００を過ぎると、上記メニューは＠１６００－になるから、相当お得＾＾※この写真には位置情報が付加してあります。20120125_125100 posted by (C)ミント専門官大将居酒屋 - 室蘭/居酒屋 [食べログ]r.tabelog.com/hokkaido/A0108/A010803/1015136/ - 大将居酒屋/ (室蘭/居酒屋)の店舗情報は食べログでチェック！口コミや評価、写真など、ユーザーによるリアルな情報が満載です！地図や料理メニューなどの詳細情報も充実。 〒051-0011 北海道室蘭市中央町１丁目１-４の地図を表示する
2012/07/10
コメント(0)
-
プリンターがとどいた。
▼ビックカメラ.comからプリンターが届いた。 色は白【あす楽_関東】【送料無料】エプソンColorio カラリオインクジェット複合機 EP-804AR［EP804AR］▼本体の値段に比してインクは高い。本体を安く売ってランニングでもうけようとしてるのだろうか？インクの詰め替えは必須だが、純正品は詰め替え防止されているので、初回はカートリッジを追加購入する必要がある。■初回インク充填済み●繰り返し使える詰め替えインク専用カートリッジIC6CL50 ICBK50 ICC50 ICM50 ICY50 ICLC50 ICLM50対応詰め替えインクのエコッテエプソン/EPSON IC6CL50用詰め替えインク専用透明カートリッジ 6色セット（詰め替えインク別売）EP-904A EP-804AW EP-901A他対応**【2sp_120706_b】【マラソン201207_家電】◆楽天ブログ◆楽天ブログ by (C)ミント専門官◆フォト蔵◆公開アルバム by (C)ミント専門官◆アメブロ◆アメブロ by (C)ミント専門官
2012/07/09
コメント(0)
-
今日、届いた株主優待「スターバックス」使える度★★☆☆☆（2点）
ベンダーサイズもOK！ ２名義分 ４枚獲得 20120708_214254 posted by (C)ミント専門官◆楽天ブログ◆楽天ブログ by (C)ミント専門官◆フォト蔵◆公開アルバム by (C)ミント専門官◆アメブロ◆アメブロ by (C)ミント専門官
2012/07/08
コメント(0)
-
今日、届いた株主優待「青山商事」使える度★★★☆☆（３点）
「青山商事」とは「紳士服の青山」のこと １名義分到着20120709_223015 posted by (C)ミント専門官◆楽天ブログ◆楽天ブログ by (C)ミント専門官◆フォト蔵◆公開アルバム by (C)ミント専門官◆アメブロ◆アメブロ by (C)ミント専門官
2012/07/07
コメント(0)
-
今日、届いた株主優待「イエローハット」使える度★☆☆☆☆（１点）
株主優待ラッシュ2名義持っていたが、あまりに使い道がないため減数した。 1名義分到着 ￥3000が半年に一度送られてくる。期限は１年間！20120709_223309 posted by (C)ミント専門官◆楽天ブログ◆楽天ブログ by (C)ミント専門官◆フォト蔵◆公開アルバム by (C)ミント専門官◆アメブロ◆アメブロ by (C)ミント専門官
2012/07/07
コメント(0)
-
夜のゆにガーデン！！ リナリアフェスタ
リナリアフェスタ期間中の６月23日（土）～7月16日（月）は、21：00まで夜間延長営業▼芝生広場内のリナリアをライトアップ！幻想的な景観が広がります。20120707_200758 posted by (C)ミント専門官膝痛い。◆楽天ブログ◆楽天ブログ by (C)ミント専門官 ◆フォト蔵◆BLOG_2012 by (C)ミント専門官◆アメブロ◆アメブロ by (C)ミント専門官
2012/07/07
コメント(2)
-
今日の株主取引[3391t_ツルハ]
野村證券&楽天証券[3391t_ツルハ] ×200株売り 残100株５月１５日の権利確定をしたので処分！ 働かないで、お金を儲けるって楽しい。 by 村上 世彰（むらかみ よしあき） ◆楽天ブログ◆楽天ブログ by (C)ミント専門官 ◆フォト蔵◆BLOG_2012 by (C)ミント専門官◆アメブロ◆アメブロ by (C)ミント専門官
2012/07/06
コメント(0)
-
海岸のモコモコ
ここ数日は大潮で海岸線が歩ける。 ▼様似町西平宇のあたりの海岸のモコモコ20120705_102816 posted by (C)ミント専門官 ▼地層がはっきり20120705_102936 posted by (C)ミント専門官▼アポイ山荘にて、昼はラーメンサラダ＠６００20120705_130802 posted by (C)ミント専門官◆楽天ブログ◆楽天ブログ by (C)ミント専門官 ◆フォト蔵◆BLOG_2012 by (C)ミント専門官◆アメブロ◆アメブロ by (C)ミント専門官
2012/07/05
コメント(0)
-
つぶカレー「カフェ・マザー」北海道様似郡様似町
▼町役場の向かい。20120704_120056 posted by (C)ミント専門官▼めずらしい「アイスプラント」が入っている。 白いぷつぷつがある葉っぱだが、ほんのりしょっぱい。20120704_121922 posted by (C)ミント専門官▼つぶカレー大盛り＠１０００－20120704_122249 posted by (C)ミント専門官▼小さな町の優しいカフェ : カフェ・マザー [食べログ] - グルメ・レストラン ...r.tabelog.com/hokkaido/A0108/A010804/.../12678969/ - カフェ・マザー. ジャンル. カフェ. TEL. 0146-36-3055. ※お問い合わせの際は「"食べログ"を見た」とお伝えいただければ幸いです。 住所. 北海道様似郡 ...▼アイスプラント - Wikipediaja.wikipedia.org/wiki/アイスプラント - アイスプラント（学名:Mesembryanthemum crystallinum）はハマミズナ科メセンブリアンテマ属の植物。名前の由来は表皮に塩を隔離するための細胞があるため葉の表面が凍ったように見えることから。ヨーロッパ、西アジア、アフリカ原産。◆楽天ブログ◆楽天ブログ by (C)ミント専門官 ◆フォト蔵◆BLOG_2012 by (C)ミント専門官◆アメブロ◆アメブロ by (C)ミント専門官
2012/07/04
コメント(2)
-
今日みた夢「黄色」
上下黄色い学生服を着た自分が、高校へ通学するのに路線バスに乗っている夢を見た。列車通学だったのだが... ▼黄色い色の夢を見たwww42.tok2.com/home/cocomore/dream/.../yume25.html - 夢の中で黄色い色が印象的だという夢を見た時にはいったいどんな意味が隠されているのかご存じですか？実は黄色い色というのにはこんな意味が隠されていたのです。
2012/07/03
コメント(2)
-
道路に鶴と亀が落ちていた！
▼道路に亀が落ちていた！20120702_151223 posted by (C)ミント専門官実は、この直前に鶴も落ちていた！ なんて縁起がいいんだ＾＾ 日本において、もっとも神聖とされる動物はたぶん亀であろうし、天皇家とも縁が深い。▼ここにいろいろ興味深いことが記述されている。亀と改元www.ne.jp/asahi/goto/home/shikido/kaigen_kame.html -1、元亀戦国時代、正親町天皇即位時の年号。織田信長が活躍していた頃です。 出典は『詩経』中の（漢詩の）一節から。 『...憬彼淮夷、来献其?、元亀象歯、大賂南金...』 （詩経 ?水）. ちなみにここで言う元亀とは、大きな亀、の意です。 2、文亀室町時代、後 ...◆楽天ブログ◆楽天ブログ by (C)ミント専門官 ◆フォト蔵◆BLOG_2012 by (C)ミント専門官◆アメブロ◆アメブロ by (C)ミント専門官
2012/07/02
コメント(1)
-
宇宙なめこ
▼「宇宙なめこ」にあったという人がいた覚醒すると宇宙に意識が飛んでいって会うことができるらしい チャネリングの一種だろうか... いろいろな意味で逝ってしまった人だ。 おそろしくてお近づきになりたくはない おさわり探偵 なめこ栽培キット Android・iPhoneゲーム攻略androidgames.blog.fc2.com/blog-category-14.html - 2012年1月12日 - ... 探偵 なめこ栽培キット 攻略：図鑑9ページ目 レアなめこの出し方・発生条件出現方法の保温器以外のグレードは原木4、他全て10にしてください。 ... No.53, 宇宙なめこ, 901 Np, ウチュウカラキマシタ。 シンリャクトカシナイヨ。 コワクナイ、 ...
2012/07/01
コメント(4)
全36件 (36件中 1-36件目)
1
