VB6 月末を求ã‚ã‚‹
Dim MyDate As Date MyDate = Now Text1.Text = DateAdd("D", -1, DateSerial(Year(MyDate), Month(MyDate) + 1, 1)) ã“ã®ä¾‹ã§ã¯ システム日付(=Now)ã®æœˆã®æœˆæœ«ã‚’求ã‚ã¦ã„る。当然Nowã®ä»£ã‚ã‚Šã«ä»»æ„ã®æ—¥ä»˜ã‚’使ã†ã“ã¨ãŒã§ãる。 メモ：月末ã®ã€€æ—¥ã«ã¡ã€€ã ã‘を知りãŸã„å ´åˆã¯ã€ä¸Šè¨˜ã®ä¾‹ã§å–å¾—ã—ãŸæ—¥ä»˜ã«Day関数をé©ç”¨ã™ã‚‹ã€‚ ２．年・月ã‹ã‚‰æœˆæœ«ã‚’求ã‚る例 次ã®ä¾‹ã¯2003å¹´2月ã®æœˆæœ«ã‚’求ã‚ã¦ã„ã‚‹ãŒå°‘ã—分ã‹ã‚Šã«ãã„ã®ã§è‰²ã‚’ã¤ã‘ã¦å¼·èª¿ã—ã¦ã‚る。
1
ランã‚ング
ランã‚ング
ランã‚ング
リリースã€éšœå®³æƒ…å ±ãªã©ã®ã‚µãƒ¼ãƒ“スã®ãŠçŸ¥ã‚‰ã›
最新ã®äººæ°—エントリーã®é…ä¿¡
処ç†ã‚’実行ä¸ã§ã™
j次ã®ãƒ–ックマーク
kå‰ã®ãƒ–ックマーク
lã‚ã¨ã§èªã‚€
eコメント一覧を開ã
oページを開ã
クライアントã®ãƒ—ãƒã‚°ãƒ©ãƒ を自動ãƒãƒ¼ã‚¸ãƒ§ãƒ³ã‚¢ãƒƒãƒ—ã™ã‚‹ | Sunvisor Lab.
{{#tags}}- {{label}}
{{/tags}}