「IIf」を含む日記

はてなキーワード: IIfとは

2022-03-01

■anond:20220301235147

別に魚拓ぐらい好きにしたらいいが、まともな記事はMMTのとおり「対外債務の不履行」を問題にしとるぞ。

https://www.nikkei.com/article/DGXZQOGR0163C0R00C22A3000000/

世界の大手金融機関でつくる国際金融協会（IIF）は2月28日公表の報告書で「ドルへの広範なアクセス制限が金融機関と企業を困難な状況に追いやる可能性が高い」と指摘した。IIFによるとロシアの対外債務4800億ドル（約55兆円）のうち、3割弱にあたる1350億ドルは1年以内に満期がくる。

世界経済からの切り離しを狙う欧米諸国の制裁で、金融機関や企業は外貨獲得能力を著しくそがれることになった。IIF 幹部はロシアが対外的な債務不履行に陥る可能性は「極めて高い」との認識を示した。

https://news.yahoo.co.jp/articles/6de0b9a5b1ca2c0c58e154ff93a6b32789c697f7?page=2

先進国側が打ち出している対ロ経済・金融制裁は、まだ強化の余地を大きく残しているが、現状までに打ち出された措置だけでも、ロシアには金融面で大きな打撃を与えている。既に通貨危機の状況は生じているが、これが国内銀行危機、そして対外債務危機へとさらに発展していくことが視野に入ってきた。

Permalink | 記事への反応(0) | 23:56

2017-02-25

■便乗

http://anond.hatelabo.jp/20170223234843

便乗。

当方プログラマー。業界歴10年前後。

テスターなのにテストも満足にできないおじさん

協力会社から人材派遣者。45歳前後（当時）。

テストのやり方を理解できていない。

教えてもらっても半分くらいしかちゃんとできない。

自信がないならわかるまで質問しようね。

1週間くらいで元の会社に戻らされた。

職場を仕切るSE＆多重人格者

45歳前後（当時）。

もちろん職場にはより上の役職の人がいるが、その人らを手玉にとる。

さらにいろんなプログラムを管理しているので、不具合の修正優先度を人質に各部署から毎朝挨拶にやって来る（ご機嫌取りに来る）。

経理資格ももっているらしく、経理からも相談に来る。

裏で何やっているのか分からないようにいつもニコニコ。

たまにドスを効かした声を発す。

安直な修正、コメントを全く書かない（死んで欲しい）。

VBAで年度コード計算を無駄に連続IF文で年を列挙して書いていた（クソコード）。

下記のように書けるのにね（笑）

 YearCode = intYear - iif(intMonth ＜ 4, 1991, 1990)

SEの腕は3（5段階評価、以下同）。

プログラムの腕は2。

人生で死んで欲しい人5本の指に入る。

プログラムの書き方教えたら寝かけたやつ

島人。25歳前後（当時）。

基本、面白い人。

プロのプログラマーの思考の真髄を見せてやったのに寝かけた馬鹿野郎。

でも憎めないところがあるのが魅力。

プログラマーは諦めたのか、テスターやなぜかSE的なことをやっているらしい。人伝いに聞いた。

社員旅行で夜這いしてクビになるやつ

話は面白いけど、少しイキったやつ。30歳前後（当時）。

なぜか芸能界の裏の話を知っていて休み時間に披露する。

要領は良い方。

だけど社員旅行で女性に夜這いをかけたのが女性本人から会社に告げ口をされクビに。

その女性知っているがそんなに可愛い方ではない（溜まってたのか？）。

私とは別会社なので私はまったく関係ない。

ヤンキー上がりの強面SE

リーゼントが似合う45歳前後（当時）。

凄んできたり、睨む癖が抜けきれてない。

一度相談したら睨まれた。凄く怖かった（ウソ）。

家族持ちなのにお盆時期に1週間無断欠勤。

しかし何事もなかったかのように出社。

どう処理されたのか不明。

人生で死んで欲しい人5本の指に入る。

太鼓持ち SE

上のヤンキー SEの太鼓持ち。40歳前（当時）。

良い高校を出たらしいが専門学校卒。

プログラムの腕は4。

ただ頼りない顔面で、喋りが下手。でも太鼓持ち。

死ななくてもいいが、いつもヤンキー SEとつるんでるので気持ち悪い。

おねぇプログラマー

黙っていられない。おねぇ口調。35歳前後（当時）。

昔勤めてた会社の先輩。会社と喧嘩してクビに。

残業ドロボー。人が終わる時間の3倍以上かかってた。しかもバグ混入率高し。

プログラムの腕は1。喋りは5。

あと、貸した金返せよ！！！

現在、生活保護を受けているらしい（たぶん抜けられない）。

クソ、馬鹿が口癖のやつ

四六時中まわりを馬鹿呼ばわり。50歳前後（当時）。

ハラスメント極まりない。不快。仕事の邪魔。

フケを撒き散らしていた。汚いのでやめてくれ。

職場に遊びに来ている気がしてならなかった。

「職場は学校じゃねえんだぞ！」と言ってやりたかった（ヘタレ）。

仕事はできるか不明。

直接絡んでないので死ななくてもいいが、死んで欲しいと願っている人はいるんじゃないかな。

最初の人だけ派遣と書いたが、他にもいる。でも省略（プロパーとは限らないって事）。

まだいろんなキャラが居た気がするがとりあえずこのくらいで。

（フェイク有り）

Permalink | 記事への反応(0) | 09:43

2014-05-29

■WinInetを使ってVBAでPOSTする

Option Explicit

Private Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Private Const INTERNET_OPEN_TYPE_DIRECT = 1
Private Const INTERNET_OPEN_TYPE_PROXY = 3
Private Const INTERNET_SERVICE_HTTP = 3
Private Const INTERNET_DEFAULT_HTTP_PORT = 80
Private Const INTERNET_FLAG_RELOAD = &amp;amp;H80000000

Private Declare Function InternetOpenA Lib "wininet.dll" (ByVal sCallerName As String, ByVal dwAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal dwFlags As Long) As Long
Private Declare Function InternetConnectA Lib "wininet.dll" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nProxyPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal dwService As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByRef sBuffer As Byte, ByVal lNumberBytesToRead As Long, ByRef lNumberOfBytesRead As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInternetHandle As Long) As Long
Private Declare Function HttpOpenRequestA Lib "wininet.dll" (ByVal hConnect As Long, ByVal sVerb As String, ByVal sObjectName As String, ByVal sVersion As String, ByVal sReferer As String, ByVal sAcceptTypes As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Declare Function HttpSendRequestA Lib "wininet.dll" (ByVal hRequest As Long, ByVal sHeaders As String, ByVal dwHeadersLength As Long, ByVal lpOptional As String, ByVal dwOptionalLength As Long) As Long

Private Function submitPost(ByRef host, ByRef url_path, ByRef sendString) As Variant

  Dim dataArray() As Byte, dataPosition, dataSize

 'WinInet初期化
  Dim hInternet
  hInternet = InternetOpenA(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
  If hInternet = 0 Then
    submitPost = dataArray
    Exit Function
  End If

 'サーバ接続
  Dim hConnect
  hConnect = InternetConnectA(hInternet, host, INTERNET_DEFAULT_HTTP_PORT, vbNullString, vbNullString, INTERNET_SERVICE_HTTP, 0, 0)
  If hConnect = 0 Then
    InternetCloseHandle hInternet
    submitPost = dataArray
    Exit Function
  End If

 'リクエストを初期化
  Dim tmpURL As String * 255
  tmpURL = url_path
  Dim hRequest
  hRequest = HttpOpenRequestA(hConnect, "POST", tmpURL, "HTTP/1.1", vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
  If hRequest = 0 Then
    InternetCloseHandle hConnect
    InternetCloseHandle hInternet
    submitPost = dataArray
    Exit Function
  End If

 'リクエストを送信
  Const strHeader = "Content-Type: application/x-www-form-urlencoded"
  HttpSendRequestA hRequest, strHeader, Len(strHeader), sendString, Len(sendString)

 'データ取得
  Dim readResult, tmpArray(1023) As Byte, tmpPosition, tmpSize
  dataPosition = 0
  dataSize = 0
  Do
    tmpSize = 0
    Erase tmpArray
    readResult = InternetReadFile(hRequest, tmpArray(0), 1024, tmpSize)
    If Not readResult = 1 Or tmpSize = 0 Then
      Exit Do
    End If

    dataSize = dataSize + tmpSize
    ReDim Preserve dataArray(dataSize - 1)
    For tmpPosition = 0 To tmpSize - 1 Step 1
      dataArray(dataPosition) = tmpArray(tmpPosition)
      dataPosition = dataPosition + 1
    Next
  Loop

 'クローズ処理
  InternetCloseHandle hRequest
  InternetCloseHandle hConnect
  InternetCloseHandle hInternet

  submitPost = dataArray

End Function

Public Function downloadFilePost(ByRef targetURL, ByVal sendArray, ByRef savePath) As Boolean

 'URLの分解
  Dim startE, endE, host, url_path
  startE = InStr(1, targetURL, "//") + 2
  endE = InStr(startE, targetURL, "/")
  endE = IIf(startE &gt; endE, Len(targetURL) + 1, endE)
  host = Mid(targetURL, startE, endE - startE)
  url_path = Mid(targetURL, endE)

 'ポストデータのエンコード
  Dim jscript
  With CreateObject("ScriptControl")
    .Language = "JScript"
    Set jscript = .CodeObject
  End With
  Dim ix, sendBuffer
  For ix = 0 To UBound(sendArray) Step 1
    sendBuffer = Split(sendArray(ix), "=")
    sendArray(ix) = sendBuffer(0) &amp;amp; "=" &amp;amp; jscript.encodeURIComponent(sendBuffer(1))
  Next
  Set jscript = Nothing

  Dim data
  data = submitPost(host, url_path, Join(sendArray, "&amp;amp;"))

  If LenB(data) &lt;= 0 Then
    downloadFilePost = False
    Exit Function
  End If

 'バイナリで書き込み
  With CreateObject("ADODB.Stream")
    .Type = 1
    .Open
    .Write data
    .SaveToFile savePath, 2
    .Close
  End With

  downloadFilePost = True

End Function

Permalink | 記事への反応(1) | 22:27