
VB6を使っています。
取得した年月の一日の曜日を取得したいのですが
うまくできません。formatもなぜかエラー出るんです・・・
どなたか教えてください
Dim dtCurrent As Date
Dim y As Integer
Dim m As Integer
Dim j as string
Dim nWeek As Integer
j=DateTime.Date()
y = Mid(j, 1, 4)'年
m = Mid(j, 6, 2)'月
dtCurrent = Format(y&m&01, yyyy / mm / dd)
Week = Weekday(dtCurrent) - 1 '曜日取得
No.1ベストアンサー
- 回答日時:
Dim dtCurrent
Dim y As Integer
Dim m As Integer
Dim j As String
Dim nWeek As Integer
j = DateTime.Date()
y = Mid(j, 1, 4) '年
m = Mid(j, 6, 2) '月
dtCurrent = y & "/" & m & "/01"
Week = Weekday(dtCurrent) - 1 '曜日取得
ではダメなんですか?
No.3
- 回答日時:
>'==========絶対ここは文字列として捕えることなく、年や月を得るもっと綺麗な書き方があるはず。
=========こんなのとか
Dim dtmToday As Date
Dim dtmFirst As Date
Dim nWeek As Integer
dtmToday = Date
dtmFirst = DateSerial(Year(dtmToday), Month(dtmToday), 1)
nWeek = Weekday(dtmFirst) - 1 '曜日取得
No.2
- 回答日時:
Private Sub CommandButton1_Click()
Dim dtCurrent As Date
Dim y As Integer
Dim m As Integer
Dim j As String
Dim nWeek As Integer
j = DateTime.Date()
'==========絶対ここは文字列として捕えることなく、年や月を得るもっと綺麗な書き方があるはず。=========
y = Mid(Cstr(j), 1, 4) '年。
m = Mid(Cstr(j), 6, 2) '月
============================================
'===== dtCurrent = Format(y & "/" & m & "/01", "yyyy/mm/dd")でもいけるっぽい ==========
dtCurrent = CDate(y & "/" & m & "/01")
'=============================================
nWeek = Weekday(dtCurrent) - 1 '曜日取得
UserForm1.Caption = CStr(dtCurrent) & "-" & CStr(nWeek)
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
月の第一週とは
-
エクセルで毎月第2週日の水曜日...
-
毎○曜日って、使いますか?
-
[Excel] ある日の曜日が当月の"...
-
週2回のペースって だいたい何...
-
フローチャート 九九
-
平日朝の国道246線混雑状況につ...
-
毎週同じ曜日にラブホに行くと...
-
6月の第2 第4火曜日は何日...
-
ExcelVbaファイルを.xls から ....
-
Excelで第一〇曜日を求める方法...
-
ユーザー定義の(aaa)
-
VBA。複数のChangeイベントをま...
-
エクセルで相対パスの書き方を...
-
DBを10件毎に表示ページング...
-
a.cgi → b.cgiへデータの受渡...
-
VBAでExcelのヘッダーに文字列+...
-
関数ヘッダ?
-
apacheでPerl CGIが作動せず、5...
-
mt-check.cgiでForbiddenエラー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
月の第一週とは
-
エクセルで毎月第2週日の水曜日...
-
毎○曜日って、使いますか?
-
週2回のペースって だいたい何...
-
VBA。複数のChangeイベントをま...
-
[Excel] ある日の曜日が当月の"...
-
よくある 『 第○(1・2・3・4・...
-
ユーザー定義の(aaa)
-
毎週同じ曜日にラブホに行くと...
-
Excelで第一〇曜日を求める方法...
-
c言語の質問です。 ある月のカ...
-
指定曜日にMsgBox表示は可能で...
-
カレンダープログラム、曜日の...
-
曜日と曜の使い分けがわかりま...
-
「しあさって」って言いますか?
-
6月の第2 第4火曜日は何日...
-
月頭の日の曜日を取得する方法
-
曜日派?日付派??
-
thunderbird 送信日時の曜日表示
-
小数点計算について
おすすめ情報