スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

VB エポックタイムを取得

■VB エポックタイムを取得
現在時刻をエポックタイムに変換したい。
.ぐぐれば一発かなって思ったけど、意外に見つからなかった。

なので、以下の記事を参考に作成。

C#でDateTimeクラスを使って現在のUNIX時間(UNIXタイム)を求める。
http://ameblo.jp/oregano-blog/entry-10445227668.html

同じ .NET なんだから、そんなに差異はないはずだと思ったわけで。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim dtUnixEpoch As Date = New DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc)

    Dim dt As Date = DateTime.Now

    dt = dt.ToUniversalTime()

    '現在時刻のDateTimeからUNIXエポック時刻のDateTimeを引く
    Dim unixtime As Double = (dt.Subtract(dtUnixEpoch).TotalSeconds)

    ' 必要な変数を宣言する
    Dim stTarget As String = unixtime.ToString()

    ' 14文字目まで取得
    stTarget = stTarget.Substring(0, 14)

    ' 文字を表示する
    MessageBox.Show(stTarget)

End Sub


思った通り、簡単にできた。
現在時刻をエポックタイムに変換して、メッセージダイアログで表示。

stTarget = stTarget.Substring(0, 14)
ここの部分はバグになりそうだけど、テストコードだからとりあえず良しとする。


---
急にVBで書けっていわれても困りますぜ・・・。

関連記事
スポンサーサイト

この記事へのコメント

トラックバック

URL :

■スポンサードリンク
■プロフィール

ベタログ

管理人 : ベタログ (Twitterアカウント

思い立ったら、ジャンルを気にせず記事にする。それが自由というものだ。
そんな管理方針。
主に取り扱ってる事:オンラインゲーム(SDGO/Travian/ロードオブナイツ)、プログラミングメモ、ネット小説/書籍の感想/観葉植物など。

■まとめ記事
■カテゴリ
■最新記事
■PICKUP

個人的に押しているモノ


魚里高校ダンジョン部! 藻女神様と行く迷宮甲子園
魚里高校ダンジョン部! 藻女神様と行く迷宮甲子園
■感想記事
これぞ青春エンタメ小説。熱いですよ!

オーバーロード1 不死者の王
オーバーロード1 不死者の王
■感想記事
最強軍団が異世界を蹂躙するファンタジー。Web版も読めますが、凄まじい加筆がされているため、Web版読者も楽しめます。
■お勧め品
■最新コメント
■月別アーカイブ
検索フォーム
リンク
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。