• ベストアンサー

【VB】日付の計算

unamana19の回答

  • ベストアンサー
  • unamana19
  • ベストアンサー率62% (56/89)
回答No.1

DateTime.Now.AddDays(-10)

sineminna
質問者

お礼

天才

関連するQ&A

  • コンボボックスに日付を表示する

    現在、VB.netを勉強中です。 コンボボックス内に今日から一週間分の日付を表示したいのですが、上手く行きません。 Dim dtToday As DateTime = DateTime.Today ComboBox1.Items.Add(dtToday.ToString()) と書いたところ現在の日付を取得しコンボボックス内に 2013/5/28 00:00 と表示されています。 これを時刻を表示させず(2013/5/28 のみ表示)、For文を用いて一週間分表示させたのですが、どのようにすればよいでしょうか? 分かる方がいれば、よろしくお願いします。

  • VB6にも「ToString」ってありますか?

    VB.NETには「ToString」がありますが、VB6でこれと同じ機能をもつものってありますか?もしかしてVB6にも「ToString」ってありますか? VB6で開発しているときに、例えば「2008/10/10」と日付型になっているものを「20081010」という文字型、もしくは数値型にして扱いたいのですが... なにぶん素人ですので、質問があいまいかと思いますがよろしくお願いします。

  • C#で日付の表示を変更する方法

    お世話様です。 C#でプログラムを作っています。(初心者です) 日付の表示の仕方でわからないところがあります。 a.WriteLine ( DateTime.Now.ToString() ) とすると、下記のように表示されます。 2005/03/01 16:31:14  これを下記のように表示するにはどうすれば良いでしょうか? 2005年3月1日 16時31分14秒

  • VB.NET 日付設定

    VB.NETで DateTimePicer2つを使って日付の 範囲設定を作ったのですが 何日から何日までという設定で 現時点では、両方の DateTimePicerに今日の日付が出てしまうので 何日まで・・・は今日の日付のままで、 何日から・・・のDateTimePicerには 3日前の日付が立ち上げた時に表示されるように したいのですが どのようにしたらいいでしょうか?

  • 日付の取得VB.NET.では

    自動で日付をTEXTboxに取得する場合 VB.6.0では Private Sub Timer1_Timer() TexDate.Text=Format(Now,"yymm月dd日  hh時mm分") end sub でOKでしたが。VB.NETではどう書けば良いのでしょうか?

  • VB2005でのミリ秒の取得について(Mobile)

    お世話になります。 現在、Windows Mobile5.0 向けのアプリケーションを VB2005で作成しています。 アプリケーションの各処理の処理時間を細かく知りたいと思い、 ログに処理時間をミリ秒まで出力しようとしています。 Dim dtNow As DateTime = DateTime.Now outputStr = "[" & dtNow.ToString("yyyy/MM/dd HH:mm:ss") & dtNow.Millisecond.ToString & "]" と記述したのですが、ミリ秒の部分が 0 しか返しません。 普通のWindowsアプリケーションの場合だと上記記述で取得できるのですが、 Mobile5.0/ .NET CF2.0 では異なるのでしょうか? ご存じの方、教えてください。

  • VB2010で時刻表記変換

    独学でVB2010Expressを使用しています。 あるCSVからADOを使用してデータを取得し、Accessに転載しているのですが、そのデータで日付と時間のフィールドがあるのですが各々以下のような表示(『2012/04/02』の場合→『20120402』、『12:32:50』の場合→『123250』)なので逆の変換をした上で『2012/04/02 12:32:50』とAccessに格納したいのですが『StringからDoubleに変換できません』的なエラーが出てしまします?(全部String型のつもりなんですが) 色々調べたのですが、うまくいきません。ご教授お願いします。 下記のコードはデータテーブル(DT)に変換前の『日』・『時刻』値をを格納したものを使用しています。 iはFOR NEXTでループさせています。 OleCmd.Parameters.Add("@DateTime", SqlDbType.Date).Value OleCmd.Parameters("@DateTime").Value = Date.Parse(CInt(DT.Rows(i)("日")).ToString("0000/00/00")) + " " + CInt(DT.Rows(i)("時刻")) \ 10000 + ":" + (CInt(DT.Rows(i)("時刻")) Mod 10000) \ 100.ToString("00") + ":" + (CInt(DT.Rows(i)("時刻")) Mod 10000) Mod 100.ToString("00")

  • VB2008で日付と時間の計算

    教えて下さい。 VBで日付と時間の足し算をしたいのですがやり方がわかりません。 フォームに6つのテキストボックスを配置し、6つのテキストボックスには それぞれ日・時・分の数値を入力します。 例えばヤフーオークションの終了時刻を計算したい場合、 TextBox1~3に現在の日時を入力し、TextBox4~6に残り時間を入力します。 現在時刻 [4] 日 [17] 時 [44] 分 残り時間 [3] 日 [6] 時間 [30] 分 この数値の足し算結果をメッセージボックスに終了時刻として表示させるようにしたいのですが、やり方が分からず困ってます。 教えていただけないでしょうか。

  • VB2010でのSQL日付フォーマット表記変更

    VB2010Expressを使用しています。 VBにてあるCSVファイルの内容をmdbファイルに移行するプログラムを作成しています DateTimePickerの日付を条件にしているんですがCSVの日付表記が『yyyymmdd』になっていて下記のコードでは『 (Me.Date日付.Text).ToString("yyyyMMdd")』の部分で『'String' から 'System.IFormatProvider' への変換時にランタイム エラーが発生する可能性があります。』とエラーが出ます。 自宅PCでは『(Me.Date日付.Text).ToString("yyyyMMdd")』を『DateAdd("d", 0, Me.Date健診日.Text).ToString("yyyyMMdd")』にしたらエラーなく動いたのですが、今日職場のPCで検証したら『型が合いません的なエラーが出てしまいます。(日付部分でのエラーみたいなのですが職場でのエラーをメモし忘れました、スイマセン) 日付のフォーマット変更そしてPCの違いによるエラーの発生原因についてご教授お願いします。 Try Dim DT As New DataTable '===============CSVからクエリ=============== Using OleCn As New System.Data.OleDb.OleDbConnection OleCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FolderPath & _ ";Extended Properties=""Text;HDR=YES;IMEX=1;FMT=Delimited""" Dim SQL As String = "" SQL = "SELECT * FROM " + CSVFileName + " WHERE 日付 BETWEEN " + DateAdd("d", -1, Me.Date日付.Text).ToString("yyyyMMdd") + " AND " + (Me.Date日付.Text).ToString("yyyyMMdd") Using DA As System.Data.OleDb.OleDbDataAdapter = _ New System.Data.OleDb.OleDbDataAdapter(SQL, OleCn) DT.Clear() DA.Fill(DT) End Using End Using '===============CSV-importへの登録=============== コード省略 Catch ex As Exception MessageBox.Show(ex.ToString, "例外発生") Exit Sub End Try

  • 日付型の文字列への変換 VB2008

    VB2008を使っています。 日付型のデータがあり、それを文字列にしようと思っています。 私がごっちゃまぜになっているのは、以下の3つです。 (1) Foamt(値, 書式) (2) Strings.Foamt(値, 書式) (3) String.Format(書式, 値) Option Strict On Option Infer Off Dim d As Date Dim s As String d = Date.Parse("2009/07/30") s = Format(d, "yy/mmm/d") '(1)の場合 とすると、 sは "09/Jly/30"と思っていましたが "09/00/30"となりました。 (Format) http://www.red.oit-net.jp/tatsuya/vb/date.htm 何が駄目なのでしょうか? (1)、(2)、(3)でそれぞれ 09/Jly/30と表示させたいのですが、 ご存知の方教えてください。 また、(1)~(3)は何が違い、VB2008では何を使うのが一番よいのでしょうか?