秀丸で080907のような6桁の日付を挿入させたい

このQ&Aのポイント
  • 秀丸マクロで「080907」のような形式で今日の日付を入れたいと考えています。当方にマクロに関するスキルがないためいくつも配布マクロを試したのですが上記形式で挿入してくれるマクロがありませんでした。
  • 今まで試したマクロでは「20080907」という形式で出てしまい、最初の「20」がいらないです。簡単な方法で直接カーソル位置に「080907」のような6桁の形式でその日の日付を挿入させる方法を教えていただけると幸いです。
  • マクロ実行後、メニューなど出さずに直接カーソル位置に「080907」のような6桁の形式でその日の日付を挿入させる方法をご存知の方、教えていただけると幸いです。
回答を見る
  • ベストアンサー

秀丸で080907のような6桁の日付を挿入させたい

秀丸マクロで 「080907」のような形式で今日の日付を入れたいと考えています。 (上の例は2008年9月7日) 当方にマクロに関するスキルがないため いくつも配布マクロを試したのですが 上記形式で挿入してくれるマクロがありませんでした。 ・・・・・・・・・・・・・・・・・ $item[0] = year + "" + month + "" + day; insert $item[0]; endmacro; ・・・・・・・・・・・・・・・・・ これだと 「20080907」という形式で出てしまいます。 (最初の「20」がいらない) 素人考えで「簡単なマクロかな」と思っていましたが 希望通りのマクロがなく、投稿しています。 マクロ実行後、メニューなど出さずに 直接カーソル位置に「080907」のような6桁の形式で その日の日付を挿入させる方法をご存知の方、 教えていただけると幸いです。 よろしくお願いいたします。

質問者が選んだベストアンサー

  • ベストアンサー
  • koko_u_
  • ベストアンサー率18% (459/2509)
回答No.1

>これだと >「20080907」という形式で出てしまいます。 >(最初の「20」がいらない) どんなマクロか知らんけど、単純に year を rightstr(year, 2) とかすれば?

webweb555
質問者

お礼

koko_u_様ご返信ありがとうございます 教えていただきました通りにマクロを編集したら イメージ通りの日付出力ができました! 本当にありがとうございますm(__)m

関連するQ&A

  • oracleのsqlで日付判断

    テーブルに以下の以下の様に日付が登録されています。、 cal_year cal_month cal_day item1 item2 item3 ・・・・・・ : 2019 6 29 2019 6 30 2019 7 1 2019 7 2 ; 2019 7 10 2019 7 11 ; 2019 7 20 2019 7 21 : 2019 7 31 2019 8 1 2019 8 2 : 見ての通り、テーブルに登録されている日付が、年、月、日と各々で 登録されており、また、月と日には、ゼロ埋めされてない値となって います。 因みに、cal_year、cal_month、cal_dayの属性は、varchar2です。 以下のsqlで、日付指定で、システム日付より以降の日付のデータを 取得しようとしているのですが、上手く行きません。 select * from tableA where cal_year||cal_month||cal_day>to_char(sysdate,'FMYYYYMMDD') order by cal_year,to_number(cal_month),to_number(cal_day) ; 今日、2019/7/22でやると、「2019 7 3」以降が出力されます。 また、日付を直接指定するとエラーとなります。 select * from tableA where cal_year||cal_month||cal_day>to_char('2019722','FMYYYYMMDD') order by cal_year,to_number(cal_month),to_number(cal_day) ; 「SQL : ORA-01481: 数値書式モデルが無効です」となります。 何がいけないのでしょうか。 このような使い方はダメなのでしょうか。 それとも、使わない使い方をしているのでしょうか。 お願いいたします。

  • VBA 日付型を8桁数値へ変換

    VBAの中で、Date型の日付をバッチファイルに渡す時に、8桁数値へ変換したいのですが、0埋めのやり方が分からずに困っております。 Date型 yyyy/mm/dd 8桁数値 yyyymmdd Private Sub cmdBSubmit_Click() Dim rc As Integer Dim sDate As Date Dim eDate As Date '開始日・終了日処理 sDate = DateAdd("d", -5, txtsDate) eDate = DateAdd("d", 5, txteDate) Debug.Print "----------------------" Debug.Print "開始日-5:" & sDate Debug.Print "終了日+5:" & eDate 'パブリック変数へ、日付格納 sDateP = Year(sDate) & Month(sDate) & Day(sDate) eDateP = Year(eDate) & Month(eDate) & Day(eDate) Debug.Print "----------------------" Debug.Print "開始日:" & sDateP Debug.Print "終了日:" & eDateP rc = MsgBox("開始日 : " & sDate & vbCrLf & _ "終了日 : " & eDate & vbCrLf & _ "抽出を開始します宜しいですか?", vbYesNo + vbQuestion, "確認") If rc = vbYes Then '集計バッチを実行 'MsgBox "実行" Call 抽出 Else '中止 MsgBox "中止" End If End Sub 'パブリック変数へ、日付格納 sDateP = Year(sDate) & Month(sDate) & Day(sDate) eDateP = Year(eDate) & Month(eDate) & Day(eDate) この書き方だと、月・日が一桁の場合、例えば「2013/01/01」だと、”201311”になってしまいます。 これを、"20130101"にしたいのですが、どう書けば宜しいでしょか? 最初から、8桁日付で入力すればよいのでしょうか、入力した日付の前後5日を自動的に増やす必要がある為に上記の仕様にしてます。

  • 1桁の日付に0を付ける

    日時を取得して、表示する際に「2010/3/16」を、→「2010/03/16」 のように数字が1桁の時だけ「0」を足して表示させたいのですが どのようにすれば良いでしょうか。 ------------------------------------- ($sec,$min,$hour,$day,$mon,$yea,$wdy,$yday,$isdst) = localtime(time); $year = $yea + 1900; $mon++; $nitiji= join("","$year/$mon/$day"," ","$hour",":","$min"); ------------------------------------- 上記の方法で、perlで書き出したhtmlに「$nitiji」を埋め込んで表示させているのですが 「0」をつけることができず困っております。 (システム上、そのようにしたいので) できれば「print(・・・」「「printf(・・・」」などの形式ではなく 「$nitiji」に直接その数値を入れられると良いのですが。 良い方法がありましたら宜しくお願いします。

    • ベストアンサー
    • Perl
  • 日付を計算して件数を取得

    お世話になります。 よろしくお願いします。 MySQL5を使っています。 現在 year month day days の4つのフィールドがあり、それぞれに 2008 03 01 10 2008 03 02 20 というデータが入っているとします。 daysは数値です。 year,month,dayを日付に直して days-5の値を引いた日が本日と同じデータの件数を取得したいのですが SQLだけで可能でしょうか? たとえば、今日が2008-03-17だとすると 2008-03-01に(10-5)を足すと2008-03-05なので偽 2008-03-02に(20-5)を足すと2008-03-17なので真 なので1件 みたいな感じです。 よろしくお願いします。

    • ベストアンサー
    • MySQL
  • 「システム日付」を挿入する

    フィールドに「システム日付」を挿入するSQLを作成する方法が分かりません。 GETDATE()という関数を使えばいいらしいですが、どのようにすれば良いでしょうか? INSERT文を使ってdatetime型の値が入る列に挿入するという形式です。

  • 日付の差分の求め方(日、分)

    NT4WS+VC++6.0 Win32コンソールアプリで作ってます。 現在int型で year1,month1,day1 year2,month2,day2 の様に、1と2それぞれ年月日を持っています。 (year2/month2/day2) - (year1/month1/day1) と言った感じで1と2の差が何日かを求めたいのです。 VBで言うDateDiffみたいなことがやりたいのです。 よろしくお願いします。

  • Date型の適当な日付を秀丸マクロで作成したい

    Oracle9iにinsertする適当なデモデータを秀丸のマクロで作成しようとしています。 例えば、04年の7月から9月までの3ヶ月間、実在する日付を適当に(ランダムに)作成することは可能ですか? 作成したい日付データの例 "04-07-12" "04-09-29" "04-08-01" ... お手数ですがご存知の方いらっしゃったらご教授をお願いします。

  • 日付関数について

    2021/7/3を関数を使って分離する MONTH, DAY, YEAR使うとそれぞれ7, 3, 2021と分離されます。 これを2021&7&3とそれぞれ結合させると202173となります。 そこで質問です。月、日にちそれぞれ一桁の場合先頭にゼロを持ってきたいのですがどうすればいいのでしょうか。 20210703としたい。 どなたか教えて頂けますでしょうか。

  • 日付を入力するには?

    PHP+SQLサーバ2003でWEB作成をしています。 PHPでPOSTされた年月日をSQLサーバのカラム(smalldate型)に格納したいのですが、入力された通りにはDBに日付が格納されないのです。 例)2007/10/10 → (DB)1905/06/14 ソースはこんな感じです。 //年、月、日と入力された値を"年/月/日" の形にする $day = implode("/",array($_POST["year"],$_POST["month"],$_POST["day"])); //入力された日付をDBに格納する。 $sql = "insert into table_name(date) values($day)"; 根本的に何かが間違っていると思われるのですが、よくわかりません。 どなたかアドバイスお願いします。

  • 2つの日付・時間の差分を求めるには

    2つの日付、時間の差分を求めるには、 timelocal を使うのかと思うのですが、 $time1 = timelocal($sec1,$min1,$hours1,$day1,$month1,$year1); $time2 = timelocal($sec2,$min2,$hours2,$day2,$month2,$year2); $result = int(($time2 - $time1)/(60*60*24)); return $result; ではいけないのでしょうか?

    • ベストアンサー
    • Perl

専門家に質問してみよう