掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
文字列から「年月日 日時」だけを取り出したい。 (ID:38066)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
function TForm1.GetDateTime(sText:string; var sDate , sTime : string):string; var sTemp : string; iTemp,i : integer; begin //(0)値の初期化 sDate:=''; sTime:=''; //(1)日付の切り出し iTemp := pos('-',sText); if (iTemp>4) and (copy(sText,iTemp+3,1)='-') then //日付と判定 begin sDate:=copy(sText,iTemp-4,10); end; //(2)時刻の切り出し iTemp := pos(':',sText); if (iTemp>3) and (copy(sText,iTemp+3,1)=':') then //時刻と判定 begin sTime:=copy(sText,iTemp-2,8); end; //(3)戻り値の生成 if (length(sDate)=0)and(length(sTime)=0) then result:=''; if (length(sDate)=0)and(length(sTime)>0) then result:=sTime; if (length(sDate)>0)and(length(sTime)=0) then result:=sDate; if (length(sDate)>0)and(length(sTime)>0) then result:=sDate+' '+sTime; end; procedure TForm1.Button1Click(Sender: TObject); var sDate , sTime : string; begin ShowMessage(GetDateTime(Edit1.Text,sDate , sTime)); ShowMessage(sDate); ShowMessage(sTime); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.