---

■スレッドリストへ戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 最新50

monazilla

388 ：turbo type D@monazilla.org(藁 ：2001/02/22(木) 14:39

あ、まだメソッドを呼ぶActionが無かった。あせるな＞ｼﾞﾌﾞﾝ

さて、今日もコード公開
誰でも作れるけど、誰かが作っていたら楽な関数
////////////////////////////////////////////////////////////
{　 DataTimeToFmt2ch
　　Fmt2chToDateTime
// 名前：turbo type D@monazilla.org(藁
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣＼
聞いてアロエリーナ　ちょっと言いにくいんだけど
聞いてアロエリーナ

ｺｺｶﾗﾉｺｰﾄﾞﾊ: 2ch形式の日付文字列"2001/02/09(金) 22:49"を
　　　　　　TDateTimeと相互変換する
ｺｳｼﾝ日ﾜ：　 2001/02/22
ﾎｶﾆ逝ｯﾄｸｺﾄﾊ:なにもなし

聞いてくれてありがと　アロエリーナ♪
＼＿＿＿＿＿＿＿＿　＿＿＿＿＿＿＿／
　　　　　　　　　|/
　　　　　　　　 ∧_∧
　　　Ψ　　　 （∀・ ）
　　　□　　　 （∩∩ノ）
//￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣ }
const DayOfWeekJP: array[1..7] of String = ('日','月','火','水','木','金','土');

function DateTimeToFmt2ch(DateTime: TDateTime): String;
var
　Year, Month, Day: word;
　Hour, Min, Sec, MSec: word;
begin
　DecodeDate(DateTime, Year, Month, Day);
　DecodeTime(DateTime, Hour, Min, Sec, MSec);

　Result := IntToStr(Year) + '/' +
　　　　　　Format('%.2d', [Month]) + '/' +
　　　　　　Format('%.2d', [Day]) + '(' +
　　　　　　DayOfWeekJP[DayOfWeek(DateTime)] + ') ' +
　　　　　　Format('%.2d', [Hour]) + ':' +
　　　　　　Format('%.2d', [Min]);
end;

function Fmt2chToDateTime(Fmt2ch: String): TDateTime;
var
　Year, Month, Day: word;
　Hour, Min, Sec, MSec: word;
begin

　try
　　Year　　:= StrToInt(Copy(Fmt2ch, 1, 4));
　　Month　 := StrToInt(Copy(Fmt2ch, 6, 2));
　　Day　　 := StrToInt(Copy(Fmt2ch, 9, 2));

　　Hour　　:= StrToInt(Copy(Fmt2ch,16, 2));
　　Min　　 := StrToInt(Copy(Fmt2ch,19, 2));
　　Sec := 0;
　　MSec:= 0;

　　Result := EncodeDate(Year, Month, Day)
　　　　　　　　+ EncodeTime(Hour, Min, Sec, MSec);
　except
　　raise ENichError.Create('日付変換が正しくねえぞ鰓(ﾟДﾟ)ｺﾞﾙｧ');
　end;
end;
////////////////////////////////////////////////////////////

317KB

---

新着レスの表示

---

スレッドリストへ戻る 全部 前100 次100 最新50

0ch BBS 2004-10-30