2009-06-01から1ヶ月間の記事一覧

Slackware

自分がLinuxに触った最初は、1995年だったか、、。 秋葉原の秋月電気に、CDが売っていて、SlackWare+JEというやつだった。 早速、当時40万円位かけて自作したPCにDualBootでインストール。 びっくりしたなあの時は、、、。 だって、会社で使っているS…

今日は職安へ

自分は、自営(フリーランス)のプログラマだが、今年は仕事がない やっと、小さなスーパーの会計システムの仕事をもらって首の皮一枚で 生活。 いろんな求人サイトに顔を突っ込んでるが、全て門前払い 今日は、職安で2件紹介をもらいトライ。 ま、ダメ元。…

楽天で2000点いただき

今日は、楽天でカード作成キャンペーンで2000点が付与された。 買い物すれば、さらに2000点だそうで早速買い物。 キャノンのプリンターの詰め替えインクと Advanced W-ZERO3 esのUSB充電&通信ケーブル を購入。 これで合計4000点取得。 さらに…

Edyギフトいただき、そのたセコイ話題少々

MySoNetCardでウィルコムの通話料はらってもらうキャンペーンで 本日500円のEdyギフトGET。 うれしい限りです。 それとシチズンホールディングスの株の配当のお知らせがあり 226円なり。 楽天カードから連絡あり、2000ポイント付与してくれるらし…

So-NETの接続変更

前にも書いたが、Sonetの接続をACCAの12MからEaccessの12Mに変更手続きした。 全く同じ条件なのにキャンペーンが適用されて、最大2か月無料になるらしい。 らしいというのは、まだNTT工事待ちで本当のところどうなるか分からないから。 で6月21日に…

Suicaの減りが早い、とほほ

しかし、Suicaの減りが早い。この前オートチャージが入ったばっかりなのに、 もう1000円に近づいている。 間もなくまた、オートチャージが入る。 う~んYahooSuicaカードだから、 せめてポイントが100円で1ポイントつくのが救い。 こればっかは、節…

ADO → Excel 備忘録

ADOのレコードセットからExcelのシートへデータを貼り付けるとき 以前は、 With Worksheets("実行結果") j = 1 Do Until rs.EOF If j = 1 Then For i = 0 To rs.Fields.Count - 1 .Cells(j, i + 1) = rs.Fields(i).Name Next j = j + 1 End If For i = 0 To …

健康こそ節約

節約ネタ尽きた変わりに、健康について この世に健康に勝る幸福はないよね。 現在、運よく健康な自分は幸福だと思う。 この不況で、仕事は激減して収入はガタ落ち(ないに等しい)が 体が健康なら、また稼げる。 医療費も最少で済む。 最高の節約ネタかもね…

節約ネタ尽きたか

「節約日記を書こう!」といって、始めたが最初に羅列して、既にネタがない状態。 今日は楽天カードが到着したが、これで初回買い物を6月ちゅうにすればポイントが ちょいとつくとか。 写真用の印刷用紙を買うかな?? 楽天のドイツ屋ってとこで、ドイツ製…

今日は、都内の移動を全部自転車で済ませた

あ~、今日は暑かった。 こんな暑いなか、移動すべて自転車でやった。 1000円近い節約。 何か劇的な、節約ないかな??

VBSでExcelにデータ貼り付け

備忘録として、、、 おそらく定番の処理だが、初めての記述だったので。 以下は、AccessVBAでADOを使ってDBからデータを取り出して、Excelに エクスポートしている。 Set cn = CurrentProject.Connection Set rs = cn.Execute(SQL) Set xl = CreateObject("E…

自転車について、一考

最近自転車が流行っていて、ずいぶんと沢山ロードサイクルが走ってます。 自分も、子供のころとにかく前2段後ろ5段の変則つきの自転車が欲しくて しょうがなかったのを思い出します。 そんな中、数年前に、前3段、後ろ7段のクロスバイクを買った。 それ…

WILLCOMでネット接続

WILLCOMでネットを気軽にチェックしたりするが、これPrinと呼ばれる WILLCOMのプロバイダに使用料金を別途とられている。 自分の家のプロバイダがWILLCOM接続にどう対応しているかチェックすると 若干の節約になる。 たとえば自分の場合は、ASAHINETが2契約…

ACCAのモデムの無線LANカード

ADSLでACCAの接続で契約すると、富士通のADSLモデムが送られてきます。 このモデム、無線LANカードのレンタルサービスがありますが、なんとか 互換カードで何とかならないかいろいろ試してみたがNGでした。 富士通純正以外NGらしい。 EaccessのNECのモデ…

大手都市銀の定期はちょっと、、ひどい

う~ん、大手銀行の金利はもうひどいことになってる。 1年預けても0.2%とは、、、とほほ。 もう随分長いこと大手で定期預金してるけどこの際、解約しよう。 解約したら、すかさずソニー銀行とイーバンク銀行とジャパンネットバンク に移して、1年定期…

安いインターネット接続

私、自営業を営む関係で3か所ADSLの接続契約あり。 いずれも、2000円前後の12Mの最安のものだが、 1か所は週1~2回しか利用しない。 これを何とか、節約できないかと検討したが、 FONを利用したらどうか?? 近くになさそう。あっても不確実。商売…

さくらインターネットの専用レンタルサーバ

さくらインターネットの専用レンタルサーバはエントリーコースが7800円 でとても安い。 自分は、これ以前のサービスで契約していて、1代丸々6800円で借りてる。 このこと自体すでに節約なのだが、、、。毎月6800円は今年の経済状態ではきつい。…

新宿まで自転車で

今日は自転車で新宿へ 電車賃節約で、満足 機種変更した、WZERO3は携帯ではなくスマートフォンだから首から かけるのはちょっと重い。 ベルトにフォルダをつけるのがよろしいと思い、100均でフォルダを買う。 新宿について気がつくと自転車からLEDライト…

節約日記をつけよう

節約累計を考える 今年やったのは、 三井住友VISAをGOLDから普通のに変更 12000→1000円 11000円 三井住友MASTERを解約 2000→0円 2000円 アサヒネットの2契約をEACCESSからACCAへ 2000×4=8000円 SO-NETをACCAからEACCESSへ…

電車と車どっちが得?

都内でちょっと、用をたすとき、大抵は電車を利用するけど、、、 もし行先で只で駐車できる場合(駐車場ありのショッピングセンターとか)なら やっぱり車が安いみたい。 もちろん、車を買う値段は考慮外ではあるが。 つまりもし車を既に持っているなら車は…

SO-NETのADSL、契約変更で節約成功

現在SO-NETのACCAの12Mのコースを利用しているけど、 EACCESSの12Mコースに変更すると、キャンペーンが適用されて、 最大2か月分の料金が無料になる。 しかもEACCESSだから、ADSLモデムはきっとNECのAterm。 だとすれば、この前格安で買った(¥699…

ダイソーに携帯グッズ安く売ってた

ダイソーに行ってみたら、携帯グッズ使えそうなのが安く売ってた。 イヤホンマイクなど315円くらい USB充電アダプタなども、akibaよりも安そうです。 さらに、プリンタのインクも¥100だった。 まあ、品質の方は良くはないのだろうけどね。 この前、無…

個人向け国債結構いいね

3年くらい前に買った5年もの個人向け国債、結構いいね。 こんな不景気ななか1.5%の金利はうれしい限り。 50万円買って半年に3000円位ついてる。 こんなことならもっと買っとけばよかった。 でももし、俺が沢山買ってたら、もっと株が上がってや…

WILLCOM機種変更で節約

今日は、もしもし本舗でWILLCOMの機種変更を衝動買いしてしまった。 WZERO3に機種変更するとWVALUE割引になる。(現在はWX310K) で割引額が、分割の支払額を上回って2900円が1980円になるとのこと。 自分は4人でファミリー割引だから1400円位…

Laneedの無線LANカード699円でGET

ElecomのLaneedブランドの無線LANカード LD-WL54AG/CBをakibaで699円でGET これ、EaccessのNECのADSLモデムにさすと、無線LANルータになるやつ。 NEC純正のは高い!! 5000円くらいか? ラッキーな商品GETでした。

Windows2000で、NICが機能しなくなった

EaccessのADSLモデムを有線でつないで設定を試みたところ、デスクトップPCのNICがWindows2000で機能しなくなった。 やったこと、 1.とりあえずUSBの無線のNICを除去(引っこ抜いた) 2.Aterm605とPCを有線LANで接続 症状 3.ネットワークのプロパティで…

ExcelVBAで範囲を示す文字列を得る方法

Excelのマクロでシート関数を、カラムにセットするときの方法 Dim ws as WorkSheet set ws=WorkSheets("Sheet1") ads=ws.Range(ws.Cells(1,1),Cells(10,1)).Address(RowAbsolute:=False, ColumnAbsolute:=False) ws.Cells(11,1).Formula="=sum(" & ads & ")"…

SQL 月毎の累計の集計

累計の計算をするSQL、備忘録として 請求書:日付と金額が入ってる。 create table 請求書 ( 日付 date, 金額 money ); カレンダー:毎日の日付が全部入ってる create table カレンダー ( 日付 date ); select dateadd(Day,-1,dateadd(Month,1,b.日付)) …

Fedora 10 から 11

遠隔で、Fedora10から11へアップグレードうまく行ったのでその備忘録、 Fedora 10 から 11 へのアップグレード方法 Fedora9から10へアップしたときと同じようにまずは以下を行う。 rpm -Uvh \ ftp://ftp.xxxx.yy/Linux/fedora/releases/11/Everything/i386/o…