2017-01-19 24 views
4

私はすでにこのコードを使用しています:年()現在の年を取得します。 しかし、私は年の最後の2桁だけが必要です。 敵の例は、今日の日付01/19/2017から、私はプルアップし、 '17'を含むメッセージボックスを表示するだけです。 ExcelでVBAを使用してマクロでこのコードを書くにはどうすればよいですか?ExcelでVBAを使用してマクロを書き込む

答えて

5

これを試してみてください:

MsgBox Format(Date, "yy")

+0

は私のためによく働いているありがとうございます。 – Olivia

+0

公開機能ISOweeknum(ByValのv_Date日現在)の整数として ISOweeknum = DATEPART - DT( "WW"、v_Date平日(v_Date、2)+ 4、2、2) エンド機能 ます。Private Sub CommandButton1_Click() 薄暗い日として、整数 DT =日 のDebug.Print WNO = ISOweeknum(DT) のMsgBoxフォーマット(DT、 "YY")DT&WNO End Subの – Olivia

+0

として 薄暗いWNOは、これは私がしようとしていますコードですが、事は、今日のです週番号は「3」で、「W1703.4」と表示したいと思います。一桁の場合は週番号の前にゼロを追加できます。また、最後の数字「4」が木曜日を表す方法月曜日のような毎日の最後の数字の変更は '1'です。だから、どのようにこの 'W1703.4'を引き出すコードを書くことができますか? – Olivia

関連する問題